diff options
Diffstat (limited to '')
| -rw-r--r-- | .emacs.d/init.el | 407 |
1 files changed, 9 insertions, 398 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index f9518c2..7ab00be 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -113,7 +113,7 @@ plain variables. This means that `setopt' will execute any (load custom-file 'noerror)) ;; Start Emacs server -;; (https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html) +;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html (run-with-idle-timer 0.5 nil #'require 'server) (with-eval-after-load 'server (declare-function server-edit "server") @@ -122,361 +122,12 @@ plain variables. This means that `setopt' will execute any (or (server-running-p) (server-mode))) -;;; Defaults - -;;;; C source code - -(setq-default - ;; Case-sensitive search (and `dabbrev-expand'). - ;; case-fold-search nil - indent-tabs-mode nil ; always use space for indentation - ;; tab-width 4 - indicate-buffer-boundaries 'left) - -(setq - ;; line-spacing 3 - completion-ignore-case t - read-buffer-completion-ignore-case t - enable-recursive-minibuffers t - resize-mini-windows t - message-log-max 20000 - mode-line-compact t - ;; mouse-autoselect-window t - scroll-conservatively 15 - scroll-preserve-screen-position 1 - ;; I don't feel like randomly jumping out of my chair. - ring-bell-function 'ignore) - -;;;; elisp source code - -(with-eval-after-load 'minibuffer - (setopt read-file-name-completion-ignore-case t)) - -(with-eval-after-load 'files - (setopt - make-backup-files nil - ;; Insert newline at the end of files. - ;; require-final-newline t - ;; Open read-only file buffers in view-mode, to get `q' for quit. - view-read-only t) - (add-to-list 'auto-mode-alist '("\\README.*" . text-mode)) - (add-to-list 'auto-mode-alist '("\\.*rc$" . conf-mode)) - (add-to-list 'auto-mode-alist '("\\.bashrc$" . sh-mode)) - (add-to-list 'auto-mode-alist '("\\COMMIT_EDITMSG$" . text-mode))) - -(setq disabled-command-function nil) - -(run-with-idle-timer 0.1 nil #'require 'autorevert) -(with-eval-after-load 'autorevert - (setopt - ;; auto-revert-verbose nil - global-auto-revert-non-file-buffers nil) - (global-auto-revert-mode 1)) - -(run-with-idle-timer 0.1 nil #'require 'time) -(with-eval-after-load 'time - (setopt - display-time-default-load-average nil - display-time-format " %a %Y-%m-%d %-l:%M%P" - display-time-mail-icon - '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center) - display-time-use-mail-icon t - zoneinfo-style-world-list - `(,@zoneinfo-style-world-list - ("Etc/UTC" "UTC") - ("Asia/Tehran" "Tehran") - ("Australia/Melbourne" "Melbourne"))) - (unless (display-graphic-p) - (display-time-mode))) - -(defvar b/battery-format "%p%b %t") -(run-with-idle-timer 0.1 nil #'require 'battery) -(with-eval-after-load 'battery - (setopt battery-mode-line-format (format " [%s]" b/battery-format)) - ;; (display-battery-mode -1) - ) - -(run-with-idle-timer 0.5 nil #'require 'winner) -(with-eval-after-load 'winner - (winner-mode 1) - (when (featurep 'exwm) - ;; prevent a bad interaction between EXWM and winner-mode, where - ;; sometimes closing a window (like closing a terminal after - ;; entering a GPG password via pinentry-gnome3's floating window) - ;; results in a dead frame somewhere and effectively freezes EXWM. - (advice-add - 'winner-insert-if-new - :around - (lambda (orig-fun &rest args) - ;; only add the frame if it's live - (when (frame-live-p (car args)) - (apply orig-fun args)))))) - -(run-with-idle-timer 0.5 nil #'require 'windmove) -(with-eval-after-load 'windmove - (setopt windmove-wrap-around t) - (b/keymap-global-set "M-H" #'windmove-left) - (b/keymap-global-set "M-L" #'windmove-right) - (b/keymap-global-set "M-K" #'windmove-up) - (b/keymap-global-set "M-J" #'windmove-down)) - -(with-eval-after-load 'isearch - (setopt - isearch-allow-scroll t - isearch-lazy-count t - ;; Match non-ASCII variants during search - search-default-mode #'char-fold-to-regexp)) - -(b/keymap-global-set "C-x v C-=" #'vc-ediff) - -(with-eval-after-load 'vc-git - (setopt - ;; vc-git-show-stash 0 - vc-git-print-log-follow t)) - -(with-eval-after-load 'ediff - (setopt - ediff-window-setup-function #'ediff-setup-windows-plain - ediff-split-window-function #'split-window-horizontally)) - -;; (with-eval-after-load 'face-remap -;; (setopt -;; ;; Gentler font resizing. -;; text-scale-mode-step 1.05)) - -(run-with-idle-timer 0.4 nil #'require 'mwheel) -(with-eval-after-load 'mwheel - (setopt - 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 - -(run-with-idle-timer 0.4 nil #'require 'pixel-scroll) -(with-eval-after-load 'pixel-scroll - (pixel-scroll-mode 1)) - -(with-eval-after-load 'epg-config - (setopt - epg-gpg-program (executable-find "gpg") - ;; Ask for GPG passphrase in minibuffer. - ;; Will fail if gpg >= 2.1 is not available. - epg-pinentry-mode 'loopback)) - -;; (with-eval-after-load 'auth-source -;; (setopt -;; auth-sources '("~/.authinfo.gpg") -;; authinfo-hidden -;; (regexp-opt '("password" "client-secret" "token")))) - -(with-eval-after-load 'info - (setq - Info-directory-list - `(,@Info-directory-list - ,(expand-file-name - (convert-standard-filename "info/") source-directory) - "/usr/share/info/"))) - -(when (display-graphic-p) - (set-fontset-font t 'arabic "Sahel WOL") - (let ((emoji-font "Apple Color Emoji")) - (when (member emoji-font (font-family-list)) - (set-fontset-font - t 'emoji `(,emoji-font . "iso10646-1") nil 'prepend))) - (with-eval-after-load 'faces - (let ((grey "#e7e7e7")) - ;; (set-face-attribute 'default nil - ;; :font "Source Code Pro" - ;; :height 113 ; 130 ; 105 - ;; :weight 'medium) - ;; (set-face-attribute 'fixed-pitch nil - ;; :font "Source Code Pro" - ;; :weight 'medium) - ;; (set-face-attribute 'default nil - ;; :font "Inconsolata Medium-12:hinting=true:autohint=true") - ;; (set-face-attribute 'fixed-pitch nil - ;; :font "Inconsolata Medium-12:hinting=true:autohint=true") - (set-face-attribute 'default nil - :font "Source Code Pro Medium-10.5") - (set-face-attribute 'fixed-pitch nil - :font "Source Code Pro Medium-10.5") - (set-face-attribute 'mode-line nil - :box '(:line-width 2 :style released-button) - :background grey - :inherit 'fixed-pitch)))) - -(when (and (version< emacs-version "28") mode-line-compact) - ;; Manually make some `mode-line' spaces smaller. - ;; Emacs 28 and above do a terrific job at this out of the box - ;; when `mode-line-compact' is set to t (see above)." - (setq-default - mode-line-format - (mapcar - (lambda (x) - (if (and (stringp x) - (or (string= x " ") - (string= x " "))) - " " - x)) - mode-line-format) - mode-line-buffer-identification - (propertized-buffer-identification "%10b"))) - - -;;; Useful utilities - -(defun b/insert-asterism () - "Insert a centred asterism." - (interactive) - (let ((asterism "* * *")) - (insert - (concat - "\n" - (make-string - (floor (/ (- fill-column (length asterism)) 2)) - ?\s) - asterism - "\n")))) - -(defun b/join-line-top () - "Like `join-line', but join next line to the current line." - (interactive) - (join-line 1)) - -(defun b/*scratch* () - "Switch to `*scratch*' buffer, creating it if it does not exist." - (interactive) - (let ((fun (if (functionp #'get-scratch-buffer-create) - #'get-scratch-buffer-create ; (version<= "29" emacs-version) - #'startup--get-buffer-create-scratch))) ; (version< emacs-version "29") - (switch-to-buffer (funcall fun)))) - -(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)))))) - -(defun b/invert-default-face (arg) - "Invert the `default' and `mode-line' faces for the current frame. -Swap the background and foreground for the two `default' and -`mode-line' faces, effectively acting like a simple light/dark -theme toggle. If prefix argument ARG is given, invert the faces -for all frames." - (interactive "P") - (let ((frame (unless arg - (selected-frame)))) - (invert-face 'default frame) - (invert-face 'mode-line frame) - (when (fboundp #'exwm-systemtray--refresh-background-color) - (exwm-systemtray--refresh-background-color 'remap)))) - -(defun b/unfill-paragraph-or-region (&optional beg end) - "Unfill paragraph, or region (if active)." - (interactive "r") - (let ((fill-column most-positive-fixnum)) - (if (use-region-p) - (fill-region beg end) - (fill-paragraph)))) - - -;;; General key bindings - -(let ((kfs - '(("C-c i" . ielm) - ("C-c d" . b/duplicate-line-or-region) - ("C-c j" . b/join-line-top) - ("C-S-j" . b/join-line-top) - ("C-c s c" . b/*scratch*) - ("C-c v" . b/invert-default-face) - ("C-c q" . b/unfill-paragraph-or-region) - ;; evaling and macro-expanding - ("C-c e b" . eval-buffer) - ("C-c e e" . eval-last-sexp) - ("C-c e m" . pp-macroexpand-last-sexp) - ("C-c e r" . eval-region) - ;; emacs things - ("C-c e i" . emacs-init-time) - ("C-c e u" . emacs-uptime) - ("C-c e v" . emacs-version) - ;; finding - ("C-c f ." . find-file) - ("C-c f l" . find-library) - ("C-c f p" . find-file-at-point) - ;; frames - ("C-c F m" . make-frame-command) - ("C-c F d" . delete-frame) - ;; help/describe - ("C-c h F" . describe-face)))) - (dolist (kf kfs) - (let ((key (car kf)) - (fun (cdr kf))) - (b/keymap-global-set key fun)))) - -(when (display-graphic-p) - ;; Too easy to accidentally suspend (freeze) Emacs GUI. - (b/keymap-global-unset "C-z")) - - ;;; Essential packages (add-to-list 'load-path (b/emacs.d "lisp")) +(require 'bandali-essentials) ;; (require 'bandali-exwm) - -;; recently opened files -(run-with-idle-timer 0.2 nil #'require 'recentf) -(with-eval-after-load 'recentf - (setopt recentf-max-saved-items 2000) - (recentf-mode) - - (defun b/recentf-open () - "Use `completing-read' to \\[find-file] a recent file." - (interactive) - (find-file - (completing-read "Find recent file: " recentf-list))) - (b/keymap-global-set "C-c f r" #'b/recentf-open)) - -(with-eval-after-load 'help - (temp-buffer-resize-mode) - (setopt help-window-select t)) - -(with-eval-after-load 'help-mode - (let ((m help-mode-map)) - (b/keymap-set m "p" #'backward-button) - (b/keymap-set m "n" #'forward-button) - (b/keymap-set m "b" #'help-go-back) - (b/keymap-set m "f" #'help-go-forward))) - -(with-eval-after-load 'doc-view - (b/keymap-set doc-view-mode-map "M-RET" #'image-previous-line)) - -(with-eval-after-load 'shr - (setopt shr-max-width 80)) - -(with-eval-after-load 'mule-cmds - (setopt default-input-method "farsi-isiri-9147")) - -(with-eval-after-load 'tramp - (tramp-set-completion-function - "ssh" - (append (tramp-get-completion-function "ssh") - (mapcar (lambda (file) `(tramp-parse-sconfig ,file)) - (directory-files - "~/.ssh/config.d/" - 'full directory-files-no-dot-files-regexp))))) - (require 'bandali-eshell) (require 'bandali-ibuffer) (require 'bandali-dired) @@ -492,52 +143,15 @@ for all frames." (require 'bandali-erc) -;;; Editing - -;; Display Lisp objects at point in the echo area. -(with-eval-after-load 'eldoc - (setopt eldoc-minor-mode-string " eldoc") - (global-eldoc-mode 1)) - -;; highlight matching parens -(run-with-idle-timer 0.2 nil #'require 'paren) -(with-eval-after-load 'paren - (show-paren-mode 1)) +;;; Programming modes -(with-eval-after-load 'simple - (setopt - ;; 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) - (column-number-mode 1) - (line-number-mode 1)) - -(run-with-idle-timer 0.2 nil #'require 'savehist) -(with-eval-after-load 'savehist - ;; Save minibuffer history. - (savehist-mode 1) - (add-to-list 'savehist-additional-variables 'kill-ring)) - -;; Automatically save place in files. -(run-with-idle-timer 0.2 nil #'require 'saveplace nil 'noerror) -(with-eval-after-load 'saveplace - (save-place-mode 1)) - -(with-eval-after-load 'flyspell - (setopt flyspell-mode-line-string " fly")) - -(with-eval-after-load 'text-mode - (add-hook 'text-mode-hook #'flyspell-mode) - (b/keymap-set text-mode-map "M-RET" #'b/insert-asterism)) - -(with-eval-after-load 'abbrev - (add-hook 'text-mode-hook #'abbrev-mode)) +(use-package elisp-mode + :bind + ("C-c e e" . eval-last-sexp)) - -;;; Programming modes +(use-package pp + :bind + ("C-c e m" . pp-macroexpand-last-sexp)) (with-eval-after-load 'lisp-mode (add-hook @@ -594,9 +208,6 @@ for all frames." ;;; Emacs enhancements & auxiliary packages -(with-eval-after-load 'man - (setopt Man-width 80)) - ;; `debbugs' (b/keymap-global-set "C-c D d" #'debbugs-gnu) (b/keymap-global-set "C-c D b" #'debbugs-gnu-bugs) |