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

   1 ;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
   2
   3 ;; Copyright (C) 2018-2020  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 Amin Bandali, computer scientist,
  21 ;; Free Software activist, and GNU maintainer & webmaster.  Packages
  22 ;; are installed through using Borg for a fully reproducible setup.
  23
  24 ;; Over the years, I've taken inspiration from configurations of many
  25 ;; great people.  Some that I can remember off the top of my head are:
  26 ;;
  27 ;; - https://github.com/dieggsy/dotfiles
  28 ;; - https://github.com/dakra/dmacs
  29 ;; - http://pages.sachachua.com/.emacs.d/Sacha.html
  30 ;; - https://github.com/dakrone/eos
  31 ;; - http://doc.rix.si/cce/cce.html
  32 ;; - https://github.com/jwiegley/dot-emacs
  33 ;; - https://github.com/wasamasa/dotemacs
  34 ;; - https://github.com/hlissner/doom-emacs
  35
  36 ;;; Code:
  37
  38 ;;; Emacs initialization
  39
  40 (defvar b/before-user-init-time (current-time)
  41   "Value of `current-time' when Emacs begins loading `user-init-file'.")
  42 (defvar b/emacs-initialized nil
  43   "Whether Emacs has been initialized.")
  44 (defvar b/exwm-p (string= (system-name) "chaman")
  45   "Whether or not we will be using `exwm'.")
  46
  47 (when (not (bound-and-true-p b/emacs-initialized))
  48   (message "Loading Emacs...done (%.3fs)"
  49            (float-time (time-subtract b/before-user-init-time
  50                                       before-init-time))))
  51
  52 ;; temporarily increase `gc-cons-threshhold' and `gc-cons-percentage'
  53 ;; during startup to reduce garbage collection frequency.  clearing
  54 ;; `file-name-handler-alist' seems to help reduce startup time too.
  55 (defvar b/gc-cons-threshold gc-cons-threshold)
  56 (defvar b/gc-cons-percentage gc-cons-percentage)
  57 (defvar b/file-name-handler-alist file-name-handler-alist)
  58 (setq gc-cons-threshold (* 30 1024 1024)  ; 30 MiB
  59       gc-cons-percentage 0.6
  60       file-name-handler-alist nil
  61       ;; sidesteps a bug when profiling with esup
  62       esup-child-profile-require-level 0)
  63
  64 ;; set them back to their defaults once we're done initializing
  65 (defun b/post-init ()
  66   "My post-initialize function, run after loading `user-init-file'."
  67   (setq b/emacs-initialized     t
  68         gc-cons-threshold       b/gc-cons-threshold
  69         gc-cons-percentage      b/gc-cons-percentage
  70         file-name-handler-alist b/file-name-handler-alist)
  71   (when b/exwm-p
  72     (with-eval-after-load 'exwm-workspace
  73       (setq-default
  74        mode-line-format
  75        (append
  76         mode-line-format
  77         '((:eval
  78            (format
  79             "[%s]" (number-to-string
  80                     exwm-workspace-current-index)))))))))
  81 (add-hook 'after-init-hook #'b/post-init)
  82
  83 ;; increase number of lines kept in *Messages* log
  84 (setq message-log-max 20000)
  85
  86 ;; optionally, uncomment to supress some byte-compiler warnings
  87 ;;   (see C-h v byte-compile-warnings RET for more info)
  88 ;; (setq byte-compile-warnings
  89 ;;       '(not free-vars unresolved noruntime lexical make-local))
  90
  91 \f
  92 ;;; whoami
  93
  94 (setq user-full-name "Amin Bandali"
  95       user-mail-address "bandali@gnu.org")
  96
  97 \f
  98 ;;; comment macro
  99
 100 ;; useful for commenting out multiple sexps at a time
 101 (defmacro comment (&rest _)
 102   "Comment out one or more s-expressions."
 103   (declare (indent defun))
 104   nil)
 105
 106 \f
 107 ;;; Package management
 108
 109 (progn ;   `borg'
 110   (add-to-list 'load-path
 111                (expand-file-name "lib/borg" user-emacs-directory))
 112   (require 'borg)
 113   (borg-initialize)
 114   (setq borg-rewrite-urls-alist
 115         '(("git@github.com:" . "https://github.com/")
 116           ("git@gitlab.com:" . "https://gitlab.com/"))))
 117
 118 ;; use-package
 119 (if nil                             ; set to t when need to debug init
 120     (progn
 121       (setq use-package-verbose t
 122             use-package-expand-minimally nil
 123             use-package-compute-statistics t
 124             debug-on-error t)
 125       (require 'use-package))
 126   (setq use-package-verbose nil
 127         use-package-expand-minimally t))
 128
 129 (setq use-package-always-defer t)
 130 (require 'bind-key)
 131
 132 \f
 133 ;;; Initial setup
 134
 135 ;; keep ~/.emacs.d clean
 136 (use-package no-littering
 137   :demand
 138   :config
 139   (defalias 'b/etc 'no-littering-expand-etc-file-name)
 140   (defalias 'b/var 'no-littering-expand-var-file-name))
 141
 142 (use-package auto-compile
 143   :demand
 144   :config
 145   (auto-compile-on-load-mode)
 146   (auto-compile-on-save-mode)
 147   (setq auto-compile-display-buffer               nil)
 148   (setq auto-compile-mode-line-counter            t)
 149   (setq auto-compile-source-recreate-deletes-dest t)
 150   (setq auto-compile-toggle-deletes-nonlib-dest   t)
 151   (setq auto-compile-update-autoloads             t))
 152
 153 ;; separate custom file (don't want it mixing with init.el)
 154 (use-package custom
 155   :no-require
 156   :config
 157   (setq custom-file (b/etc "custom.el"))
 158   (when (file-exists-p custom-file)
 159     (load custom-file))
 160   ;; while at it, treat themes as safe
 161   (setf custom-safe-themes t)
 162   ;; only one custom theme at a time
 163   (comment
 164     (defadvice load-theme (before clear-previous-themes activate)
 165       "Clear existing theme settings instead of layering them"
 166       (mapc #'disable-theme custom-enabled-themes))))
 167
 168 ;; load the secrets file if it exists, otherwise show a warning
 169 (comment
 170   (with-demoted-errors
 171       (load (b/etc "secrets"))))
 172
 173 ;; start up emacs server.  see
 174 ;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Emacs-Server.html#Emacs-Server
 175 (use-package server
 176   :defer 0.5
 177   :config
 178   (declare-function server-edit "server")
 179   (bind-key "C-c F D" 'server-edit)
 180   (declare-function server-running-p "server")
 181   (or (server-running-p) (server-mode)))
 182
 183 \f
 184 ;;; Useful utilities
 185
 186 (defmacro b/setq-every (value &rest vars)
 187   "Set all the variables from VARS to value VALUE."
 188   (declare (indent defun) (debug t))
 189   `(progn ,@(mapcar (lambda (x) (list 'setq x value)) vars)))
 190
 191 (defun b/start-process (program &rest args)
 192   "Same as `start-process', but doesn't bother about name and buffer."
 193   (let ((process-name (concat program "_process"))
 194         (buffer-name  (generate-new-buffer-name
 195                        (concat program "_output"))))
 196     (apply #'start-process
 197            process-name buffer-name program args)))
 198
 199 (defun b/dired-start-process (program &optional args)
 200   "Open current file with a PROGRAM."
 201   ;; Shell command looks like this: "program [ARGS]... FILE" (ARGS can
 202   ;; be nil, so remove it).
 203   (declare-function dired-get-file-for-visit "dired")
 204   (apply #'b/start-process
 205          program
 206          (remove nil (list args (dired-get-file-for-visit)))))
 207
 208 (defun b/add-elisp-section ()
 209   (interactive)
 210   (insert "\n")
 211   (forward-line -1)
 212   (insert "\n\f\n;;; "))
 213
 214 ;; (defvar b/fill-column 47
 215 ;;   "My custom `fill-column'.")
 216
 217 (defconst b/asterism "* * *")
 218
 219 (defun b/insert-asterism ()
 220   "Insert a centred asterism."
 221   (interactive)
 222   (insert
 223    (concat
 224     "\n\n"
 225     (make-string (floor (/ (- fill-column (length b/asterism)) 2))
 226                  ?\s)
 227     b/asterism
 228     "\n\n")))
 229
 230 (defun b/no-mouse-autoselect-window ()
 231   "Conveniently disable `focus-follows-mouse'.
 232 For disabling the behaviour for certain buffers and/or modes."
 233   (make-local-variable 'mouse-autoselect-window)
 234   (setq mouse-autoselect-window nil))
 235
 236 (defun b/kill-current-buffer ()
 237   "Kill the current buffer."
 238   ;; also see https://redd.it/64xb3q
 239   (interactive)
 240   (kill-buffer (current-buffer)))
 241
 242 (defun b/move-indentation-or-beginning-of-line (arg)
 243   "Move to the indentation or to the beginning of line."
 244   (interactive "^p")
 245   ;; (if (bolp)
 246   ;;     (back-to-indentation)
 247   ;;   (move-beginning-of-line arg))
 248   (if (= (point)
 249          (progn (back-to-indentation)
 250                 (point)))
 251       (move-beginning-of-line arg)))
 252
 253 (defun b/join-line-top ()
 254   "Like `join-line', but join next line to the current line."
 255   (interactive)
 256   (join-line 1))
 257
 258 (defun b/duplicate-line-or-region (&optional n)
 259   "Duplicate the current line, or region (if active).
 260 Make N (default: 1) copies of the current line or region."
 261   (interactive "*p")
 262   (let ((u-r-p (use-region-p))          ; if region is active
 263         (n1 (or n 1)))
 264     (save-excursion
 265       (let ((text
 266              (if u-r-p
 267                  (buffer-substring (region-beginning) (region-end))
 268                (prog1 (thing-at-point 'line)
 269                  (end-of-line)
 270                  (if (eobp)
 271                      (newline)
 272                    (forward-line 1))))))
 273         (dotimes (_ (abs n1))
 274           (insert text))))))
 275
 276 \f
 277 ;;; Defaults
 278
 279 ;;;; C-level customizations
 280
 281 (setq
 282  ;; minibuffer
 283  enable-recursive-minibuffers t
 284  resize-mini-windows t
 285  ;; more useful frame titles
 286  frame-title-format '("" invocation-name " - "
 287                       (:eval
 288                        (if (buffer-file-name)
 289                            (abbreviate-file-name (buffer-file-name))
 290                          "%b")))
 291  ;; i don't feel like jumping out of my chair every now and again; so
 292  ;; don't BEEP! at me, emacs
 293  ring-bell-function 'ignore
 294  ;; better scrolling
 295  ;; scroll-margin 1
 296  ;; scroll-conservatively 10000
 297  scroll-step 1
 298  scroll-conservatively 101
 299  scroll-preserve-screen-position 1
 300  ;; focus follows mouse
 301  mouse-autoselect-window t)
 302
 303 (setq-default
 304  ;; always use space for indentation
 305  indent-tabs-mode nil
 306  tab-width 4
 307  ;; cursor shape
 308  cursor-type t)
 309
 310 ;; unicode support
 311 (comment
 312   (dolist (ft (fontset-list))
 313     (set-fontset-font
 314      ft
 315      'unicode
 316      (font-spec :name "Source Code Pro" :size 14))
 317     (set-fontset-font
 318      ft
 319      'unicode
 320      (font-spec :name "DejaVu Sans Mono")
 321      nil
 322      'append)
 323     ;; (set-fontset-font
 324     ;;  ft
 325     ;;  'unicode
 326     ;;  (font-spec
 327     ;;   :name "Symbola monospacified for DejaVu Sans Mono")
 328     ;;  nil
 329     ;;  'append)
 330     ;; (set-fontset-font
 331     ;;  ft
 332     ;;  #x2115  ; ℕ
 333     ;;  (font-spec :name "DejaVu Sans Mono")
 334     ;;  nil
 335     ;;  'append)
 336     (set-fontset-font
 337      ft
 338      (cons ?Α ?ω)
 339      (font-spec :name "DejaVu Sans Mono" :size 14)
 340      nil
 341      'prepend)))
 342
 343 ;;;; Elisp-level customizations
 344
 345 (use-package startup
 346   :no-require
 347   :demand
 348   :config
 349   ;; don't need to see the startup echo area message
 350   (advice-add #'display-startup-echo-area-message :override #'ignore)
 351   :custom
 352   ;; i want *scratch* as my startup buffer
 353   (initial-buffer-choice t)
 354   ;; i don't need the default hint
 355   (initial-scratch-message nil)
 356   ;; use customizable text-mode as major mode for *scratch*
 357   ;; (initial-major-mode 'text-mode)
 358   ;; inhibit buffer list when more than 2 files are loaded
 359   (inhibit-startup-buffer-menu t)
 360   ;; don't need to see the startup screen or echo area message
 361   (inhibit-startup-screen t)
 362   (inhibit-startup-echo-area-message user-login-name))
 363
 364 (use-package files
 365   :no-require
 366   :demand
 367   :custom
 368   ;; backups (C-h v make-backup-files RET)
 369   (backup-by-copying t)
 370   (version-control t)
 371   (delete-old-versions t)
 372
 373   ;; auto-save
 374   (auto-save-file-name-transforms
 375    `((".*" ,(b/var "auto-save/") t)))
 376
 377   ;; insert newline at the end of files
 378   (require-final-newline t)
 379
 380   ;; open read-only file buffers in view-mode
 381   ;; (enables niceties like `q' for quit)
 382   (view-read-only t))
 383
 384 ;; disable disabled commands
 385 (setq disabled-command-function nil)
 386
 387 ;; lazy-person-friendly yes/no prompts
 388 (defalias 'yes-or-no-p #'y-or-n-p)
 389
 390 ;; enable automatic reloading of changed buffers and files
 391 (use-package autorevert
 392   :demand
 393   :config
 394   (global-auto-revert-mode 1)
 395   :custom
 396   (auto-revert-verbose nil)
 397   (global-auto-revert-non-file-buffers nil))
 398
 399 ;; time and battery in mode-line
 400 (use-package time
 401   :demand
 402   :config
 403   (display-time-mode)
 404   :custom
 405   (display-time-default-load-average nil)
 406   (display-time-format " %a %b %-e %-l:%M%P")
 407   (display-time-mail-icon '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center))
 408   (display-time-use-mail-icon t))
 409
 410 (use-package battery
 411   :demand
 412   :config
 413   (display-battery-mode)
 414   :custom
 415   (battery-mode-line-format "%p%% %t"))
 416
 417 (use-package fringe
 418   :demand
 419   :config
 420   ;; smaller fringe
 421   ;; (fringe-mode '(3 . 1))
 422   (fringe-mode nil))
 423
 424 (use-package winner
 425   :demand
 426   :config
 427   ;; enable winner-mode (C-h f winner-mode RET)
 428   (winner-mode 1))
 429
 430 (use-package compile
 431   :config
 432   ;; don't display *compilation* buffer on success.  based on
 433   ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf'
 434   ;; instead of the now obsolete `flet'.
 435   (defun b/compilation-finish-function (buffer outstr)
 436     (unless (string-match "finished" outstr)
 437       (switch-to-buffer-other-window buffer))
 438     t)
 439
 440   (setq compilation-finish-functions #'b/compilation-finish-function)
 441
 442   (require 'cl-macs)
 443
 444   (defadvice compilation-start
 445       (around inhibit-display
 446               (command &optional mode name-function highlight-regexp))
 447     (if (not (string-match "^\\(find\\|grep\\)" command))
 448         (cl-letf (((symbol-function 'display-buffer) #'ignore))
 449           (save-window-excursion ad-do-it))
 450       ad-do-it))
 451   (ad-activate 'compilation-start))
 452
 453 (use-package isearch
 454   :custom
 455   ;; allow scrolling in Isearch
 456   (isearch-allow-scroll t)
 457   ;; search for non-ASCII characters: i’d like non-ASCII characters such
 458   ;; as ‘’“”«»‹›áⓐ𝒶 to be selected when i search for their ASCII
 459   ;; counterpart.  shoutout to
 460   ;; http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html
 461   (search-default-mode #'char-fold-to-regexp))
 462
 463 ;; uncomment to extend the above behaviour to query-replace
 464 (comment
 465   (use-package replace
 466     :custom
 467     (replace-char-fold t)))
 468
 469 (use-package vc
 470   :bind ("C-x v C-=" . vc-ediff))
 471
 472 (use-package vc-git
 473   :after vc
 474   :custom
 475   (vc-git-print-log-follow t))
 476
 477 (use-package ediff
 478   :config (add-hook 'ediff-after-quit-hook-internal 'winner-undo)
 479   :custom ((ediff-window-setup-function 'ediff-setup-windows-plain)
 480            (ediff-split-window-function 'split-window-horizontally)))
 481
 482 (use-package face-remap
 483   :custom
 484   ;; gentler font resizing
 485   (text-scale-mode-step 1.05))
 486
 487 (use-package mwheel
 488   :defer 0.4
 489   :config
 490   (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) ; one line at a time
 491         mouse-wheel-progressive-speed nil            ; don't accelerate scrolling
 492         mouse-wheel-follow-mouse t))                 ; scroll window under mouse
 493
 494 (use-package pixel-scroll
 495   :defer 0.4
 496   :config (pixel-scroll-mode 1))
 497
 498 (use-package epg-config
 499   :config
 500   ;; ask for GPG passphrase in minibuffer
 501   ;; this will fail if gpg>=2.1 is not available
 502   (setq epg-pinentry-mode 'loopback)
 503   :custom
 504   (epg-gpg-program (executable-find "gpg")))
 505
 506 (use-package epg
 507   :after epg-config)
 508
 509 (use-package pinentry
 510   :disabled
 511   :demand
 512   :after (epa epg server)
 513   :config
 514   ;; workaround for systemd-based distros:
 515   ;; (setq pinentry--socket-dir server-socket-dir)
 516   (pinentry-start))
 517
 518 (use-package auth-source
 519   :custom
 520   (auth-sources '("~/.authinfo.gpg"))
 521   (authinfo-hidden (regexp-opt '("password" "client-secret" "token"))))
 522
 523 \f
 524 ;;; General bindings
 525
 526 (bind-keys
 527  ("C-a"     . b/move-indentation-or-beginning-of-line)
 528  ("C-c a i" . ielm)
 529  ("C-c d"   . b/duplicate-line-or-region)
 530
 531  ("C-c e b" . eval-buffer)
 532  ("C-c e e" . eval-last-sexp)
 533  ("C-c e p" . pp-macroexpand-last-sexp)
 534  ("C-c e r" . eval-region)
 535
 536  ("C-c e i" . emacs-init-time)
 537  ("C-c e u" . emacs-uptime)
 538  ("C-c e v" . emacs-version)
 539
 540  ("C-c f ." . find-file)
 541  ("C-c f d" . find-name-dired)
 542  ("C-c f l" . find-library)
 543
 544  ("C-c F m" . make-frame-command)
 545  ("C-c F d" . delete-frame)
 546
 547  ("C-S-h C" . describe-char)
 548  ("C-S-h F" . describe-face)
 549
 550  ("C-S-j"   . b/join-line-top)
 551
 552  ("C-c x"   . execute-extended-command)
 553
 554  ("C-x k"   . b/kill-current-buffer)
 555  ("C-x K"   . kill-buffer)
 556  ("C-x s"   . save-buffer)
 557  ("C-x S"   . save-some-buffers)
 558
 559  :map emacs-lisp-mode-map
 560  ("<C-return>" . b/add-elisp-section))
 561
 562 (when (display-graphic-p)
 563   (unbind-key "C-z" global-map))
 564
 565 (bind-keys
 566  ;; for back and forward mouse keys
 567  ("<XF86Back>"     . previous-buffer)
 568  ("<mouse-8>"      . previous-buffer)
 569  ;; ("<drag-mouse-8>" . previous-buffer)
 570  ("<XF86Forward>"  . next-buffer)
 571  ("<mouse-9>"      . next-buffer)
 572  ;; ("<drag-mouse-9>" . next-buffer)
 573  ;; ("<drag-mouse-2>" . kill-this-buffer)
 574  ;; ("<drag-mouse-3>" . switch-to-buffer)
 575  )
 576
 577 \f
 578 ;;; Essential packages
 579
 580 (add-to-list
 581  'load-path
 582  (expand-file-name
 583   (convert-standard-filename "lisp") user-emacs-directory))
 584
 585 (when b/exwm-p
 586   (require 'bandali-exwm))
 587
 588 (require 'bandali-org)
 589
 590 (require 'bandali-theme)
 591
 592 ;; *the* right way to do git
 593 (use-package magit
 594   :bind (("C-x g"   . magit-status)
 595          ("C-c g g" . magit-status)
 596          ("C-c g b" . magit-blame-addition)
 597          ("C-c g l" . magit-log-buffer-file))
 598   :config
 599   (declare-function magit-add-section-hook "magit-section"
 600                     (hook function &optional at append local))
 601   (magit-add-section-hook 'magit-status-sections-hook
 602                           'magit-insert-modules
 603                           'magit-insert-stashes
 604                           'append)
 605   ;; (magit-add-section-hook 'magit-status-sections-hook
 606   ;;                         'magit-insert-ignored-files
 607   ;;                         'magit-insert-untracked-files
 608   ;;                         'append)
 609   (setq magit-repository-directories '(("~/.emacs.d/" . 0)
 610                                        ("~/src/git/" . 2)))
 611   (nconc magit-section-initial-visibility-alist
 612          '(([unpulled status] . show)
 613            ([unpushed status] . show)))
 614   (declare-function magit-display-buffer-fullframe-status-v1 "magit-mode" (buffer))
 615   :custom
 616   (magit-diff-refine-hunk t)
 617   (magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1)
 618   ;; (magit-completing-read-function 'magit-ido-completing-read)
 619   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 620
 621 ;; recently opened files
 622 (use-package recentf
 623   :defer 0.2
 624   ;; :config
 625   ;; (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
 626   :config
 627   (recentf-mode)
 628   :custom
 629   (recentf-max-saved-items 2000))
 630
 631 ;; needed for history for counsel
 632 (use-package amx
 633   :defer 0.3
 634   :config
 635   (amx-mode))
 636
 637 ;; (require 'bandali-ido)
 638 (require 'bandali-ivy)
 639
 640 (require 'bandali-eshell)
 641 ;; (require 'bandali-multi-term)
 642
 643 (require 'bandali-ibuffer)
 644
 645 (use-package outline
 646   :disabled
 647   :hook (prog-mode . outline-minor-mode)
 648   :bind
 649   (:map
 650    outline-minor-mode-map
 651    ("<s-tab>"  . outline-toggle-children)
 652    ("M-p"      . outline-previous-visible-heading)
 653    ("M-n"      . outline-next-visible-heading)
 654    :prefix-map b/outline-prefix-map
 655    :prefix "s-O"
 656    ("TAB" . outline-toggle-children)
 657    ("a"   . outline-hide-body)
 658    ("H"   . outline-hide-body)
 659    ("S"   . outline-show-all)
 660    ("h"   . outline-hide-subtree)
 661    ("s"   . outline-show-subtree))
 662   :config
 663   (when (featurep 'which-key)
 664     (which-key-add-key-based-replacements
 665       "C-c @" "outline"
 666       "s-O"   "outline")))
 667
 668 (use-package ls-lisp
 669   :custom (ls-lisp-dirs-first t))
 670
 671 (require 'bandali-dired)
 672
 673 (use-package help
 674   :config
 675   (temp-buffer-resize-mode)
 676   (setq help-window-select t))
 677
 678 (use-package tramp
 679   :config
 680   (add-to-list 'tramp-default-proxies-alist '(nil "\\`root\\'" "/ssh:%h:"))
 681   (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
 682   (add-to-list 'tramp-default-proxies-alist
 683                (list (regexp-quote (system-name)) nil nil)))
 684
 685 (use-package doc-view
 686   :bind (:map doc-view-mode-map
 687               ("M-RET" . image-previous-line)))
 688
 689 ;; Email (with Gnus, message, and EBDB)
 690 (require 'bandali-gnus)
 691 (use-package sendmail
 692   :config
 693   (setq sendmail-program (executable-find "msmtp")
 694         ;; message-sendmail-extra-arguments '("-v" "-d")
 695         mail-specify-envelope-from t
 696         mail-envelope-from 'header))
 697 (require 'bandali-message)
 698 (require 'bandali-ebdb)
 699
 700 ;; IRC (with ERC and ZNC)
 701 (require 'bandali-erc)
 702
 703 (use-package scpaste
 704   :config
 705   (setq scpaste-http-destination "https://p.bndl.org"
 706         scpaste-scp-destination "p:~"))
 707
 708 \f
 709 ;;; Editing
 710
 711 ;; highlight uncommitted changes in the left fringe
 712 (use-package diff-hl
 713   :defer 0.6
 714   :config
 715   (setq diff-hl-draw-borders nil)
 716   (global-diff-hl-mode)
 717   :hook
 718   ((magit-pre-refresh . diff-hl-magit-pre-refresh)
 719    (magit-post-refresh . diff-hl-magit-post-refresh)))
 720
 721 ;; display Lisp objects at point in the echo area
 722 (use-package eldoc
 723   :when (version< "25" emacs-version)
 724   :config (global-eldoc-mode))
 725
 726 ;; highlight matching parens
 727 (use-package paren
 728   :demand
 729   :config (show-paren-mode))
 730
 731 (use-package elec-pair
 732   :demand
 733   :config (electric-pair-mode))
 734
 735 (use-package simple
 736   :config (column-number-mode)
 737   :custom
 738   ;; Save what I copy into clipboard from other applications into Emacs'
 739   ;; kill-ring, which would allow me to still be able to easily access
 740   ;; it in case I kill (cut or copy) something else inside Emacs before
 741   ;; yanking (pasting) what I'd originally intended to.
 742   (save-interprogram-paste-before-kill t))
 743
 744 ;; save minibuffer history
 745 (use-package savehist
 746   :demand
 747   :config
 748   (savehist-mode)
 749   (add-to-list 'savehist-additional-variables 'kill-ring))
 750
 751 ;; automatically save place in files
 752 (use-package saveplace
 753   :when (version< "25" emacs-version)
 754   :config (save-place-mode))
 755
 756 (use-package prog-mode
 757   :config (global-prettify-symbols-mode)
 758   (defun indicate-buffer-boundaries-left ()
 759     (setq indicate-buffer-boundaries 'left))
 760   (add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
 761
 762 (use-package text-mode
 763   :bind (:map text-mode-map ("C-*" . b/insert-asterism))
 764   :hook ((text-mode . indicate-buffer-boundaries-left)
 765          (text-mode . flyspell-mode)))
 766
 767 (use-package conf-mode
 768   :mode "\\.*rc$")
 769
 770 (use-package sh-script
 771   :mode ("\\.bashrc$" . sh-mode))
 772
 773 (use-package company
 774   :disabled
 775   :bind
 776   (:map company-active-map
 777         ([tab]    . company-complete-common-or-cycle)
 778         ([escape] . company-abort)
 779         ("C-p"    . company-select-previous-or-abort)
 780         ("C-n"    . company-select-next-or-abort))
 781   :custom
 782   (company-minimum-prefix-length 1)
 783   (company-selection-wrap-around t)
 784   (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
 785   (company-dabbrev-downcase nil)
 786   (company-dabbrev-ignore-case nil)
 787   ;; :config
 788   ;; (global-company-mode t)
 789   )
 790
 791 (use-package flycheck
 792   :disabled
 793   :defer 0.6
 794   :hook (prog-mode . flycheck-mode)
 795   :bind
 796   (:map flycheck-mode-map
 797         ("M-P" . flycheck-previous-error)
 798         ("M-N" . flycheck-next-error))
 799   :config
 800   ;; Use the load-path from running Emacs when checking elisp files
 801   (setq flycheck-emacs-lisp-load-path 'inherit)
 802
 803   ;; Only flycheck when I actually save the buffer
 804   (setq flycheck-check-syntax-automatically '(mode-enabled save))
 805   :custom (flycheck-mode-line-prefix "flyc"))
 806
 807 ;; (use-package flyspell)
 808
 809 ;; http://endlessparentheses.com/ispell-and-apostrophes.html
 810 (use-package ispell
 811   :disabled
 812   :defer 0.6
 813   :config
 814   ;; ’ can be part of a word
 815   (setq ispell-local-dictionary-alist
 816         `((nil "[[:alpha:]]" "[^[:alpha:]]"
 817                "['\x2019]" nil ("-B") nil utf-8))
 818         ispell-program-name (executable-find "hunspell"))
 819   ;; don't send ’ to the subprocess
 820   (defun endless/replace-apostrophe (args)
 821     (cons (replace-regexp-in-string
 822            "’" "'" (car args))
 823           (cdr args)))
 824   (advice-add #'ispell-send-string :filter-args
 825               #'endless/replace-apostrophe)
 826
 827   ;; convert ' back to ’ from the subprocess
 828   (defun endless/replace-quote (args)
 829     (if (not (derived-mode-p 'org-mode))
 830         args
 831       (cons (replace-regexp-in-string
 832              "'" "’" (car args))
 833             (cdr args))))
 834   (advice-add #'ispell-parse-output :filter-args
 835               #'endless/replace-quote))
 836
 837 (use-package abbrev
 838   :hook (text-mode . abbrev-mode))
 839
 840 \f
 841 ;;; Programming modes
 842
 843 (use-package lisp-mode
 844   :config
 845   (defun indent-spaces-mode ()
 846     (setq indent-tabs-mode nil))
 847   (add-hook 'lisp-interaction-mode-hook #'indent-spaces-mode))
 848
 849 (use-package alloy-mode
 850   :mode "\\.\\(als\\|dsh\\)\\'"
 851   :config
 852   (setq alloy-basic-offset 2)
 853   ;; (defun b/alloy-simple-indent (start end)
 854   ;;   (interactive "r")
 855   ;;   ;; (if (region-active-p)
 856   ;;   ;;     (indent-rigidly start end alloy-basic-offset)
 857   ;;   ;;   (if (bolp)
 858   ;;   ;;       (indent-rigidly (line-beginning-position)
 859   ;;   ;;                       (line-end-position)
 860   ;;   ;;                       alloy-basic-offset)))
 861   ;;   (indent-to (+ (current-column) alloy-basic-offset)))
 862   :bind (:map alloy-mode-map
 863               ("RET" . electric-newline-and-maybe-indent)
 864               ;; ("TAB" . b/alloy-simple-indent)
 865               ("TAB" . indent-for-tab-command))
 866   :hook (alloy-mode . (lambda () (setq-local indent-tabs-mode nil))))
 867
 868 (use-package lean-mode
 869   :disabled
 870   :defer 0.4
 871   :init (eval-when-compile (defvar lean-mode-map))
 872   :bind (:map lean-mode-map
 873               ("S-SPC" . company-complete))
 874   :config
 875   (require 'lean-input)
 876   (setq default-input-method "Lean"
 877         lean-input-tweak-all '(lean-input-compose
 878                                (lean-input-prepend "/")
 879                                (lean-input-nonempty))
 880         lean-input-user-translations '(("/" "/")))
 881   (lean-input-setup))
 882
 883 (use-package sgml-mode
 884   :config
 885   (setq sgml-basic-offset 0))
 886
 887 (use-package css-mode
 888   :config
 889   (setq css-indent-offset 2))
 890
 891 (use-package geiser
 892   :disabled)
 893
 894 (use-package geiser-guile
 895   :disabled
 896   :config
 897   (setq geiser-guile-load-path "~/src/git/guix"))
 898
 899 (use-package guix
 900   :disabled)
 901
 902 (use-package go-mode
 903   :disabled)
 904
 905 (use-package po-mode
 906   :disabled
 907   :hook
 908   (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit))))
 909
 910 (use-package auctex
 911   :disabled
 912   :custom
 913   (font-latex-fontify-sectioning 'color))
 914
 915 (use-package tex-mode
 916   :config
 917   (cl-delete-if
 918    (lambda (p) (string-match "^---?" (car p)))
 919    tex--prettify-symbols-alist)
 920   :hook ((tex-mode . auto-fill-mode)
 921          (tex-mode . flyspell-mode)))
 922
 923 ;; (use-package george-mode
 924 ;;   :straight (:host nil :repo "https://git.shemshak.org/amin/george-mode")
 925 ;;   :mode "\\.grg\\'")
 926
 927 \f
 928 ;;; Emacs enhancements & auxiliary packages
 929
 930 (use-package man
 931   :config (setq Man-width 80))
 932
 933 (use-package which-key
 934   :defer 0.4
 935   :config
 936   (which-key-add-key-based-replacements
 937     ;; prefixes for global prefixes and minor modes
 938     "C-c !"   "flycheck"
 939     "C-x RET" "coding system"
 940     "C-x 8"   "unicode"
 941     "C-x @"   "event modifiers"
 942     "C-x a"   "abbrev/expand"
 943     "C-x r"   "rectangle/register/bookmark"
 944     "C-x t"   "tabs"
 945     "C-x v"   "version control"
 946     "C-x X"   "edebug"
 947     "C-x C-a" "edebug"
 948     "C-x C-k" "kmacro"
 949     ;; prefixes for my personal bindings
 950     "C-c &"   "yasnippet"
 951     "C-c a"   "applications"
 952     "C-c a e" "erc"
 953     "C-c a o" "org"
 954     "C-c a s" "shells"
 955     "C-c b"   "buffers"
 956     "C-c c"   "compile-and-comments"
 957     "C-c e"   "eval"
 958     "C-c f"   "files"
 959     "C-c F"   "frames"
 960     "C-c g"   "magit"
 961     "C-S-h"   "help(ful)"
 962     "C-c q"   "boxquote"
 963     "C-c t"   "themes")
 964
 965   ;; prefixes for major modes
 966   (which-key-add-major-mode-key-based-replacements 'message-mode
 967     "C-c f n" "footnote")
 968   (which-key-add-major-mode-key-based-replacements 'org-mode
 969     "C-c C-v" "org-babel")
 970
 971   (which-key-mode)
 972   :custom
 973   (which-key-add-column-padding 5)
 974   (which-key-idle-delay 10000)
 975   (which-key-idle-secondary-delay 0.05)
 976   (which-key-max-description-length 32)
 977   (which-key-show-early-on-C-h t))
 978
 979 ;; (require 'bandali-projectile)
 980
 981 (use-package helpful
 982   :disabled
 983   :defer 0.6
 984   :bind
 985   (("C-S-h c" . helpful-command)
 986    ("C-S-h f" . helpful-callable)        ; helpful-function
 987    ("C-S-h v" . helpful-variable)
 988    ("C-S-h k" . helpful-key)
 989    ("C-S-h p" . helpful-at-point)))
 990
 991 (use-package unkillable-scratch
 992   :defer 0.6
 993   :config
 994   (unkillable-scratch 1)
 995   :custom
 996   (unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
 997
 998 ;; ,----
 999 ;; | make pretty boxed quotes like this
1000 ;; `----
1001 (use-package boxquote
1002   :defer 0.6
1003   :bind
1004   (:prefix-map
1005    b/boxquote-prefix-map
1006    :prefix "C-c q"
1007    ("b"   . boxquote-buffer)
1008    ("B"   . boxquote-insert-buffer)
1009    ("d"   . boxquote-defun)
1010    ("F"   . boxquote-insert-file)
1011    ("hf"  . boxquote-describe-function)
1012    ("hk"  . boxquote-describe-key)
1013    ("hv"  . boxquote-describe-variable)
1014    ("hw"  . boxquote-where-is)
1015    ("k"   . boxquote-kill)
1016    ("p"   . boxquote-paragraph)
1017    ("q"   . boxquote-boxquote)
1018    ("r"   . boxquote-region)
1019    ("s"   . boxquote-shell-command)
1020    ("t"   . boxquote-text)
1021    ("T"   . boxquote-title)
1022    ("u"   . boxquote-unbox)
1023    ("U"   . boxquote-unbox-region)
1024    ("y"   . boxquote-yank)
1025    ("M-q" . boxquote-fill-paragraph)
1026    ("M-w" . boxquote-kill-ring-save)))
1027
1028 (use-package hl-todo
1029   ;; highlight TODOs in buffers
1030   :defer 0.5
1031   :config
1032   (global-hl-todo-mode))
1033
1034 (use-package page-break-lines
1035   :defer 0.5
1036   :custom
1037   (page-break-lines-max-width fill-column)
1038   :config
1039   (global-page-break-lines-mode))
1040
1041 (use-package expand-region
1042   :bind ("C-=" . er/expand-region))
1043
1044 (require 'bandali-yasnippet)
1045
1046 (comment
1047
1048 (use-package debbugs
1049   :bind
1050   (("C-c D d" . debbugs-gnu)
1051    ("C-c D b" . debbugs-gnu-bugs)
1052    ("C-c D e" .
1053     (lambda ()
1054       (interactive)                     ; bug-gnu-emacs
1055       (setq debbugs-gnu-current-suppress t)
1056       (debbugs-gnu debbugs-gnu-default-severities '("emacs"))))
1057    ("C-c D g" .                         ; bug-gnuzilla
1058     (lambda ()
1059       (interactive)
1060       (setq debbugs-gnu-current-suppress t)
1061       (debbugs-gnu debbugs-gnu-default-severities '("gnuzilla"))))
1062    ("C-c D G b" .                       ; bug-guix
1063     (lambda ()
1064       (interactive)
1065       (setq debbugs-gnu-current-suppress t)
1066       (debbugs-gnu debbugs-gnu-default-severities '("guix"))))
1067    ("C-c D G p" .                       ; guix-patches
1068     (lambda ()
1069       (interactive)
1070       (setq debbugs-gnu-current-suppress t)
1071       (debbugs-gnu debbugs-gnu-default-severities '("guix-patches"))))))
1072
1073 (use-package org-ref
1074   :init
1075   (b/setq-every '("~/usr/org/references.bib")
1076     reftex-default-bibliography
1077     org-ref-default-bibliography)
1078   (setq
1079    org-ref-bibliography-notes "~/usr/org/notes.org"
1080    org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
1081
1082 ;; (use-package fill-column-indicator)
1083
1084 (use-package window
1085   :bind
1086   (("C-c w s l" . (lambda ()
1087                     (interactive)
1088                     (split-window-right)
1089                     (other-window 1)))
1090    ("C-c w s j" . (lambda ()
1091                     (interactive)
1092                     (split-window-below)
1093                     (other-window 1)))
1094    ("C-c w q"   . quit-window))
1095   :custom
1096   (split-width-threshold 150))
1097
1098 (use-package windmove
1099   :defer 0.6
1100   :bind
1101   (("C-c w h" . windmove-left)
1102    ("C-c w j" . windmove-down)
1103    ("C-c w k" . windmove-up)
1104    ("C-c w l" . windmove-right)
1105    ("C-c w H" . windmove-swap-states-left)
1106    ("C-c w J" . windmove-swap-states-down)
1107    ("C-c w K" . windmove-swap-states-up)
1108    ("C-c w L" . windmove-swap-states-right)))
1109
1110 (use-package pass
1111   :commands pass
1112   :bind ("C-c a p" . pass)
1113   :hook (pass-mode . View-exit))
1114
1115 (use-package pdf-tools
1116   :defer 0.5
1117   :bind (:map pdf-view-mode-map
1118               ("<C-XF86Back>"    . pdf-history-backward)
1119               ("<mouse-8>"       . pdf-history-backward)
1120               ("<drag-mouse-8>"  . pdf-history-backward)
1121               ("<C-XF86Forward>" . pdf-history-forward)
1122               ("<mouse-9>"       . pdf-history-forward)
1123               ("<drag-mouse-9>"  . pdf-history-forward)
1124               ("M-RET"           . image-previous-line)
1125               ("C-s"             . isearch-forward)
1126               ("s s"             . isearch-forward))
1127   :config (pdf-tools-install nil t)
1128   :custom (pdf-view-resize-factor 1.05))
1129
1130 (use-package org-pdftools
1131   :disabled
1132   :straight (:host github :repo "fuxialexander/org-pdftools")
1133   :demand
1134   :after org
1135   :config
1136   (with-eval-after-load 'org
1137     (require 'org-pdftools)))
1138
1139 (use-package biblio)
1140
1141 (use-package reftex
1142   :hook (latex-mode . reftex-mode))
1143
1144 (use-package reftex-cite
1145   :after reftex
1146   :disabled                             ; enable to disable
1147                                         ; reftex-cite's default choice
1148                                         ; of previous word
1149   :config
1150   (defun reftex-get-bibkey-default ()
1151     "If the cursor is in a citation macro, return the word before the macro."
1152     (let* ((macro (reftex-what-macro 1)))
1153       (save-excursion
1154         (when (and macro (string-match "cite" (car macro)))
1155           (goto-char (cdr macro)))
1156         (reftex-this-word)))))
1157
1158 (use-package dmenu
1159   :custom
1160   (dmenu-prompt-string "run: ")
1161   (dmenu-save-file (b/var "dmenu-items")))
1162
1163 (use-package eosd
1164   ;; TODO: fix build by properly building the eosd-pixbuf.c module
1165   ;; e.g. see https://github.com/raxod502/straight.el/issues/386
1166   :disabled
1167   :straight (:host github :repo "clarete/eosd")
1168   :demand
1169   :after exwm
1170   :config
1171   (eosd-start))
1172
1173 (use-package eww
1174   :bind ("C-c a e w" . eww)
1175   :custom
1176   (eww-download-directory (file-name-as-directory
1177                            (getenv "XDG_DOWNLOAD_DIR"))))
1178
1179 \f
1180 ;;; Post initialization
1181
1182 )
1183 (message "Loading %s...done (%.3fs)" user-init-file
1184          (float-time (time-subtract (current-time)
1185                                     b/before-user-init-time)))
1186
1187 ;;; init.el ends here