Various email-related changes

[~bandali/configs] / init.el

diff --git a/init.el b/init.el
index a5fdea4..c6dd30c 100644 (file)
--- a/init.el
+++ b/init.el
@@ -95,15 +95,6 @@
       user-mail-address "bandali@gnu.org")
 
 \f
       user-mail-address "bandali@gnu.org")
 
 \f

-;;; comment macro
-
-;; useful for commenting out multiple sexps at a time
-(defmacro comment (&rest _)
-  "Comment out one or more s-expressions."
-  (declare (indent defun))
-  nil)
-
-\f

 ;;; Package management
 
 (progn ;   `borg'
 ;;; Package management
 
 (progn ;   `borg'


@@ -181,99 +172,6 @@
   (or (server-running-p) (server-mode)))
 
 \f
   (or (server-running-p) (server-mode)))
 
 \f

-;;; Useful utilities
-
-(defmacro b/setq-every (value &rest vars)
-  "Set all the variables from VARS to value VALUE."
-  (declare (indent defun) (debug t))
-  `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
-
-(defun b/start-process (program &rest args)
-  "Same as `start-process', but doesn't bother about name and buffer."
-  (let ((process-name (concat program "_process"))
-        (buffer-name  (generate-new-buffer-name
-                       (concat program "_output"))))
-    (apply #'start-process
-           process-name buffer-name program args)))
-
-(defun b/dired-start-process (program &optional args)
-  "Open current file with a PROGRAM."
-  ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
-  ;; be nil, so remove it).
-  (declare-function dired-get-file-for-visit "dired")
-  (apply #'b/start-process
-         program
-         (remove nil (list args (dired-get-file-for-visit)))))
-
-(defun b/add-elisp-section ()
-  (interactive)
-  (insert "\n")
-  (forward-line -1)
-  (insert "\n\f\n;;; "))
-
-;; (defvar b/fill-column 47
-;;   "My custom `fill-column'.")
-
-(defconst b/asterism "* * *")
-
-(defun b/insert-asterism ()
-  "Insert a centred asterism."
-  (interactive)
-  (insert
-   (concat
-    "\n\n"
-    (make-string (floor (/ (- fill-column (length b/asterism)) 2))
-                 ?\s)
-    b/asterism
-    "\n\n")))
-
-(defun b/no-mouse-autoselect-window ()
-  "Conveniently disable `focus-follows-mouse'.
-For disabling the behaviour for certain buffers and/or modes."
-  (make-local-variable 'mouse-autoselect-window)
-  (setq mouse-autoselect-window nil))
-
-(defun b/kill-current-buffer ()
-  "Kill the current buffer."
-  ;; also see https://redd.it/64xb3q
-  (interactive)
-  (kill-buffer (current-buffer)))
-
-(defun b/move-indentation-or-beginning-of-line (arg)
-  "Move to the indentation or to the beginning of line."
-  (interactive "^p")
-  ;; (if (bolp)
-  ;;     (back-to-indentation)
-  ;;   (move-beginning-of-line arg))
-  (if (= (point)
-         (progn (back-to-indentation)
-                (point)))
-      (move-beginning-of-line arg)))
-
-(defun b/join-line-top ()
-  "Like `join-line', but join next line to the current line."
-  (interactive)
-  (join-line 1))
-
-(defun b/duplicate-line-or-region (&optional n)
-  "Duplicate the current line, or region (if active).
-Make N (default: 1) copies of the current line or region."
-  (interactive "*p")
-  (let ((u-r-p (use-region-p))          ; if region is active
-        (n1 (or n 1)))
-    (save-excursion
-      (let ((text
-             (if u-r-p
-                 (buffer-substring (region-beginning) (region-end))
-               (prog1 (thing-at-point 'line)
-                 (end-of-line)
-                 (if (eobp)
-                     (newline)
-                   (forward-line 1))))))
-        (dotimes (_ (abs n1))
-          (insert text))))))
-
-\f

 ;;; Defaults
 
 ;;;; C-level customizations
 ;;; Defaults
 
 ;;;; C-level customizations


@@ -577,11 +475,6 @@ Make N (default: 1) copies of the current line or region."
 \f
 ;;; Essential packages
 
 \f
 ;;; Essential packages
 

-(add-to-list
- 'load-path
- (expand-file-name
-  (convert-standard-filename "lisp") user-emacs-directory))
-

 (when b/exwm-p
   (require 'bandali-exwm))
 
 (when b/exwm-p
   (require 'bandali-exwm))
 


@@ -621,8 +514,8 @@ Make N (default: 1) copies of the current line or region."
 ;; recently opened files
 (use-package recentf
   :defer 0.2
 ;; recently opened files
 (use-package recentf
   :defer 0.2

-  ;; :config
-  ;; (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
+  :config
+  (add-to-list 'recentf-keep 'file-remote-p)

   :config
   (recentf-mode)
   :custom
   :config
   (recentf-mode)
   :custom


@@ -668,6 +561,10 @@ Make N (default: 1) copies of the current line or region."
 (require 'bandali-dired)
 
 (use-package help
 (require 'bandali-dired)
 
 (use-package help

+  :bind
+  (:map help-mode-map
+        ("p" . backward-button)
+        ("n" . forward-button))

   :config
   (temp-buffer-resize-mode)
   (setq help-window-select t))
   :config
   (temp-buffer-resize-mode)
   (setq help-window-select t))


@@ -960,8 +857,6 @@ Make N (default: 1) copies of the current line or region."
     "C-c t"   "themes")
 
   ;; prefixes for major modes
     "C-c t"   "themes")
 
   ;; prefixes for major modes

-  (which-key-add-major-mode-key-based-replacements 'message-mode
-    "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 'org-mode
     "C-c C-v" "org-babel")
 


@@ -1040,8 +935,6 @@ Make N (default: 1) copies of the current line or region."
 
 (require 'bandali-yasnippet)
 
 
 (require 'bandali-yasnippet)
 

-(comment
-

 (use-package debbugs
   :bind
   (("C-c D d" . debbugs-gnu)
 (use-package debbugs
   :bind
   (("C-c D d" . debbugs-gnu)


@@ -1067,6 +960,8 @@ Make N (default: 1) copies of the current line or region."
       (setq debbugs-gnu-current-suppress t)
       (debbugs-gnu debbugs-gnu-default-severities '("guix-patches"))))))
 
       (setq debbugs-gnu-current-suppress t)
       (debbugs-gnu debbugs-gnu-default-severities '("guix-patches"))))))
 

+(comment
+

 (use-package org-ref
   :init
   (b/setq-every '("~/usr/org/references.bib")
 (use-package org-ref
   :init
   (b/setq-every '("~/usr/org/references.bib")