commit 9fecc54788cfd7cb2beb38026f1489f84f1a4a1b
parent 4061cceaefe5bea12bfca3165a150923a4ebe0d9
Author: Vincent Demeester <vincent@sbr.pm>
Date: Tue, 27 Oct 2020 16:44:58 +0100
tools/emacs: some comment cleanup
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
7 files changed, 5 insertions(+), 58 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el
@@ -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)
diff --git a/tools/emacs/config/config-dired.el b/tools/emacs/config/config-dired.el
@@ -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
diff --git a/tools/emacs/config/config-editing.el b/tools/emacs/config/config-editing.el
@@ -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
diff --git a/tools/emacs/config/config-files.el b/tools/emacs/config/config-files.el
@@ -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))
diff --git a/tools/emacs/config/config-mails.el b/tools/emacs/config/config-mails.el
@@ -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
diff --git a/tools/emacs/config/config-misc.el b/tools/emacs/config/config-misc.el
@@ -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
diff --git a/tools/emacs/config/config-navigating.el b/tools/emacs/config/config-navigating.el
@@ -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