X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/b1ed18e4b2d3de3d58b86ab025875ab84ed92bb2..d6c37a13aed6c5039e795f14081a6ff2f4cb1959:/.emacs.d/init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 95b1f87..f2c5bff 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -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))
 
@@ -1080,7 +1080,8 @@ This function is intended for use with `ivy-ignore-buffers'."
         (mode . message-mode)))
       ("web"
        (or
-        (mode . web-mode)
+        ;; (mode . web-mode)
+        (mode . mhtml-mode)
         (mode . css-mode)
         (mode . scss-mode)
         (mode . js2-mode)))
@@ -1417,6 +1418,8 @@ This function is intended for use with `ivy-ignore-buffers'."
   ;; alternative: hs-lint https://github.com/ndmitchell/hlint/blob/20e116a043f2073c57b17b24ae6364b5e433ba7e/data/hs-lint.el
   )
 
+(use-package mhtml-mode)
+
 (use-package sgml-mode
   :config
   (setq sgml-basic-offset 2))
@@ -1426,6 +1429,7 @@ This function is intended for use with `ivy-ignore-buffers'."
   (setq css-indent-offset 2))
 
 (use-package web-mode
+  :disabled
   :mode "\\.html\\'"
   :config
   (b/setq-every 2
@@ -1436,13 +1440,13 @@ This function is intended for use with `ivy-ignore-buffers'."
   (web-mode-enable-auto-indentation nil))
 
 (use-package emmet-mode
-  :after (:any web-mode css-mode sgml-mode)
+  :after (:any mhtml-mode css-mode sgml-mode)
   :bind* (("C-)" . emmet-next-edit-point)
           ("C-(" . emmet-prev-edit-point))
   :config
   (unbind-key "C-j" emmet-mode-keymap)
   (setq emmet-move-cursor-between-quotes t)
-  :hook (web-mode css-mode html-mode sgml-mode))
+  :hook (css-mode html-mode mhtml-mode sgml-mode))
 
 (comment
   (use-package meghanada
@@ -1560,6 +1564,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))
@@ -1688,12 +1694,6 @@ This function is intended for use with `ivy-ignore-buffers'."
     "C-c f n" "footnote")
   (which-key-add-major-mode-key-based-replacements 'org-mode
     "C-c C-v" "org-babel")
-  (which-key-add-major-mode-key-based-replacements 'web-mode
-    "C-c C-a" "web/attributes"
-    "C-c C-b" "web/blocks"
-    "C-c C-d" "web/dom"
-    "C-c C-e" "web/element"
-    "C-c C-t" "web/tags")
 
   (which-key-mode)
   :custom
@@ -1801,10 +1801,10 @@ This function is intended for use with `ivy-ignore-buffers'."
 
 ;; easily type pretty quotes & other typography, like ‘’“”-–—«»‹›
 (use-package typo
+  :disabled
   :defer 0.5
   :config
-  :hook (((text-mode erc-mode web-mode) . typo-mode)
-         ((tex-mode git-commit-mode)    . (lambda ()(typo-mode -1)))))
+  :hook ((html-mode mhtml-mode) . typo-mode))
 
 (use-package electric
   :disabled
@@ -1943,19 +1943,24 @@ This function is intended for use with `ivy-ignore-buffers'."
    ("C-c D b" . debbugs-gnu-bugs)
    ("C-c D e" .
     (lambda ()
-      (interactive)
+      (interactive)                     ; bug-gnu-emacs
       (setq debbugs-gnu-current-suppress t)
       (debbugs-gnu debbugs-gnu-default-severities '("emacs"))))
-   ("C-c D g" .
+   ("C-c D g" .                         ; bug-gnuzilla
     (lambda ()
       (interactive)
       (setq debbugs-gnu-current-suppress t)
       (debbugs-gnu debbugs-gnu-default-severities '("gnuzilla"))))
-   ("C-c D G" .
+   ("C-c D G b" .                       ; bug-guix
+    (lambda ()
+      (interactive)
+      (setq debbugs-gnu-current-suppress t)
+      (debbugs-gnu debbugs-gnu-default-severities '("guix"))))
+   ("C-c D G p" .                       ; guix-patches
     (lambda ()
       (interactive)
       (setq debbugs-gnu-current-suppress t)
-      (debbugs-gnu debbugs-gnu-default-severities '("guix"))))))
+      (debbugs-gnu debbugs-gnu-default-severities '("guix-patches"))))))
 
 (use-package org-ref
   :init
@@ -2111,6 +2116,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"))))