git.shemshak.org - ~bandali/configs/blob - .emacs.d/init.el

   1 ;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
   2
   3 ;; Copyright (C) 2018-2021  Amin Bandali <bandali@gnu.org>
   4
   5 ;; This program is free software: you can redistribute it and/or modify
   6 ;; it under the terms of the GNU General Public License as published by
   7 ;; the Free Software Foundation, either version 3 of the License, or
   8 ;; (at your option) any later version.
   9
  10 ;; This program is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;; GNU General Public License for more details.
  14
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
  17
  18 ;;; Commentary:
  19
  20 ;; GNU Emacs configuration of bandali, free software activist,
  21 ;; computing scientist, and GNU maintainer and volunteer.
  22
  23 ;; Over the years, I've taken inspiration from configurations of many
  24 ;; great people.  Some that I can remember off the top of my head are:
  25 ;;
  26 ;; - https://github.com/dieggsy/dotfiles
  27 ;; - https://github.com/dakra/dmacs
  28 ;; - http://pages.sachachua.com/.emacs.d/Sacha.html
  29 ;; - https://github.com/dakrone/eos
  30 ;; - http://doc.rix.si/cce/cce.html
  31 ;; - https://github.com/jwiegley/dot-emacs
  32 ;; - https://github.com/wasamasa/dotemacs
  33 ;; - https://github.com/hlissner/doom-emacs
  34
  35 ;;; Code:
  36
  37 ;;; Emacs initialization
  38
  39 (defvar b/before-user-init-time (current-time)
  40   "Value of `current-time' when Emacs begins loading `user-init-file'.")
  41 (defvar b/emacs-initialized nil
  42   "Whether Emacs has been initialized.")
  43
  44 (when (not (bound-and-true-p b/emacs-initialized))
  45   (message "Loading Emacs...done (%.3fs)"
  46            (float-time (time-subtract b/before-user-init-time
  47                                       before-init-time))))
  48
  49 ;; temporarily increase `gc-cons-threshhold' and `gc-cons-percentage'
  50 ;; during startup to reduce garbage collection frequency.  clearing
  51 ;; `file-name-handler-alist' seems to help reduce startup time too.
  52 (defvar b/gc-cons-threshold gc-cons-threshold)
  53 (defvar b/gc-cons-percentage gc-cons-percentage)
  54 (defvar b/file-name-handler-alist file-name-handler-alist)
  55 (setq gc-cons-threshold (* 30 1024 1024)  ; 30 MiB
  56       gc-cons-percentage 0.6
  57       file-name-handler-alist nil
  58       ;; sidesteps a bug when profiling with esup
  59       esup-child-profile-require-level 0)
  60
  61 ;; set them back to their defaults once we're done initializing
  62 (defun b/post-init ()
  63   "My post-initialize function, run after loading `user-init-file'."
  64   (setq b/emacs-initialized     t
  65         gc-cons-threshold       b/gc-cons-threshold
  66         gc-cons-percentage      b/gc-cons-percentage
  67         file-name-handler-alist b/file-name-handler-alist)
  68   (when (featurep 'exwm-workspace)
  69     (with-eval-after-load 'exwm-workspace
  70       (setq-default
  71        mode-line-format
  72        (append
  73         mode-line-format
  74         '((:eval
  75            (format
  76             "[%s]" (number-to-string
  77                     exwm-workspace-current-index))))))))
  78   (when (version< emacs-version "28")
  79     ;; manually make some mode-line spaces smaller
  80     ;; (version<= "28" emacs-version) can do an awesome job at this
  81     ;; out of the box if `mode-line-compact' is set to t (see below)
  82     (setq-default
  83      mode-line-format
  84      (mapcar
  85       (lambda (x)
  86         (if (and (stringp x)
  87                  (or (string= x "   ")
  88                      (string= x "  ")))
  89             " "
  90           x))
  91       mode-line-format)
  92      mode-line-buffer-identification
  93      (propertized-buffer-identification "%10b"))))
  94 (add-hook 'after-init-hook #'b/post-init)
  95
  96 ;; increase number of lines kept in *Messages* log
  97 (setq message-log-max 20000)
  98
  99 \f
 100 ;;; whoami
 101
 102 (setq ;; user-full-name "bandali"
 103       user-mail-address "bandali@gnu.org")
 104
 105 \f
 106 ;;; csetq (`custom' setq)
 107
 108 (require 'cl-lib)
 109
 110 (defmacro csetq (&rest args)
 111   "Set the value of user option VAR to VALUE.
 112
 113 More generally, you can use multiple variables and values, as in
 114   (csetq VAR VALUE VAR VALUE...)
 115 This sets each user option VAR's value to the corresponding VALUE.
 116
 117 \(fn [VAR VALUE]...)"
 118   (declare (debug setq))
 119   `(progn
 120      ,@(cl-loop for (var value) on args by 'cddr
 121                 collect
 122                 `(funcall (or (get ',var 'custom-set) #'set-default)
 123                           ',var ,value))))
 124
 125 \f
 126 ;;; Package management
 127
 128 ;; variables of interest:
 129 ;;   package-archive-priorities
 130 ;;   package-load-list
 131 ;;   package-pinned-packages
 132
 133 ;; (let* ((b (find-file-noselect "refinery-theme.el"))
 134 ;;        (d (with-current-buffer b (package-buffer-info))))
 135 ;;   (package-generate-description-file d "refinery-theme-pkg.el"))
 136 (run-with-idle-timer 0.01 nil #'require 'package)
 137 (with-eval-after-load 'package
 138   (when (= (length package-archives) 1)
 139     (csetq
 140      package-archives
 141      `(,@package-archives
 142        ;; ("bndl" . "https://p.bndl.org/elpa/")
 143        ("org" . "https://orgmode.org/elpa/"))
 144      package-load-list
 145      '(;; GNU ELPA
 146        (debbugs "0.26")
 147        (delight "1.7")
 148        (orgalist "1.13")
 149        (rt-liberation "1.31")
 150        (yasnippet "0.14.0")
 151        (expand-region "0.11.0")
 152        (emms "6.2")
 153        ;; bndl
 154        ;; (refinery-theme "0.1.1")
 155        ;; Org ELPA
 156        (org-plus-contrib "20201109"))))
 157   (package-initialize))
 158
 159 (csetq package-archive-upload-base "/ssh:caffeine:~/www/p/elpa")
 160
 161 \f
 162 ;;; Initial setup
 163
 164 ;; keep ~/.emacs.d clean
 165 (defvar b/etc-dir
 166   (expand-file-name
 167    (convert-standard-filename "etc/") user-emacs-directory)
 168   "The directory where packages place their configuration files.")
 169 (defvar b/var-dir
 170   (expand-file-name
 171    (convert-standard-filename "var/") user-emacs-directory)
 172   "The directory where packages place their persistent data files.")
 173 (defvar b/lisp-dir
 174   (expand-file-name
 175    (convert-standard-filename "lisp/") user-emacs-directory)
 176   "The directory where packages place their persistent data files.")
 177 (defun b/etc (file)
 178   "Expand filename FILE relative to `b/etc-dir'."
 179   (expand-file-name (convert-standard-filename file) b/etc-dir))
 180 (defun b/var (file)
 181   "Expand filename FILE relative to `b/var-dir'."
 182   (expand-file-name (convert-standard-filename file) b/var-dir))
 183 (defun b/lisp (file)
 184   "Expand filename FILE relative to `b/lisp-dir'."
 185   (expand-file-name (convert-standard-filename file) b/lisp-dir))
 186
 187 (csetq
 188  auto-save-list-file-prefix (b/var "auto-save/sessions/")
 189  nsm-settings-file (b/var "nsm-settings.el"))
 190
 191 ;; separate custom file (don't want it mixing with init.el)
 192 (with-eval-after-load 'custom
 193   (setq custom-file (b/etc "custom.el"))
 194   (when (file-exists-p custom-file)
 195     (load custom-file))
 196   ;; while at it, treat themes as safe
 197   ;; (setf custom-safe-themes t)
 198   ;; only one custom theme at a time
 199   ;; (defadvice load-theme (before clear-previous-themes activate)
 200   ;;   "Clear existing theme settings instead of layering them"
 201   ;;   (mapc #'disable-theme custom-enabled-themes))
 202   )
 203
 204 ;; load the secrets file if it exists, otherwise show a warning
 205 ;; (with-demoted-errors
 206 ;;     (load (b/etc "secrets")))
 207
 208 ;; start up emacs server.  see
 209 ;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server
 210 (run-with-idle-timer 0.5 nil #'require 'server)
 211 (with-eval-after-load 'server
 212   (declare-function server-edit "server")
 213   (global-set-key (kbd "C-c F D") #'server-edit)
 214   (declare-function server-running-p "server")
 215   (or (server-running-p) (server-mode)))
 216
 217 \f
 218 ;;; Defaults
 219
 220 ;;;; C-level customizations
 221
 222 (csetq
 223  ;; completion case sensitivity
 224  completion-ignore-case t
 225  read-buffer-completion-ignore-case t
 226  ;; minibuffer
 227  enable-recursive-minibuffers t
 228  resize-mini-windows t
 229  ;; mode-line
 230  mode-line-compact t
 231  ;; i don't feel like jumping out of my chair every now and again;
 232  ;; so...don't *BEEP* at me, emacs =)
 233  ring-bell-function 'ignore
 234  ;; better scrolling
 235  ;; scroll-conservatively 101
 236  scroll-conservatively 15
 237  ;; scroll-preserve-screen-position 1
 238  ;; focus follows mouse
 239  ;; mouse-autoselect-window t
 240  )
 241
 242 (setq-default
 243  ;; case-sensitive search (and `dabbrev-expand')
 244  ;; case-fold-search nil
 245  ;; always use space for indentation
 246  indent-tabs-mode nil
 247  tab-width 4)
 248
 249 (set-fontset-font t 'arabic "Vazir")
 250
 251 ;;;; Elisp-level customizations
 252
 253 ;; (define-key minibuffer-local-completion-map
 254 ;;   "\t" #'minibuffer-force-complete)
 255
 256 ;; (with-eval-after-load 'icomplete
 257
 258 ;; (setq icomplete-on-del-error-function #'abort-recursive-edit)
 259
 260 ;; (defun b/icomplete-fido-backward-updir ()
 261 ;;   "Delete char before or go up directory, like `ido-mode'."
 262 ;;   (interactive)
 263 ;;   (if (and (eq (char-before) ?/)
 264 ;;            (eq (icomplete--category) 'file))
 265 ;;       (save-excursion
 266 ;;         (goto-char (1- (point)))
 267 ;;         (when (search-backward "/" (point-min) t)
 268 ;;           (delete-region (1+ (point)) (point-max))))
 269 ;;     (condition-case nil
 270 ;;         (call-interactively #'delete-backward-char)
 271 ;;       (error
 272 ;;        (when icomplete-on-del-error-function
 273 ;;          (funcall icomplete-on-del-error-function))))))
 274
 275 ;; (define-key icomplete-fido-mode-map
 276 ;;   (kbd "DEL") #'b/icomplete-fido-backward-updir))
 277
 278 ;; (with-eval-after-load 'subr
 279 ;;   (keyboard-translate ?\( ?\[)
 280 ;;   (keyboard-translate ?\) ?\])
 281 ;;   (keyboard-translate ?\[ ?\()
 282 ;;   (keyboard-translate ?\] ?\))
 283
 284 ;;   ;; (keyboard-translate ?\( ?\()
 285 ;;   ;; (keyboard-translate ?\) ?\))
 286 ;;   ;; (keyboard-translate ?\[ ?\[)
 287 ;;   ;; (keyboard-translate ?\] ?\])
 288 ;; )
 289
 290 ;; minibuffer
 291 (csetq read-file-name-completion-ignore-case t)
 292
 293 ;; startup
 294 ;; don't need to see the startup echo area message
 295 (advice-add #'display-startup-echo-area-message :override #'ignore)
 296 (csetq
 297  ;; i want *scratch* as my startup buffer
 298  initial-buffer-choice t
 299  ;; i don't need the default hint
 300  initial-scratch-message nil
 301  ;; use customizable text-mode as major mode for *scratch*
 302  ;; (initial-major-mode 'text-mode)
 303  ;; inhibit buffer list when more than 2 files are loaded
 304  inhibit-startup-buffer-menu t
 305  ;; don't need to see the startup screen or echo area message
 306  inhibit-startup-screen t
 307  inhibit-startup-echo-area-message user-login-name)
 308
 309 ;; files
 310 (csetq
 311  ;; backups (C-h v make-backup-files RET)
 312  backup-by-copying t
 313  backup-directory-alist (list (cons "." (b/var "backup/")))
 314  version-control t
 315  delete-old-versions t
 316  ;; auto-save
 317  auto-save-file-name-transforms `((".*" ,(b/var "auto-save/") t))
 318  ;; insert newline at the end of files
 319  ;; require-final-newline t
 320  ;; open read-only file buffers in view-mode
 321  ;; (enables niceties like `q' for quit)
 322  view-read-only t)
 323
 324 ;; novice
 325 ;; disable disabled commands
 326 (csetq disabled-command-function nil)
 327
 328 ;; lazy-person-friendly yes/no prompts
 329 (defalias 'yes-or-no-p #'y-or-n-p)
 330
 331 ;; autorevert: enable automatic reloading of changed buffers and files
 332 (csetq auto-revert-verbose nil
 333        global-auto-revert-non-file-buffers nil)
 334 (require 'autorevert)
 335 (global-auto-revert-mode 1)
 336
 337 ;; time and battery in mode-line
 338 (run-with-idle-timer 0.1 nil #'require 'time)
 339 (with-eval-after-load 'time
 340   (csetq
 341    display-time-default-load-average nil
 342    display-time-format " %a %b %-e %-l:%M%P"
 343    display-time-mail-icon '(image :type xpm
 344                                   :file "gnus/gnus-pointer.xpm"
 345                                   :ascent center)
 346    display-time-use-mail-icon t)
 347   (display-time-mode))
 348
 349 (run-with-idle-timer 0.1 nil #'require 'battery)
 350 (with-eval-after-load 'battery
 351   (csetq battery-mode-line-format " %p%% %t")
 352   (display-battery-mode))
 353
 354 ;; (with-eval-after-load 'fringe
 355 ;;   ;; smaller fringe
 356 ;;   (fringe-mode '(3 . 1)))
 357
 358 ;; enable winner-mode (C-h f winner-mode RET)
 359 (require 'winner)
 360 (winner-mode 1)
 361
 362 (with-eval-after-load 'compile
 363   ;; don't display *compilation* buffer on success.  based on
 364   ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
 365   ;; instead of the now obsolete `flet'.
 366   (defun b/compilation-finish-function (buffer outstr)
 367     (unless (string-match "finished" outstr)
 368       (switch-to-buffer-other-window buffer))
 369     t)
 370
 371   (setq compilation-finish-functions #'b/compilation-finish-function)
 372
 373   (require 'cl-macs)
 374
 375   (defadvice compilation-start
 376       (around inhibit-display
 377               (command &optional mode name-function highlight-regexp))
 378     (if (not (string-match "^\\(find\\|grep\\)" command))
 379         (cl-letf (((symbol-function 'display-buffer) #'ignore))
 380           (save-window-excursion ad-do-it))
 381       ad-do-it))
 382   (ad-activate 'compilation-start))
 383
 384 ;; isearch
 385 (csetq
 386  ;; allow scrolling in Isearch
 387  isearch-allow-scroll t
 388  isearch-lazy-count t
 389  ;; search for non-ASCII characters: i’d like non-ASCII characters such
 390  ;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII
 391  ;; counterpart.  shoutout to
 392  ;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html
 393  search-default-mode #'char-fold-to-regexp)
 394
 395 ;; replace
 396 ;; uncomment to extend the above behaviour to query-replace
 397 ;; (csetq replace-char-fold t)
 398
 399 ;; vc
 400 (global-set-key (kbd "C-x v C-=") #'vc-ediff)
 401
 402 (with-eval-after-load 'vc-git
 403   (csetq vc-git-print-log-follow t
 404          vc-git-show-stash 0))
 405
 406 (csetq ediff-window-setup-function 'ediff-setup-windows-plain
 407        ediff-split-window-function 'split-window-horizontally)
 408 (with-eval-after-load 'ediff
 409   (add-hook 'ediff-after-quit-hook-internal #'winner-undo))
 410
 411 ;; face-remap
 412 (csetq
 413  ;; gentler font resizing
 414  text-scale-mode-step 1.05)
 415
 416 (run-with-idle-timer 0.4 nil #'require 'mwheel)
 417 (csetq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
 418        mouse-wheel-progressive-speed nil ; don't accelerate scrolling
 419        mouse-wheel-follow-mouse t)       ; scroll window under mouse
 420
 421 (run-with-idle-timer 0.4 nil #'require 'pixel-scroll)
 422 (with-eval-after-load 'pixel-scroll
 423   (pixel-scroll-mode 1))
 424
 425 ;; epg-config
 426 (csetq
 427  epg-gpg-program (executable-find "gpg")
 428  ;; ask for GPG passphrase in minibuffer
 429  ;; this will fail if gpg>=2.1 is not available
 430  epg-pinentry-mode 'loopback)
 431
 432 ;; (require 'pinentry)
 433 ;; workaround for systemd-based distros:
 434 ;; (setq pinentry--socket-dir server-socket-dir)
 435 ;; (pinentry-start)
 436
 437 ;; auth-source
 438 (csetq
 439  auth-sources '("~/.authinfo.gpg")
 440  authinfo-hidden (regexp-opt '("password" "client-secret" "token")))
 441
 442 ;; info
 443 (with-eval-after-load 'info
 444   (add-to-list
 445    'Info-directory-list
 446    (expand-file-name
 447     (convert-standard-filename "info/") source-directory)))
 448
 449 ;; faces
 450 (when (display-graphic-p)
 451   (with-eval-after-load 'faces
 452     (let* ((grey "#e7e7e7")
 453            (darker-grey "#d9d9d9")
 454            (box ;; 'unspecified
 455                 `(:line-width -1 :style released-button)))
 456       (set-face-attribute 'mode-line nil
 457                           :background grey :box box)
 458       ;; (set-face-attribute 'mode-line-inactive nil
 459       ;;                     :background darker-grey :box box)
 460       )))
 461
 462 \f
 463 ;;; Useful utilities
 464
 465 (defun b/add-elisp-section ()
 466   (interactive)
 467   (insert "\n")
 468   (forward-line -1)
 469   (insert "\n\f\n;;; "))
 470
 471 (defun b/insert-asterism ()
 472   "Insert a centred asterism."
 473   (interactive)
 474   (let ((asterism "* * *"))
 475     (insert
 476      (concat
 477       "\n"
 478       (make-string
 479        (floor (/ (- fill-column (length asterism)) 2))
 480        ?\s)
 481       asterism
 482       "\n"))))
 483
 484 (defun b/start-process (program &rest args)
 485   "Same as `start-process', but doesn't bother about name and buffer."
 486   (let ((process-name (concat program "_process"))
 487         (buffer-name  (generate-new-buffer-name
 488                        (concat program "_output"))))
 489     (apply #'start-process
 490            process-name buffer-name program args)))
 491
 492 (defun b/no-mouse-autoselect-window ()
 493   "Conveniently disable `focus-follows-mouse'.
 494 For disabling the behaviour for certain buffers and/or modes."
 495   (make-local-variable 'mouse-autoselect-window)
 496   (setq mouse-autoselect-window nil))
 497
 498 (defun b/kill-current-buffer ()
 499   "Kill the current buffer."
 500   ;; also see https://redd.it/64xb3q
 501   (interactive)
 502   (kill-buffer (current-buffer)))
 503
 504 (defun b/move-indentation-or-beginning-of-line (arg)
 505   "Move to the indentation or to the beginning of line."
 506   (interactive "^p")
 507   ;; (if (bolp)
 508   ;;     (back-to-indentation)
 509   ;;   (move-beginning-of-line arg))
 510   (if (= (point)
 511          (progn (back-to-indentation)
 512                 (point)))
 513       (move-beginning-of-line arg)))
 514
 515 (defun b/join-line-top ()
 516   "Like `join-line', but join next line to the current line."
 517   (interactive)
 518   (join-line 1))
 519
 520 (defun b/duplicate-line-or-region (&optional n)
 521   "Duplicate the current line, or region (if active).
 522 Make N (default: 1) copies of the current line or region."
 523   (interactive "*p")
 524   (let ((u-r-p (use-region-p))          ; if region is active
 525         (n1 (or n 1)))
 526     (save-excursion
 527       (let ((text
 528              (if u-r-p
 529                  (buffer-substring (region-beginning) (region-end))
 530                (prog1 (thing-at-point 'line)
 531                  (end-of-line)
 532                  (if (eobp)
 533                      (newline)
 534                    (forward-line 1))))))
 535         (dotimes (_ (abs n1))
 536           (insert text))))))
 537
 538 \f
 539 ;;; General key bindings
 540
 541 (global-set-key (kbd "C-a") #'b/move-indentation-or-beginning-of-line)
 542 (global-set-key (kbd "C-c a i") #'ielm)
 543 (global-set-key (kbd "C-c d") #'b/duplicate-line-or-region)
 544 (global-set-key (kbd "C-c j") #'b/join-line-top)
 545 (global-set-key (kbd "C-S-j") #'b/join-line-top)
 546 (global-set-key (kbd "C-c x") #'execute-extended-command)
 547
 548 ;; evaling and macro-expanding
 549 (global-set-key (kbd "C-c e b") #'eval-buffer)
 550 (global-set-key (kbd "C-c e e") #'eval-last-sexp)
 551 (global-set-key (kbd "C-c e m") #'pp-macroexpand-last-sexp)
 552 (global-set-key (kbd "C-c e r") #'eval-region)
 553
 554 ;; emacs things
 555 (global-set-key (kbd "C-c e i") #'emacs-init-time)
 556 (global-set-key (kbd "C-c e u") #'emacs-uptime)
 557 (global-set-key (kbd "C-c e v") #'emacs-version)
 558
 559 ;; finding
 560 (global-set-key (kbd "C-c f .") #'find-file)
 561 (global-set-key (kbd "C-c f d") #'find-name-dired)
 562 (global-set-key (kbd "C-c f l") #'find-library)
 563 (global-set-key (kbd "C-c f p") #'find-file-at-point)
 564
 565 ;; frames
 566 (global-set-key (kbd "C-c F m") #'make-frame-command)
 567 (global-set-key (kbd "C-c F d") #'delete-frame)
 568
 569 ;; help/describe
 570 (global-set-key (kbd "C-S-h F") #'describe-face)
 571
 572 ;; (global-set-key (kbd "C-x k") #'b/kill-current-buffer)
 573 ;; (global-set-key (kbd "C-x K") #'kill-buffer)
 574
 575 (define-key emacs-lisp-mode-map (kbd "C-<return>") #'b/add-elisp-section)
 576
 577 (when (display-graphic-p)
 578   (global-unset-key (kbd "C-z")))
 579
 580 \f
 581 ;;; Essential packages
 582
 583 (add-to-list
 584  'load-path
 585  (expand-file-name
 586   (convert-standard-filename "lisp") user-emacs-directory))
 587
 588 ;; (require 'bandali-exwm)
 589
 590 (require 'bandali-org)
 591
 592 ;; (require 'bandali-theme)
 593
 594 ;; recently opened files
 595 (csetq recentf-max-saved-items 2000
 596        recentf-save-file (b/var "recentf-save.el"))
 597 (run-with-idle-timer 0.2 nil #'require 'recentf)
 598 (with-eval-after-load 'recentf
 599   ;; (add-to-list 'recentf-keep #'file-remote-p)
 600   (recentf-mode)
 601
 602   (defun b/recentf-open ()
 603   "Use `completing-read' to \\[find-file] a recent file."
 604   (interactive)
 605   (find-file
 606    (completing-read "Find recent file: " recentf-list)))
 607   (global-set-key (kbd "C-c f r") #'b/recentf-open))
 608
 609 ;; (fido-mode 1)
 610 ;; (defun b/icomplete--fido-mode-setup ()
 611 ;;   "Customizations to `fido-mode''s minibuffer."
 612 ;;   (when (and icomplete-mode (icomplete-simple-completing-p))
 613 ;;     (setq-local
 614 ;;      ;; icomplete-compute-delay 0.1
 615 ;;      ;; icomplete-hide-common-prefix t
 616 ;;      icomplete-separator " · "
 617 ;;      completion-styles '(basic substring partial-completion flex))))
 618 ;; (add-hook 'minibuffer-setup-hook #'b/icomplete--fido-mode-setup 1)
 619
 620 (require 'bandali-eshell)
 621
 622 (require 'bandali-ibuffer)
 623
 624 (require 'bandali-dired)
 625
 626 (with-eval-after-load 'help
 627   (temp-buffer-resize-mode)
 628   (csetq help-window-select t))
 629
 630 (with-eval-after-load 'help-mode
 631   ;; local key bindings
 632   (define-key help-mode-map (kbd "p") #'backward-button)
 633   (define-key help-mode-map (kbd "n") #'forward-button))
 634
 635 (with-eval-after-load 'tramp
 636   (csetq tramp-auto-save-directory (b/var "tramp/auto-save/")
 637          tramp-persistency-file-name (b/var "tramp/persistency.el"))
 638   (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
 639   (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
 640   (add-to-list 'tramp-default-proxies-alist
 641                (list (regexp-quote (system-name)) nil nil)))
 642
 643 (with-eval-after-load 'doc-view
 644   (define-key doc-view-mode-map (kbd "M-RET") #'image-previous-line))
 645
 646 (csetq shr-max-width 80)
 647
 648 ;; Email (with Gnus, message, and smtpmail)
 649 (require 'bandali-gnus)
 650 (require 'bandali-message)
 651 ;; (with-eval-after-load 'smtpmail
 652 ;;   (csetq smtpmail-queue-mail t
 653 ;;          smtpmail-queue-dir (concat b/maildir "queue/")))
 654
 655 ;; IRC (with ERC)
 656 (require 'bandali-erc)
 657
 658 ;; 'paste' service (aka scp + web server)
 659 (add-to-list 'load-path (b/lisp "scpaste"))
 660 (with-eval-after-load 'scpaste
 661   (csetq scpaste-http-destination "https://p.bndl.org"
 662          scpaste-scp-destination "p:~"))
 663 (autoload 'scpaste "scpaste" nil t)
 664 (autoload 'scpaste-region "scpaste" nil t)
 665 (global-set-key (kbd "C-c a p p") #'scpaste)
 666 (global-set-key (kbd "C-c a p r") #'scpaste-region)
 667
 668 \f
 669 ;;; Editing
 670
 671 ;; display Lisp objects at point in the echo area
 672 (when (version< "25" emacs-version)
 673   (with-eval-after-load 'eldoc
 674     (csetq eldoc-minor-mode-string " eldoc")
 675     (global-eldoc-mode)))
 676
 677 ;; highlight matching parens
 678 (require 'paren)
 679 (show-paren-mode)
 680
 681 ;; (require 'elec-pair)
 682 ;; (electric-pair-mode)
 683
 684 (csetq
 685  ;; Save what I copy into clipboard from other applications into Emacs'
 686  ;; kill-ring, which would allow me to still be able to easily access
 687  ;; it in case I kill (cut or copy) something else inside Emacs before
 688  ;; yanking (pasting) what I'd originally intended to.
 689  save-interprogram-paste-before-kill t)
 690 (with-eval-after-load 'simple
 691   (column-number-mode 1)
 692   (line-number-mode 1))
 693
 694 ;; save minibuffer history
 695 (require 'savehist)
 696 (csetq savehist-file (b/var "savehist.el"))
 697 (savehist-mode)
 698 (add-to-list 'savehist-additional-variables 'kill-ring)
 699
 700 ;; automatically save place in files
 701 (when (version< "25" emacs-version)
 702   (csetq save-place-file (b/var "save-place.el"))
 703   (save-place-mode))
 704
 705 (defun indicate-buffer-boundaries-left ()
 706     (csetq indicate-buffer-boundaries 'left))
 707 (with-eval-after-load 'prog-mode
 708   (global-prettify-symbols-mode))
 709 (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left)
 710
 711 (define-key text-mode-map (kbd "C-<return>") #'b/insert-asterism)
 712 (add-hook 'text-mode-hook #'indicate-buffer-boundaries-left)
 713 (add-hook 'text-mode-hook #'flyspell-mode)
 714
 715 (add-to-list 'auto-mode-alist '("\\.*rc$" . conf-mode))
 716
 717 (add-to-list 'auto-mode-alist '("\\.bashrc$" . sh-mode))
 718
 719 (with-eval-after-load 'flyspell
 720   (csetq flyspell-mode-line-string " fly"))
 721
 722 ;; ispell
 723 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
 724 ;; (run-with-idle-timer 0.6 nil #'require 'ispell)
 725 ;; (with-eval-after-load 'ispell
 726 ;;   ;; ’ can be part of a word
 727 ;;   (csetq ispell-local-dictionary-alist
 728 ;;          `((nil "[[:alpha:]]" "[^[:alpha:]]"
 729 ;;                 "['\x2019]" nil ("-B") nil utf-8))
 730 ;;          ispell-program-name (executable-find "hunspell"))
 731 ;;   ;; don't send ’ to the subprocess
 732 ;;   (defun endless/replace-apostrophe (args)
 733 ;;     (cons (replace-regexp-in-string
 734 ;;            "’" "'" (car args))
 735 ;;           (cdr args)))
 736 ;;   (advice-add #'ispell-send-string :filter-args
 737 ;;               #'endless/replace-apostrophe)
 738 ;;   ;; convert ' back to ’ from the subprocess
 739 ;;   (defun endless/replace-quote (args)
 740 ;;     (if (not (derived-mode-p 'org-mode))
 741 ;;         args
 742 ;;       (cons (replace-regexp-in-string
 743 ;;              "'" "’" (car args))
 744 ;;             (cdr args))))
 745 ;;   (advice-add #'ispell-parse-output :filter-args
 746 ;;               #'endless/replace-quote))
 747
 748 ;; abbrev
 749 (csetq abbrev-file-name (b/etc "abbrev.el"))
 750 (add-hook 'text-mode-hook #'abbrev-mode)
 751
 752 \f
 753 ;;; Programming modes
 754
 755 (with-eval-after-load 'lisp-mode
 756   (defun indent-spaces-mode ()
 757     (setq indent-tabs-mode nil))
 758   (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
 759
 760 ;; alloy
 761 (add-to-list 'load-path (b/lisp "alloy-mode"))
 762 (autoload 'alloy-mode "alloy-mode" nil t)
 763 (with-eval-after-load 'alloy-mode
 764   (csetq alloy-basic-offset 2)
 765   ;; (defun b/alloy-simple-indent (start end)
 766   ;;   (interactive "r")
 767   ;;   ;; (if (region-active-p)
 768   ;;   ;;     (indent-rigidly start end alloy-basic-offset)
 769   ;;   ;;   (if (bolp)
 770   ;;   ;;       (indent-rigidly (line-beginning-position)
 771   ;;   ;;                       (line-end-position)
 772   ;;   ;;                       alloy-basic-offset)))
 773   ;;   (indent-to (+ (current-column) alloy-basic-offset)))
 774   ;; local key bindings
 775   (define-key alloy-mode-map (kbd "RET") #'electric-newline-and-maybe-indent)
 776   ;; (define-key alloy-mode-map (kbd "TAB") #'b/alloy-simple-indent)
 777   (define-key alloy-mode-map (kbd "TAB") #'indent-for-tab-command))
 778 (add-to-list 'auto-mode-alist '("\\.\\(als\\|dsh\\)\\'" . alloy-mode))
 779 (add-hook 'alloy-mode-hook (lambda nil (setq-local indent-tabs-mode nil)))
 780
 781 ;; lean
 782 ;; (eval-when-compile (defvar lean-mode-map))
 783 ;; (run-with-idle-timer 0.4 nil #'require 'lean-mode)
 784 ;; (with-eval-after-load 'lean-mode
 785 ;;   (require 'lean-input)
 786 ;;   (csetq default-input-method "Lean"
 787 ;;          lean-input-tweak-all '(lean-input-compose
 788 ;;                                 (lean-input-prepend "/")
 789 ;;                                 (lean-input-nonempty))
 790 ;;          lean-input-user-translations '(("/" "/")))
 791 ;;   (lean-input-setup)
 792 ;;   ;; local key bindings
 793 ;;   (define-key lean-mode-map (kbd "S-SPC") #'company-complete))
 794
 795 (with-eval-after-load 'sgml-mode
 796   (csetq sgml-basic-offset 0))
 797
 798 (with-eval-after-load 'css-mode
 799   (csetq css-indent-offset 2))
 800
 801 ;; auctex
 802 ;; (csetq font-latex-fontify-sectioning 'color)
 803
 804 (with-eval-after-load 'tex-mode
 805   (cl-delete-if
 806    (lambda (p) (string-match "^---?" (car p)))
 807    tex--prettify-symbols-alist))
 808 (add-hook 'tex-mode-hook #'auto-fill-mode)
 809 (add-hook 'tex-mode-hook #'flyspell-mode)
 810
 811 \f
 812 ;;; Emacs enhancements & auxiliary packages
 813
 814 (with-eval-after-load 'man
 815   (csetq Man-width 80))
 816
 817 (defun b/*scratch* ()
 818   "Switch to `*scratch*' buffer, creating it if it does not exist."
 819   (interactive)
 820   (switch-to-buffer
 821    (or (get-buffer "*scratch*")
 822        (with-current-buffer (get-buffer-create "*scratch*")
 823          (set-buffer-major-mode (current-buffer))
 824          (current-buffer)))))
 825 (global-set-key (kbd "C-c s") #'b/*scratch*)
 826
 827 ;; ,----
 828 ;; | make pretty boxed quotes like this
 829 ;; `----
 830 (add-to-list 'load-path (b/lisp "boxquote"))
 831 (run-with-idle-timer 0.6 nil #'require 'boxquote)
 832 (with-eval-after-load 'boxquote
 833   (defvar b/boxquote-prefix-map)
 834   (define-prefix-command 'b/boxquote-prefix-map)
 835   (global-set-key (kbd "C-c q") 'b/boxquote-prefix-map)
 836   (define-key b/boxquote-prefix-map (kbd "b")   #'boxquote-buffer)
 837   (define-key b/boxquote-prefix-map (kbd "B")   #'boxquote-insert-buffer)
 838   (define-key b/boxquote-prefix-map (kbd "d")   #'boxquote-defun)
 839   (define-key b/boxquote-prefix-map (kbd "F")   #'boxquote-insert-file)
 840   (define-key b/boxquote-prefix-map (kbd "hf")  #'boxquote-describe-function)
 841   (define-key b/boxquote-prefix-map (kbd "hk")  #'boxquote-describe-key)
 842   (define-key b/boxquote-prefix-map (kbd "hv")  #'boxquote-describe-variable)
 843   (define-key b/boxquote-prefix-map (kbd "hw")  #'boxquote-where-is)
 844   (define-key b/boxquote-prefix-map (kbd "k")   #'boxquote-kill)
 845   (define-key b/boxquote-prefix-map (kbd "p")   #'boxquote-paragraph)
 846   (define-key b/boxquote-prefix-map (kbd "q")   #'boxquote-boxquote)
 847   (define-key b/boxquote-prefix-map (kbd "r")   #'boxquote-region)
 848   (define-key b/boxquote-prefix-map (kbd "s")   #'boxquote-shell-command)
 849   (define-key b/boxquote-prefix-map (kbd "t")   #'boxquote-text)
 850   (define-key b/boxquote-prefix-map (kbd "T")   #'boxquote-title)
 851   (define-key b/boxquote-prefix-map (kbd "u")   #'boxquote-unbox)
 852   (define-key b/boxquote-prefix-map (kbd "U")   #'boxquote-unbox-region)
 853   (define-key b/boxquote-prefix-map (kbd "y")   #'boxquote-yank)
 854   (define-key b/boxquote-prefix-map (kbd "M-q") #'boxquote-fill-paragraph)
 855   (define-key b/boxquote-prefix-map (kbd "M-w") #'boxquote-kill-ring-save))
 856
 857 (add-to-list 'load-path (b/lisp "hl-todo"))
 858 (run-with-idle-timer 0.5 nil #'require 'hl-todo)
 859 (with-eval-after-load 'hl-todo
 860   ;; highlight TODOs in buffers
 861   (global-hl-todo-mode))
 862
 863 ;; expand-region
 864 (global-set-key (kbd "C-=") #'er/expand-region)
 865
 866 (run-with-idle-timer 0.6 nil #'require 'yasnippet)
 867 (with-eval-after-load 'yasnippet
 868   (declare-function yas-reload-all
 869                     "yasnippet" (&optional no-jit interactive))
 870   (declare-function yas-maybe-expand-abbrev-key-filter
 871                     "yasnippet" (cmd))
 872
 873   (defconst yas-verbosity-cur yas-verbosity)
 874   (setq yas-verbosity 2)
 875   (csetq yas-snippet-dirs `(,(b/etc "yasnippet/snippets")))
 876   ;; (add-to-list 'yas-snippet-dirs "~/src/git/guix/etc/snippets" t)
 877   (yas-reload-all)
 878   (setq yas-verbosity yas-verbosity-cur)
 879
 880   (defun b/yas-maybe-expand-abbrev-key-filter (cmd)
 881     (when (and (yas-maybe-expand-abbrev-key-filter cmd)
 882                (not (bound-and-true-p git-commit-mode)))
 883       cmd))
 884   (defconst b/yas-maybe-expand
 885     '(menu-item "" yas-expand
 886                 :filter b/yas-maybe-expand-abbrev-key-filter))
 887   (define-key yas-minor-mode-map (kbd "SPC") b/yas-maybe-expand)
 888
 889   (yas-global-mode))
 890
 891 ;; debbugs
 892 (global-set-key (kbd "C-c D d") #'debbugs-gnu)
 893 (global-set-key (kbd "C-c D b") #'debbugs-gnu-bugs)
 894 (global-set-key (kbd "C-c D e")         ; bug-gnu-emacs
 895                 (lambda ()
 896                   (interactive)
 897                   (setq debbugs-gnu-current-suppress t)
 898                   (debbugs-gnu debbugs-gnu-default-severities
 899                                '("emacs"))))
 900 (global-set-key (kbd "C-c D g")         ; bug-gnuzilla
 901                 (lambda ()
 902                   (interactive)
 903                   (setq debbugs-gnu-current-suppress t)
 904                   (debbugs-gnu debbugs-gnu-default-severities
 905                                '("gnuzilla"))))
 906
 907 ;; url and url-cache
 908 (csetq
 909  url-configuration-directory (b/var "url/configuration/")
 910  url-cache-directory (b/var "url/cache/"))
 911
 912 ;; eww
 913 (csetq eww-download-directory (file-name-as-directory
 914                                (getenv "XDG_DOWNLOAD_DIR")))
 915 (global-set-key (kbd "C-c a e w") #'eww)
 916
 917 ;; ;; org-ref
 918 ;; (csetq
 919 ;;  reftex-default-bibliography '("~/usr/org/references.bib")
 920 ;;  org-ref-default-bibliography '("~/usr/org/references.bib")
 921 ;;  org-ref-bibliography-notes "~/usr/org/notes.org"
 922 ;;  org-ref-pdf-directory "~/usr/org/bibtex-pdfs/")
 923
 924 ;; fill-column-indicator ?
 925
 926 ;; window
 927 (csetq split-width-threshold 150)
 928 (global-set-key (kbd "C-c w s l")
 929                 (lambda ()
 930                   (interactive)
 931                   (split-window-right)
 932                   (other-window 1)))
 933 (global-set-key (kbd "C-c w s j")
 934                 (lambda ()
 935                   (interactive)
 936                   (split-window-below)
 937                   (other-window 1)))
 938 (global-set-key (kbd "C-c w q") #'quit-window)
 939
 940 ;; pass
 941 ;; (global-set-key (kbd "C-c a p") #'pass)
 942 ;; (add-hook 'pass-mode-hook #'View-exit)
 943
 944 ;; reftex
 945 ;; uncomment to disable reftex-cite's default choice of previous word
 946 ;; (with-eval-after-load 'reftex
 947 ;;   (require 'reftex-cite)
 948 ;;   (defun reftex-get-bibkey-default ()
 949 ;;     "If the cursor is in a citation macro, return the word before the macro."
 950 ;;     (let* ((macro (reftex-what-macro 1)))
 951 ;;       (save-excursion
 952 ;;         (when (and macro (string-match "cite" (car macro)))
 953 ;;           (goto-char (cdr macro)))
 954 ;;         (reftex-this-word)))))
 955 (add-hook 'latex-mode-hook #'reftex-mode)
 956
 957 ;; dmenu
 958 (add-to-list 'load-path (b/lisp "dmenu"))
 959 (with-eval-after-load 'dmenu
 960   (csetq dmenu-prompt-string "run: "
 961          dmenu-save-file (b/var "dmenu-items")))
 962 (autoload 'dmenu "dmenu" nil t)
 963
 964 ;; eosd ?
 965
 966 ;; delight
 967 (run-with-idle-timer 0.5 nil #'require 'delight)
 968 (with-eval-after-load 'delight
 969   (delight 'auto-fill-function " f" "simple")
 970   (delight 'abbrev-mode "" "abbrev")
 971   (delight 'mml-mode " mml" "mml")
 972   (delight 'yas-minor-mode "" "yasnippet"))
 973
 974 ;; po-mode
 975 (require 'bandali-po)
 976
 977 \f
 978 ;;; Post initialization
 979
 980 (message "Loading %s...done (%.3fs)" user-init-file
 981          (float-time (time-subtract (current-time)
 982                                     b/before-user-init-time)))
 983
 984 ;;; init.el ends here