X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/1060413bf79aaa20273c785976cf9c2b2b34fac2..35684c66258108b87a21ff83ebd4c9bb34b224fd:/.emacs.d/init.el diff --git a/.emacs.d/init.el b/.emacs.d/init.el index d08c84a..7635cf3 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -188,13 +188,18 @@ ;; separate custom file (don't want it mixing with init.el) (use-feature custom - :no-require t + :no-require :config (setq custom-file (b/etc "custom.el")) (when (file-exists-p custom-file) (load custom-file)) ;; while at it, treat themes as safe - (setf custom-safe-themes t)) + (setf custom-safe-themes t) + ;; only one custom theme at a time + (comment + (defadvice load-theme (before clear-previous-themes activate) + "Clear existing theme settings instead of layering them" + (mapc #'disable-theme custom-enabled-themes)))) ;; load the secrets file if it exists, otherwise show a warning (comment @@ -213,18 +218,86 @@ (exec-path-from-shell-copy-env "SSH_AGENT_PID") (exec-path-from-shell-copy-env "SSH_AUTH_SOCK")) -;; only one custom theme at a time -(comment - (defadvice load-theme (before clear-previous-themes activate) - "Clear existing theme settings instead of layering them" - (mapc #'disable-theme custom-enabled-themes))) - ;; start up emacs server. see ;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server (use-feature server :defer 0.4 :config (or (server-running-p) (server-mode))) + +;;; Useful utilities + +;; useful libraries +(require 'cl-lib) +(require 'subr-x) + +(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). + (apply #'b/start-process + program + (remove nil (list args (dired-get-file-for-visit))))) + +(defun b/add-elisp-section () + (interactive) + (insert "\n") + (previous-line) + (insert "\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)) + + +;;; Defaults + +;;;; C-level customizations + +(setq + ;; minibuffer + enable-recursive-minibuffers t + resize-mini-windows t + ;; more useful frame titles + frame-title-format '("" invocation-name " - " + (:eval + (if (buffer-file-name) + (abbreviate-file-name (buffer-file-name)) + "%b"))) + ;; i don't feel like jumping out of my chair every now and again; so + ;; don't BEEP! at me, emacs + ring-bell-function 'ignore + ;; better scrolling + ;; scroll-margin 1 + ;; scroll-conservatively 10000 + scroll-step 1 + scroll-conservatively 10 + scroll-preserve-screen-position 1 + ;; focus follows mouse + mouse-autoselect-window t) + +(setq-default + ;; always use space for indentation + indent-tabs-mode nil + tab-width 4 + ;; cursor shape + cursor-type 'bar) + ;; unicode support (comment (dolist (ft (fontset-list)) @@ -258,156 +331,92 @@ nil 'prepend))) -;; gentler font resizing -(setq text-scale-mode-step 1.05) - -;; focus follows mouse -(setq mouse-autoselect-window t) - -(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)) - -;; better scrolling -(setq ;; scroll-margin 1 - ;; scroll-conservatively 10000 - scroll-step 1 - scroll-conservatively 10 - scroll-preserve-screen-position 1) +;;;; Elisp-level customizations -(use-feature mwheel - :defer 0.4 +(use-feature startup + :no-require + :demand :config - (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time - mouse-wheel-progressive-speed nil ; don't accelerate scrolling - mouse-wheel-follow-mouse t)) ; scroll window under mouse - -(use-feature pixel-scroll - :defer 0.4 - :config (pixel-scroll-mode 1)) - -(use-feature epg-config + ;; don't need to see the startup echo area message + (advice-add #'display-startup-echo-area-message :override #'ignore) :custom - ((epg-gpg-program (executable-find "gpg")))) + ;; i want *scratch* as my startup buffer + (initial-buffer-choice t) + ;; i don't need the default hint + (initial-scratch-message nil) + ;; use customizable text-mode as major mode for *scratch* + ;; (initial-major-mode 'text-mode) + ;; inhibit buffer list when more than 2 files are loaded + (inhibit-startup-buffer-menu t) + ;; don't need to see the startup screen or echo area message + (inhibit-startup-screen t) + (inhibit-startup-echo-area-message user-login-name)) -;; useful libraries -(require 'cl-lib) -(require 'subr-x) +(use-feature files + :no-require + :demand + :custom + ;; backups (C-h v make-backup-files RET) + (backup-by-copying t) + (version-control t) + (delete-old-versions t) - -;;; Useful utilities + ;; auto-save + (auto-save-file-name-transforms + `((".*" ,(b/var "auto-save/") t))) -(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))) + ;; insert newline at the end of files + (require-final-newline t) -(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))) + ;; open read-only file buffers in view-mode + ;; (enables niceties like `q' for quit) + (view-read-only t)) -(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). - (apply #'b/start-process - program - (remove nil (list args (dired-get-file-for-visit))))) +;; disable disabled commands +(setq disabled-command-function nil) -(defun b/add-elisp-section () - (interactive) - (insert "\n") - (previous-line) - (insert "\n \n;;; ")) +;; lazy-person-friendly yes/no prompts +(defalias 'yes-or-no-p #'y-or-n-p) - -;;; Defaults +;; enable automatic reloading of changed buffers and files +(use-feature autorevert + :demand + :config + (global-auto-revert-mode 1) + :custom + (auto-revert-verbose nil) + (global-auto-revert-non-file-buffers nil)) ;; time and battery in mode-line (comment - (use-package time + (use-feature time :init (setq display-time-default-load-average nil) :config (display-time-mode)) - (use-package battery + (use-feature battery :config (display-battery-mode))) -;; smaller fringe -;; (fringe-mode '(3 . 1)) -(fringe-mode nil) - -;; disable disabled commands -(setq disabled-command-function nil) - -;; Save what I copy into clipboard from other applications into Emacs' -;; kill-ring, which would allow me to still be able to easily access -;; it in case I kill (cut or copy) something else inside Emacs before -;; yanking (pasting) what I'd originally intended to. -(setq save-interprogram-paste-before-kill t) - -;; minibuffer -(setq enable-recursive-minibuffers t - resize-mini-windows t) - -;; lazy-person-friendly yes/no prompts -(defalias 'yes-or-no-p #'y-or-n-p) - -;; i want *scratch* as my startup buffer -(setq initial-buffer-choice t) - -;; i don't need the default hint -(setq initial-scratch-message nil) - -;; use customizable text-mode as major mode for *scratch* -(setq initial-major-mode 'text-mode) - -;; inhibit buffer list when more than 2 files are loaded -(setq inhibit-startup-buffer-menu t) - -;; don't need to see the startup screen or the echo area message -(advice-add #'display-startup-echo-area-message :override #'ignore) -(setq inhibit-startup-screen t - inhibit-startup-echo-area-message user-login-name) - -;; more useful frame titles -(setq frame-title-format - '("" invocation-name " - " - (:eval (if (buffer-file-name) - (abbreviate-file-name (buffer-file-name)) - "%b")))) - -;; backups (C-h v make-backup-files RET) -(setq backup-by-copying t - version-control t - delete-old-versions t) - -;; enable automatic reloading of changed buffers and files -(global-auto-revert-mode 1) -(setq auto-revert-verbose nil - global-auto-revert-non-file-buffers nil) - -;; always use space for indentation -(setq-default - indent-tabs-mode nil - require-final-newline t - tab-width 4) +(use-feature fringe + :demand + :config + ;; smaller fringe + ;; (fringe-mode '(3 . 1)) + (fringe-mode nil)) -;; enable winner-mode (C-h f winner-mode RET) -(winner-mode 1) +(use-feature winner + :demand + :config + ;; enable winner-mode (C-h f winner-mode RET) + (winner-mode 1)) -;; don't display *compilation* buffer on success. based on -;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf' -;; instead of the now obsolete `flet'. -(with-eval-after-load 'compile +(use-feature compile + :config + ;; don't display *compilation* buffer on success. based on + ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf' + ;; instead of the now obsolete `flet'. (defun b/compilation-finish-function (buffer outstr) (unless (string-match "finished" outstr) (switch-to-buffer-other-window buffer)) @@ -426,23 +435,21 @@ For disabling the behaviour for certain buffers and/or modes." ad-do-it)) (ad-activate 'compilation-start)) -;; search for non-ASCII characters: i’d like non-ASCII characters such -;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII -;; counterpart. shoutout to -;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html -(setq search-default-mode #'char-fold-to-regexp) -;; uncomment to extend this behaviour to query-replace -;; (setq replace-char-fold t) - -;; cursor shape -(setq-default cursor-type 'bar) - -;; allow scrolling in Isearch -(setq isearch-allow-scroll t) - -;; open read-only file buffers in view-mode -;; (enables niceties like `q' for quit) -(setq view-read-only t) +(use-feature isearch + :custom + ;; allow scrolling in Isearch + (isearch-allow-scroll t) + ;; search for non-ASCII characters: i’d like non-ASCII characters such + ;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII + ;; counterpart. shoutout to + ;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html + (search-default-mode #'char-fold-to-regexp)) + +;; uncomment to extend the above behaviour to query-replace +(comment + (use-feature replace + :custom + (replace-char-fold t))) (use-feature vc :bind ("C-x v C-=" . vc-ediff)) @@ -452,9 +459,25 @@ For disabling the behaviour for certain buffers and/or modes." :custom ((ediff-window-setup-function 'ediff-setup-windows-plain) (ediff-split-window-function 'split-window-horizontally))) -;; i don't feel like jumping out of my chair every now and again; so -;; don't BEEP! at me, emacs -(setq ring-bell-function 'ignore) +(use-feature face-remap + :custom + ;; gentler font resizing + (text-scale-mode-step 1.05)) + +(use-feature mwheel + :defer 0.4 + :config + (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time + mouse-wheel-progressive-speed nil ; don't accelerate scrolling + mouse-wheel-follow-mouse t)) ; scroll window under mouse + +(use-feature pixel-scroll + :defer 0.4 + :config (pixel-scroll-mode 1)) + +(use-feature epg-config + :custom + ((epg-gpg-program (executable-find "gpg")))) ;;; General bindings @@ -490,22 +513,24 @@ For disabling the behaviour for certain buffers and/or modes." (bind-keys ;; for back and forward mouse keys + ("" . previous-buffer) ("" . previous-buffer) ("" . previous-buffer) + ("" . next-buffer) ("" . next-buffer) ("" . next-buffer) ("" . kill-this-buffer) ("" . ivy-switch-buffer)) (bind-keys - :prefix-map mab/straight-prefix-map + :prefix-map b/straight-prefix-map :prefix "C-c p s" ("u" . straight-use-package) ("f" . straight-freeze-versions) ("t" . straight-thaw-versions) ("P" . straight-prune-build) ("g" . straight-get-recipe) - ("r" . mab/reload-init) + ("r" . b/reload-init) ;; M-x ^straight-.*-all$ ("a c" . straight-check-all) ("a f" . straight-fetch-all) @@ -526,6 +551,176 @@ For disabling the behaviour for certain buffers and/or modes." ;;; Essential packages +(use-package exwm + :disabled + :demand + :config + (require 'exwm-config) + + ;; Set the initial workspace number. + (setq exwm-workspace-number 4) + + ;; Make class name the buffer name, truncating beyond 50 characters + (defun exwm-rename-buffer () + (interactive) + (exwm-workspace-rename-buffer + (concat exwm-class-name ":" + (if (<= (length exwm-title) 50) exwm-title + (concat (substring exwm-title 0 49) "..."))))) + (add-hook 'exwm-update-class-hook 'exwm-rename-buffer) + (add-hook 'exwm-update-title-hook 'exwm-rename-buffer) + + ;; 's-R': Reset + (exwm-input-set-key (kbd "s-R") #'exwm-reset) + ;; 's-\': Switch workspace + (exwm-input-set-key (kbd "s-\\") #'exwm-workspace-switch) + ;; 's-N': Switch to certain workspace + (dotimes (i 10) + (exwm-input-set-key + (kbd (format "s-%d" i)) + (lambda () + (interactive) + (exwm-workspace-switch-create i)))) + ;; 's-SPC': Launch application + ;; (exwm-input-set-key + ;; (kbd "s-SPC") + ;; (lambda (command) + ;; (interactive (list (read-shell-command "➜ "))) + ;; (start-process-shell-command command nil command))) + + (exwm-input-set-key (kbd "M-s-SPC") #'counsel-linux-app) + + ;; Shorten 'C-c C-q' to 'C-q' + (define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key) + + ;; Line-editing shortcuts + (setq exwm-input-simulation-keys + '(;; movement + ([?\C-b] . [left]) + ([?\M-b] . [C-left]) + ([?\C-f] . [right]) + ([?\M-f] . [C-right]) + ([?\C-p] . [up]) + ([?\C-n] . [down]) + ([?\C-a] . [home]) + ([?\C-e] . [end]) + ([?\M-v] . [prior]) + ([?\C-v] . [next]) + ([?\C-d] . [delete]) + ([?\C-k] . [S-end delete]) + ;; cut/copy/paste + ;; ([?\C-w] . [?\C-x]) + ([?\M-w] . [?\C-c]) + ([?\C-y] . [?\C-v]) + ;; search + ([?\C-s] . [?\C-f]))) + + ;; Enable EXWM + (exwm-enable) + + (add-hook 'exwm-init-hook #'exwm-config--fix/ido-buffer-window-other-frame) + + (require 'exwm-systemtray) + (exwm-systemtray-enable) + + (require 'exwm-randr) + (exwm-randr-enable) + + ;; (exwm-input-set-key + ;; (kbd "s-") + ;; (lambda () + ;; (interactive) + ;; (start-process "urxvt" nil "urxvt"))) + + ;; (exwm-input-set-key + ;; (kbd "s-SPC") ;; rofi doesn't properly launch programs when started from emacs + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "rofi-run" nil "rofi -show run -display-run '> ' -display-window ' 🗔 '"))) + + ;; (exwm-input-set-key + ;; (kbd "s-/") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "rofi-win" nil "rofi -show window -display-run '> ' -display-window ' 🗔 '"))) + + ;; (exwm-input-set-key + ;; (kbd "M-SPC") + ;; (lambda () + ;; (interactive) + ;; (start-process "rofi-pass" nil "rofi-pass"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "pamixer" nil "pamixer --toggle-mute"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "pamixer" nil "pamixer --allow-boost --decrease 5"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "pamixer" nil "pamixer --allow-boost --increase 5"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "mpc" nil "mpc toggle"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "mpc" nil "mpc prev"))) + + ;; (exwm-input-set-key + ;; (kbd "") + ;; (lambda () + ;; (interactive) + ;; (start-process-shell-command "mpc" nil "mpv next"))) + + (defun b/exwm-pasystray () + "A command used to start pasystray." + (interactive) + (if (executable-find "pasystray") + (progn + (message "EXWM: starting pasystray ...") + (start-process-shell-command "pasystray" nil "pasystray --notify=all")) + (message "EXWM: pasystray is not installed, abort!"))) + + (add-hook 'exwm-init-hook #'b/exwm-pasystray) + + (exwm-input-set-key + (kbd "s-t") + (lambda () + (interactive) + (exwm-floating-toggle-floating))) + + (exwm-input-set-key + (kbd "s-f") + (lambda () + (interactive) + (exwm-layout-toggle-fullscreen))) + + (exwm-input-set-key + (kbd "s-w") + (lambda () + (interactive) + (kill-buffer (current-buffer)))) + + (exwm-input-set-key + (kbd "s-q") + (lambda () + (interactive) + (exwm-manage--kill-client)))) + ;; use the org-plus-contrib package to get the whole deal (use-package org-plus-contrib) @@ -959,7 +1154,13 @@ This function is intended for use with `ivy-ignore-buffers'." (use-feature simple :delight (auto-fill-function " fill") - :config (column-number-mode)) + :config (column-number-mode) + :custom + ;; Save what I copy into clipboard from other applications into Emacs' + ;; kill-ring, which would allow me to still be able to easily access + ;; it in case I kill (cut or copy) something else inside Emacs before + ;; yanking (pasting) what I'd originally intended to. + (save-interprogram-paste-before-kill t)) ;; save minibuffer history (use-feature savehist @@ -1280,7 +1481,7 @@ This function is intended for use with `ivy-ignore-buffers'." "Go dark." (interactive) (mapc #'disable-theme custom-enabled-themes) - ;; (load-theme 'doom-tomorrow-night t) + (load-theme 'doom-tomorrow-night t) (sml/apply-theme 'automatic) (font-lock-add-keywords 'org-mode b/org-mode-font-lock-keywords t)) @@ -1335,7 +1536,7 @@ This function is intended for use with `ivy-ignore-buffers'." ;; prefixes for major modes (which-key-add-major-mode-key-based-replacements 'message-mode - "C-c f" "footnote") + "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 'web-mode @@ -1636,9 +1837,13 @@ This function is intended for use with `ivy-ignore-buffers'." (use-package pdf-tools :defer 0.5 :bind (:map pdf-view-mode-map - ("" . pdf-history-backward) - ("" . pdf-history-forward) - ("M-RET" . image-previous-line)) + ("" . pdf-history-backward) + ("" . pdf-history-backward) + ("" . pdf-history-backward) + ("" . pdf-history-forward) + ("" . pdf-history-forward) + ("" . pdf-history-forward) + ("M-RET" . image-previous-line)) :config (pdf-tools-install nil t) :custom (pdf-view-resize-factor 1.05)) @@ -1661,10 +1866,6 @@ This function is intended for use with `ivy-ignore-buffers'." (goto-char (cdr macro))) (reftex-this-word))))) -(use-feature files - :custom (auto-save-file-name-transforms - `((".*" ,(b/var "auto-save/") t)))) - ;;; Email (with Gnus) @@ -1942,7 +2143,11 @@ This function is intended for use with `ivy-ignore-buffers'." (bind-keys :map gnus-summary-mode-map ("M-L" . org-store-link)) - :hook (gnus-summary-mode . b/no-mouse-autoselect-window)) + :hook (gnus-summary-mode . b/no-mouse-autoselect-window) + :custom + (gnus-thread-sort-functions '(gnus-thread-sort-by-number + gnus-thread-sort-by-subject + gnus-thread-sort-by-date))) (use-feature gnus-msg :config @@ -2087,7 +2292,7 @@ https://csclub.uwaterloo.ca/~abandali") :bind (:map message-mode-map :prefix-map b/footnote-prefix-map - :prefix "C-c f" + :prefix "C-c f n" ("a" . footnote-add-footnote) ("b" . footnote-back-to-message) ("c" . footnote-cycle-style) @@ -2119,13 +2324,7 @@ https://csclub.uwaterloo.ca/~abandali") (use-feature ebdb-gnus :after ebdb :custom - (ebdb-gnus-window-configuration - '(article - (vertical 1.0 - (summary 0.25 point) - (horizontal 1.0 - (article 1.0) - (ebdb-gnus 0.3)))))) + (ebdb-gnus-window-size 0.3)) (use-feature ebdb-mua :after ebdb @@ -2161,6 +2360,16 @@ https://csclub.uwaterloo.ca/~abandali") (gnus-harvest-install 'message-x) (gnus-harvest-install)))) +(use-feature gnus-article-treat-patch + :disabled + :demand + :load-path "lisp/" + :config + ;; note: be sure to customize faces with `:foreground "white"' when + ;; using a theme with a white/light background :) + (setq ft/gnus-article-patch-conditions + '("^@@ -[0-9]+,[0-9]+ \\+[0-9]+,[0-9]+ @@"))) + ;;; IRC (with ERC and ZNC)