Update Emacs config

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 37afd178d9f3ee71420c8cb7b4ca0d0e87f3c721..a0af7e6de9161e3d2131e9d00b7c8d16e3070856 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -21,7 +21,9 @@
 ;;; OS-specific settings
 
 (pcase system-type
-  ('darwin (setq default-frame-alist '((fullscreen . fullboth)))))
+  ('darwin
+   (setq default-frame-alist '((fullscreen . fullboth)))
+   (set-fontset-font t '(?􀀀 . ?􏿽) "SF Pro Display")))
 
 ;;; Check for external programs
 
@@ -94,18 +96,14 @@
 
 (with-eval-after-load 'elpaca-info
   (set-face-attribute 'elpaca-info-package nil
-                      :height 'unspecified
+                      :height nil
                       :inherit 'info-title-1)
   (set-face-attribute 'elpaca-info-section nil
-                      :weight 'unspecified
+                      :weight nil
                       :inherit 'bold))
 
 ;;; Install packages
 
-(elpaca (ef-themes
-         :pre-build (("emacs" "--batch" "-l" "ox-texinfo" "README.org"
-                      "--eval" "(setq org-babel-confirm-evaluate-answer-no t)"
-                      "-f" "org-texinfo-export-to-texinfo"))))
 (elpaca avy)
 (elpaca (bbdb
          :repo "https://git.savannah.nongnu.org/git/bbdb.git"
@@ -383,10 +381,6 @@
  save-interprogram-paste-before-kill 2048
  ;; have C-u followed by repeated C-SPC keep popping
  set-mark-command-repeat-pop t
- ;; fine-tune some theme settings
- ef-themes-mixed-fonts t
- ef-themes-variable-pitch-ui nil
- ef-themes-region nil
  osm-copyright nil
  ;; follow links to version-controlled files without confirming
  vc-follow-symlinks t
@@ -462,65 +456,32 @@
 
 (setq-default indent-tabs-mode nil)
 
-;;; Load and enable a custom theme
-
-(require 'ef-themes)
-
-(defvar esy/ef-themes-ring (make-ring 16))
-
-(defun esy/ef-themes-load-previous ()
-  (interactive)
-  (when (< 0 (ring-length esy/ef-themes-ring))
-    (let ((theme (ring-remove esy/ef-themes-ring 0)))
-      (message "Loaded `%s'" theme)
-      (ef-themes--load-theme theme))))
-
-(defun esy/ef-themes-load-random ()
-  (interactive)
-  (let* ((theme (ef-themes--current-theme))
-         (themes (seq-filter
-                  (lambda (other-theme)
-                    (not (equal other-theme theme)))
-                  '(
-                    ef-autumn
-                    ef-bio
-                    ef-cherie
-                    ef-cyprus
-                    ef-dark
-                    ef-day
-                    ef-duo-dark
-                    ef-duo-light
-                    ef-elea-dark
-                    ef-elea-light
-                    ef-frost
-                    ef-kassio
-                    ef-light
-                    ef-maris-dark
-                    ef-maris-light
-                    ef-night
-                    ef-spring
-                    ef-summer
-                    ef-symbiosis
-                    ef-trio-dark
-                    ef-trio-light
-                    ef-winter
-                    )))
-         (n (random (length themes)))
-         (pick (nth n themes))
-         (loaded (if (null pick) (car themes) pick)))
-    (ring-insert esy/ef-themes-ring theme)
-    (ef-themes--load-theme loaded)
-    (message "Loaded `%s'" loaded)))
-
-(esy/ef-themes-load-random)
-
 ;;; Set up the Iosevka font family
 
 (when (eq system-type 'darwin)
-  (set-face-attribute 'default nil :height 130))
-(set-face-attribute 'default nil        :family "Iosevka")
-(set-face-attribute 'fixed-pitch nil    :family "Iosevka")
-(set-face-attribute 'variable-pitch nil :family "Iosevka Etoile")
+  (set-face-attribute 'default nil           :height 130))
+(set-face-attribute 'default nil             :family "Iosevka")
+(set-face-attribute 'fixed-pitch nil         :family "Iosevka")
+(set-face-attribute 'variable-pitch nil      :family "Iosevka Etoile")
+(set-face-attribute 'mode-line nil
+                    :box nil
+                    :background "pink")
+(set-face-attribute 'mode-line-inactive nil  :box nil)
+(set-face-attribute 'fringe nil              :background nil)
+(set-face-attribute 'line-number-current-line nil
+                    :background "yellow"
+                    :inherit nil)
+(set-face-attribute 'fill-column-indicator
+                    nil :background nil
+                    :foreground "orange"
+                    :weight 'light)
+(set-face-attribute 'vertical-border nil
+                    :foreground "grey")
+(set-face-attribute 'minibuffer-prompt nil
+                    :weight 'bold :slant 'italic
+                    :foreground "red")
+(set-face-attribute 'cursor nil
+                    :background "salmon")
 
 ;;; Add custom code directory to `load-path'
 
@@ -534,8 +495,7 @@
 (autoload 'esy-publish-local-server "esy-publish"  nil t)
 (autoload 'esy-publish-create-post  "esy-publish"  nil t)
 
-(with-eval-after-load 'gnus
-  (require 'esy-comm))
+(require 'esy-comm)
 
 (add-to-list 'savehist-additional-variables
              'esy-o365-token-refresh-last-time)
@@ -949,9 +909,6 @@ Interactively, POINT is point and KILL is the prefix argument."
 (keymap-global-set "C-s-f" #'toggle-frame-fullscreen)
 (keymap-global-set "C-s-l" #'esy/pulse-line)
 (keymap-global-set "M-\"" #'insert-pair)
-(keymap-global-set "<f5>" #'esy/ef-themes-load-random)
-(keymap-global-set "s-]"  #'esy/ef-themes-load-random)
-(keymap-global-set "s-["  #'esy/ef-themes-load-previous)
 
 (keymap-set ctl-x-map "b" #'consult-buffer)
 (keymap-set ctl-x-4-map "b" #'consult-buffer-other-window)
@@ -1221,6 +1178,7 @@ as the initial input for completion, and return that directory."
                 savehist-mode
                 show-paren-mode
                 transient-mark-mode
+                winner-mode
                 ))
   (funcall mode))
 
@@ -1386,10 +1344,15 @@ as the initial input for completion, and return that directory."
 
   (setq
    ;; don't use bold face for unread Elfeed entries
-   elfeed-search-face-alist '((unread (default)))
+   elfeed-search-face-alist '((unread default))
    ;; read feeds list from a separate file
    elfeed-feeds (esy/feeds)))
 
+(with-eval-after-load 'elfeed-search
+  (set-face-attribute 'elfeed-search-title-face nil
+                      :foreground "grey50"
+                      :inherit nil))
+
 ;;; Disable some minor-mode mode-line lighters
 
 (dolist (mm '((whitespace-cleanup-mode . whitespace-cleanup-mode)
@@ -1530,7 +1493,6 @@ as the initial input for completion, and return that directory."
               " "
               'display-time-string
               'battery-mode-line-string
-              (capitalize (substring (symbol-name (car custom-enabled-themes)) 3))
               " ")))
     "%5l"
     (4 "|%c")
@@ -1543,5 +1505,6 @@ as the initial input for completion, and return that directory."
             (setq-default mode-line-format esy/mode-line-format)
             (force-mode-line-update t)))
 
+
 (provide 'init)
 ;;; init.el ends here

diff --git a/.emacs.d/lisp/esy-comm.el b/.emacs.d/lisp/esy-comm.el
index 67ec12222be9c1eb312bc827070b0012fead1c76..87628e7a81e5fbb260ed8efde99f9ea51f5fb608 100644 (file)
--- a/.emacs.d/lisp/esy-comm.el
+++ b/.emacs.d/lisp/esy-comm.el
@@ -52,6 +52,7 @@
                                 (cons cond
                                       (format "smtp %s 587" server)))
                               esy-comm-accounts)
+ send-mail-function #'message-multi-smtp-send-mail
 
  ;; Gnus
  gnus-expert-user t

diff --git a/.emacs.d/lisp/esy-o365.el b/.emacs.d/lisp/esy-o365.el
index eb1cf05ff900b837a6199eebac3e5f1c7940af4f..89f3879f9dd1485a1af86afd50d21ebe535c89e4 100644 (file)
--- a/.emacs.d/lisp/esy-o365.el
+++ b/.emacs.d/lisp/esy-o365.el
@@ -59,7 +59,10 @@
                  (expand-file-name ".authinfo" esy-o365-token-directory))
     (pcase mua
       ('gnus
-       (dolist (hook '(gnus-before-startup-hook gnus-before-resume-hook))
+       (dolist (hook '(gnus-before-startup-hook
+                       gnus-before-resume-hook
+                       gnus-select-group-hook
+                       gnus-get-new-news-hook))
          (add-hook hook #'esy-o365-maybe-refresh-token))))))
 
 (provide 'esy-o365)

diff --git a/debian.txt b/debian.txt
new file mode 100644 (file)
index 0000000..46a1b1e
--- /dev/null
+++ b/debian.txt
@@ -0,0 +1,23 @@
+apt update
+apt upgrade
+
+/etc/apt/sources.list
+
+deb http://deb.debian.org/debian/ bookworm main contrib
+deb-src http://deb.debian.org/debian/ bookworm main contrib
+
+deb http://security.debian.org/debian-security bookworm-security main contrib
+deb-src http://security.debian.org/debian-security bookworm-security main contrib
+
+deb http://deb.debian.org/debian/ bookworm-updates main contrib
+deb-src http://deb.debian.org/debian/ bookworm-updates main contrib
+
+apt update
+apt full-upgrade
+reboot
+apt update
+apt upgrade
+
+adduser user
+adduser user sudo
+newgrp sudo