From: Eshel Yaron Date: Thu, 14 Sep 2023 16:37:48 +0000 (+0200) Subject: Update Emacs config X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83c27563acaabec3ece95606bef28ede279f0901;p=dotfiles.git Update Emacs config --- diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 37afd17..a0af7e6 100644 --- 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 "" #'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 67ec122..87628e7 100644 --- 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 eb1cf05..89f3879 100644 --- 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 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