emacs: add binding for eww, and only use typo-mode in web-mode
[~bandali/configs] / .emacs.d / init.el
index 1b484e1..0233b06 100644 (file)
@@ -364,7 +364,7 @@ For disabling the behaviour for certain buffers and/or modes."
   (display-time-mode)
   :custom
   (display-time-default-load-average nil)
-  (display-time-format "%a %b %-e, %-l:%M%P")
+  (display-time-format "%a %b %-e %-l:%M%P")
   (display-time-mail-icon '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center))
   (display-time-use-mail-icon t))
 
@@ -1187,8 +1187,8 @@ This function is intended for use with `ivy-ignore-buffers'."
           ("\\.flac\\'" "mpv")))
   :bind (:map dired-mode-map
               ("b"  . dired-up-directory)
-              ("e"  . dired-ediff-files)
-              ("E"  . dired-toggle-read-only)
+              ("E"  . dired-ediff-files)
+              ("e"  . dired-toggle-read-only)
               ("\\" . dired-hide-details-mode)
               ("z"  . (lambda ()
                         (interactive)
@@ -1560,6 +1560,8 @@ This function is intended for use with `ivy-ignore-buffers'."
   :commands (sml/apply-theme)
   :demand
   :config
+  ;; thanks, but no thnaks; don't make fixed-width fills.
+  (defun sml/fill-for-buffer-identification () "")
   (setq sml/theme 'tangomod)
   (sml/setup)
   (smart-mode-line-enable))
@@ -1803,8 +1805,7 @@ This function is intended for use with `ivy-ignore-buffers'."
 (use-package typo
   :defer 0.5
   :config
-  :hook (((text-mode erc-mode web-mode) . typo-mode)
-         ((tex-mode git-commit-mode)    . (lambda ()(typo-mode -1)))))
+  :hook (web-mode . typo-mode))
 
 (use-package electric
   :disabled
@@ -2111,6 +2112,7 @@ This function is intended for use with `ivy-ignore-buffers'."
         scpaste-scp-destination "nix:/var/www/p.bndl.org"))
 
 (use-package eww
+  :bind ("C-c a e w" . eww)
   :custom
   (eww-download-directory (file-name-as-directory
                            (getenv "XDG_DOWNLOAD_DIR"))))
@@ -2128,9 +2130,9 @@ This function is intended for use with `ivy-ignore-buffers'."
  read-mail-command 'gnus)
 
 (use-package gnus
-  :bind (("s-m"     . gnus)
+  :bind (("s-m"     . gnus-plugged)
          ("s-M"     . gnus-unplugged)
-         ("C-c a m" . gnus)
+         ("C-c a m" . gnus-plugged)
          ("C-c a M" . gnus-unplugged))
   :init
   (setq