tools/emacs: some comment cleanup

@@ -32,13 +32,7 @@
                 echo-keystrokes 0.1
                 line-number-display-limit-width 10000
                 indicate-buffer-boundaries 'left
-                indicate-empty-lines +1
-                display-time-world-list '(("Europe/London" "London")
-                                          ("Europe/Paris" "Paris")
-                                          ("America/New_York" "Boston")
-                                          ("America/Los_Angeles" "San-Francisco")
-                                          ("Asia/Calcutta" "Bangalore")
-                                          ("Australia/Brisbane" "Brisbane")))
+                indicate-empty-lines +1)
   (line-number-mode 1)
   (column-number-mode 1)
   (global-hl-line-mode 1)

@@ -132,9 +132,7 @@ This relies on the external 'fd' executable."
    "Files and dirs"
    "-i" "-H" "-a" "-t" "d" "-t" "f" "-c" "never")
   )
-;; -UseDired
 
-;; UseFindDired
 (use-package find-dired
   :after dired
   :commands (find-name-dired)
@@ -142,9 +140,7 @@ This relies on the external 'fd' executable."
   (setq-default find-ls-option ;; applies to `find-name-dired'
                 '("-ls" . "-AFhlv --group-directories-first")
                 find-name-arg "-iname"))
-;; -UseFindDired
 
-;; UseDiredX
 (use-package dired-x
   :after dired
   :bind ("C-x C-j" . dired-jump)
@@ -153,9 +149,7 @@ This relies on the external 'fd' executable."
   (setq-default dired-omit-files (concat dired-omit-files "\\|^\\.+$\\|^\\..+$")
                 dired-omit-verbose nil
                 dired-clean-confirm-killing-deleted-buffers nil))
-;; -UseDiredX
 
-;; UseDireAux
 (use-package dired-aux
   :unless noninteractive
   :after dired
@@ -165,25 +159,19 @@ This relies on the external 'fd' executable."
    dired-create-destination-dirs 'ask
    ;; Search only file names when point is on a file name
    dired-isearch-filenames'dwim))
-;; -UseDireAux
 
-;; UseDiredCollapse
 (use-package dired-collapse
   :unless noninteractive
   :commands (dired-collapse-mode)
   :hook (dired-mode . dired-collapse-mode))
-;; -UseDiredCollapse
 
-;; UseDiredAsync
 (use-package async)
 (use-package dired-async
   :unless noninteractive
   :after (dired async)
   :commands (dired-async-mode)
   :hook (dired-mode . dired-async-mode))
-;; -UseDiredAsync
 
-;; UseDiredNarrow
 (use-package dired-narrow
   :unless noninteractive
   :after dired
@@ -194,9 +182,7 @@ This relies on the external 'fd' executable."
   (setq-default dired-narrow-exit-when-one-left t
                 dired-narrow-enable-blinking t
                 dired-narrow-blink-time 0.3))
-;; -UseDiredNarrow
 
-;; UseWDired
 (use-package wdired
   :unless noninteractive
   :after dired
@@ -205,16 +191,13 @@ This relies on the external 'fd' executable."
   :config
   (setq-default wdired-allow-to-change-permissions t
                 wdired-create-parent-directories t))
-;; -UseWDired
 
-;; UseDiredRsync
 (use-package dired-rsync
   :unless noninteractive
   :after dired
   :commands (dired-rsync)
   :bind (:map dired-mode-map
               ("r" . dired-rsync)))
-;; -UseDiredRsync
 
 (use-package dired-subtree
   :unless noninteractive

@@ -24,7 +24,6 @@
 (if (version<= "27.1" emacs-version)
     (global-so-long-mode 1))
 
-;; UseSmartParens
 (use-package smartparens
   :unless noninteractive
   :commands (smartparens-mode smartparens-global-mode show-smartparens-global-mode
@@ -49,7 +48,6 @@
     ;; also only use the pseudo-quote inside strings where it
     ;; serves as hyperlink.
     (sp-local-pair "`" "'" :when '(sp-in-string-p sp-in-comment-p))))
-;; -UseSmartParens
 
 (use-package color-identifiers-mode
   :unless noninteractive
@@ -75,7 +73,6 @@
          (js-mode . color-identifiers-mode)
          (python-mode . color-identifiers-mode)))
 
-;; UseAggressiveIndent
 (use-package aggressive-indent
   :unless noninteractive
   :bind ("C-c e i" . aggressive-indent-mode)
@@ -84,18 +81,14 @@
   :config
   ;; Free C-c C-q, used in Org and in CIDER
   (unbind-key "C-c C-q" aggressive-indent-mode-map))
-;; -UseAggressiveIndent
 
-;; UseUndoTree
 (use-package undo-tree
   :unless noninteractive
   :hook (after-init . global-undo-tree-mode)
   :config
   (setq-default undo-tree-visualizer-timestamps t
                 undo-tree-enable-undo-in-region t))
-;; -UseUndoTree
 
-;; UseWhitespace
 (use-package whitespace
   :unless noninteractive
   :commands (whitespace-mode vde/toggle-invisibles)
@@ -108,15 +101,12 @@
         (whitespace-mode -1)
       (whitespace-mode)))
   :bind ("<f6>" . vde/toggle-invisibles))
-;; -UseWhitespace
 
-;; UseExpandRegion
 (use-package expand-region
   :unless noninteractive
   :commands (er/expand-region er/contract-region)
   :bind (("C-=" . er/expand-region)
          ("C--". er/contract-region)))
-;; -UseExpandRegiston
 
 (use-package visual-regexp
   :unless noninteractive
@@ -124,11 +114,9 @@
   :bind (("C-c r"   . vr/replace)
          ("C-c %"   . vr/query-replace)))
 
-;; UseHideShow
 (use-package hs-minor-mode
   :unless noninteractive
   :hook ((prog-mode . hs-minor-mode)))
-;; -UseHideShow
 
 (use-package easy-kill
   :unless noninteractive
@@ -200,7 +188,6 @@ Else toggle the comment status of the line at point."
                    ("-d" "en_GB,fr_FR")
                    nil
                    utf-8))))
-;; -UseFlySpell
 
 (use-package emacs
   :init

@@ -3,13 +3,11 @@
 ;;; Files related configurations
 ;;; Code:
 
-;; UseFiles
 (use-package files
   :commands (revert-buffer)
   :bind (("<f5>" . revert-buffer))
   :config
   (setq-default view-read-only t))
-;; -UseFiles
 
 (use-package envrc
   :defer 2
@@ -18,7 +16,6 @@
               ("C-c d" . envrc-command-map))
   :config (envrc-global-mode))
 
-
 (use-package hardhat
   :init (global-hardhat-mode))

@@ -3,30 +3,23 @@
 ;;; Mails configuration
 ;;; Code:
 
-;; ReadingEmail
 (use-package simple
   :custom (read-mail-command #'gnus))
-;; -ReadingEmail
 
-;; AuthSource
 (use-package auth-source
   :config
   (setq auth-sources '("~/.authinfo.gpg" "~/.authinfo"))
   (setq user-full-name "Vincent Demeester")
   (setq user-mail-address "vincent@sbr.pm"))
-;; -AuthSource
 
-;; EPA
 (use-package epa-file
   :config
   (setq epa-file-cache-passphrase-for-symmetric-encryption t)
   :init
   (epa-file-enable))
-;; -EPA
 
 (setq gnus-init-file (expand-file-name "~/.config/gnus/init.el"))
 
-;; SendmailCfg
 (use-package smtpmail
   ;;:commands (mail-mode mail-text)
   :config
@@ -41,9 +34,7 @@
   :config
   (setq-default send-mail-function 'sendmail-send-it
                 sendmail-program "/home/vincent/bin/msmtp"))
-;; -SendmailCfg
 
-;; MessageCfg
 (use-package message
   :commands (message-mode message-cite-original-without-signature)
   :hook ((message-mode . my-message-hook))
@@ -62,9 +53,7 @@
     (set (make-local-variable 'company-backends)
          '(company-emoji company-capf company-files company-dabbrev))
     (company-mode 1)))
-;; -MessageCfg
 
-;; Notmuch
 (if *sys/full*
     (progn
       (setenv "NOTMUCH_CONFIG" (expand-file-name ".config/notmuch/notmuchrc" (getenv "HOME")))
@@ -83,7 +72,6 @@
                 (:key "u" :name "unread" :query "tag:unread")
                 (:key "F" :name "flagged" :query "tag:flagged")
                 (:key "S" :name "sent" :query "tag:Sent Mail"))))))
-;; -Notmuch
 
 (provide 'config-mails)
 ;;; config-mails ends here

@@ -3,7 +3,6 @@
 ;;; Miscellaneous modes configuration
 ;;; Code:
 
-;; UseHelpful
 (use-package helpful
   :unless noninteractive
   :bind (("C-h f" . helpful-callable)
@@ -13,7 +12,6 @@
          ("C-h k" . helpful-key)
          ("C-h v" . helpful-variable)
          ("C-h C" . helpful-command)))
-;; -UseHelpful
 
 (provide 'config-misc)
 ;;; config-misc.el ends here

@@ -76,7 +76,7 @@ Meant to economise on key bindings."
 (use-package avy
   :unless noninteractive
   :commands (avy-goto-char avy-goto-line avy-goto-word-1 avy-pop-mark avy-goto-char-timer)
-  :bind (("C-c j w"   . avy-goto-word-1)
+  :bind (("C-c j w" . avy-goto-word-1)
          ("C-c j b" . avy-pop-mark)
          ("C-c j t" . avy-goto-char-timer)
          ("C-c j l" . avy-goto-line)))
@@ -106,15 +106,15 @@ Meant to economise on key bindings."
 
 (use-package dumb-jump
   :unless noninteractive
-  :bind (("M-g q"     . dumb-jump-quick-look) ;; Show me in a tooltip.
+  :bind (("M-g q" . dumb-jump-quick-look) ;; Show me in a tooltip.
          ("M-g o" . dumb-jump-go-other-window)
          ("M-g j" . dumb-jump-go)
-         ("M-g ."     . dumb-jump-go)
+         ("M-g ." . dumb-jump-go)
          ("M-g b" . dumb-jump-back)
          ("M-g p" . dumb-jump-go-prompt)
          ("M-g x" . dumb-jump-go-prefer-external)
          ("M-g z" . dumb-jump-go-prefer-external-other-window)
-         ("M-g a"     . xref-find-apropos)) ;; aka C-M-.
+         ("M-g a" . xref-find-apropos)) ;; aka C-M-.
   :config
   ;; If source file is visible, just shift focus to it.
   (setq-default dumb-jump-use-visible-window t

Commit 9fecc54788cf

Commit `9fecc54788cf`