From: Amin Bandali Date: Mon, 1 Jul 2019 18:09:05 +0000 (-0400) Subject: emacs: change my prefix from a/ to mab/ X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/c1fb22abb913c58b7410207c6d2e20a5d1bb5292?hp=cb928c71d38fa6d035fd3f8650eb798df9eb5854 emacs: change my prefix from a/ to mab/ --- diff --git a/.emacs.d/init.el b/.emacs.d/init.el index a90ab7c..e029be7 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -37,18 +37,18 @@ ;;; Emacs initialization -(defvar a/before-user-init-time (current-time) +(defvar mab/before-user-init-time (current-time) "Value of `current-time' when Emacs begins loading `user-init-file'.") (message "Loading Emacs...done (%.3fs)" - (float-time (time-subtract a/before-user-init-time + (float-time (time-subtract mab/before-user-init-time before-init-time))) ;; temporarily increase `gc-cons-threshhold' and `gc-cons-percentage' ;; during startup to reduce garbage collection frequency. clearing ;; `file-name-handler-alist' seems to help reduce startup time too. -(defvar a/gc-cons-threshold gc-cons-threshold) -(defvar a/gc-cons-percentage gc-cons-percentage) -(defvar a/file-name-handler-alist file-name-handler-alist) +(defvar mab/gc-cons-threshold gc-cons-threshold) +(defvar mab/gc-cons-percentage gc-cons-percentage) +(defvar mab/file-name-handler-alist file-name-handler-alist) (setq gc-cons-threshold (* 400 1024 1024) ; 400 MiB gc-cons-percentage 0.6 file-name-handler-alist nil @@ -56,11 +56,11 @@ esup-child-profile-require-level 0) ;; set them back to their defaults once we're done initializing -(defun a/post-init () - (setq gc-cons-threshold a/gc-cons-threshold - gc-cons-percentage a/gc-cons-percentage - file-name-handler-alist a/file-name-handler-alist)) -(add-hook 'after-init-hook #'a/post-init) +(defun mab/post-init () + (setq gc-cons-threshold mab/gc-cons-threshold + gc-cons-percentage mab/gc-cons-percentage + file-name-handler-alist mab/file-name-handler-alist)) +(add-hook 'after-init-hook #'mab/post-init) ;; increase number of lines kept in *Messages* log (setq message-log-max 20000) @@ -109,7 +109,7 @@ (setq straight-repository-branch "develop" straight-check-for-modifications '(check-on-save find-when-checking)) -(defun a/bootstrap-straight () +(defun mab/bootstrap-straight () (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) @@ -125,7 +125,7 @@ ;; Solid rocket booster ignition... -(a/bootstrap-straight) +(mab/bootstrap-straight) ;; We have lift off! @@ -142,12 +142,12 @@ (add-to-list 'recentf-exclude (expand-file-name "~/.emacs.d/straight/build/"))) -(defun a/reload-init () +(defun mab/reload-init () "Reload init.el." (interactive) - (setq a/file-name-handler-alist file-name-handler-alist) + (setq mab/file-name-handler-alist file-name-handler-alist) (load user-init-file nil 'nomessage) - (a/post-init)) + (mab/post-init)) ;; use-package (straight-use-package 'use-package) @@ -270,7 +270,7 @@ ;; focus follows mouse (setq mouse-autoselect-window t) -(defun a/no-mouse-autoselect-window () +(defun mab/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) @@ -304,12 +304,12 @@ For disabling the behaviour for certain buffers and/or modes." ;;; Useful utilities -(defmacro a/setq-every (value &rest vars) +(defmacro mab/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 a/start-process (program &rest args) +(defun mab/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 @@ -317,15 +317,15 @@ For disabling the behaviour for certain buffers and/or modes." (apply #'start-process process-name buffer-name program args))) -(defun a/dired-start-process (program &optional args) +(defun mab/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 #'a/start-process + (apply #'mab/start-process program (remove nil (list args (dired-get-file-for-visit))))) -(defun a/add-elisp-section () +(defun mab/add-elisp-section () (interactive) (insert "\n") (previous-line) @@ -413,12 +413,12 @@ For disabling the behaviour for certain buffers and/or modes." ;; https://stackoverflow.com/a/17788551, with changes to use `cl-letf' ;; instead of the now obsolete `flet'. (with-eval-after-load 'compile - (defun a/compilation-finish-function (buffer outstr) + (defun mab/compilation-finish-function (buffer outstr) (unless (string-match "finished" outstr) (switch-to-buffer-other-window buffer)) t) - (setq compilation-finish-functions #'a/compilation-finish-function) + (setq compilation-finish-functions #'mab/compilation-finish-function) (require 'cl-macs) @@ -485,7 +485,7 @@ For disabling the behaviour for certain buffers and/or modes." ("M-O" . facemenu-keymap) :map emacs-lisp-mode-map - ("" . a/add-elisp-section)) + ("" . mab/add-elisp-section)) (when (display-graphic-p) (unbind-key "C-z" global-map)) @@ -500,14 +500,14 @@ For disabling the behaviour for certain buffers and/or modes." ("" . ivy-switch-buffer)) (bind-keys - :prefix-map a/straight-prefix-map + :prefix-map mab/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" . a/reload-init) + ("r" . mab/reload-init) ;; M-x ^straight-.*-all$ ("a c" . straight-check-all) ("a f" . straight-fetch-all) @@ -600,13 +600,13 @@ For disabling the behaviour for certain buffers and/or modes." ;; org file. closely inspired by ;; https://github.com/dieggsy/dotfiles/tree/cc10edf7701958eff1cd94d4081da544d882a28c/emacs.d#dotfiles (with-eval-after-load 'org - (defvar a/show-async-tangle-results nil + (defvar mab/show-async-tangle-results nil "Keep *emacs* async buffers around for later inspection.") - (defvar a/show-async-tangle-time nil + (defvar mab/show-async-tangle-time nil "Show the time spent tangling the file.") - (defun a/async-babel-tangle () + (defun mab/async-babel-tangle () "Tangle org file asynchronously." (interactive) (let* ((file-tangle-start-time (current-time)) @@ -618,12 +618,12 @@ For disabling the behaviour for certain buffers and/or modes." `(lambda () (require 'org) (org-babel-tangle-file ,file)) - (unless a/show-async-tangle-results + (unless mab/show-async-tangle-results `(lambda (result) (if result (message "Tangled %s%s" ,file-nodir - (if a/show-async-tangle-time + (if mab/show-async-tangle-time (format " (%.3fs)" (float-time (time-subtract (current-time) ',file-tangle-start-time))) @@ -632,7 +632,7 @@ For disabling the behaviour for certain buffers and/or modes." (add-to-list 'safe-local-variable-values - '(eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)) + '(eval add-hook 'after-save-hook #'mab/async-babel-tangle 'append 'local)) ;; *the* right way to do git (use-package magit @@ -731,29 +731,29 @@ For disabling the behaviour for certain buffers and/or modes." :bind ("C-c a s e" . eshell) :config (eval-when-compile (defvar eshell-prompt-regexp)) - (defun a/eshell-quit-or-delete-char (arg) + (defun mab/eshell-quit-or-delete-char (arg) (interactive "p") (if (and (eolp) (looking-back eshell-prompt-regexp nil)) (eshell-life-is-too-much) (delete-char arg))) - (defun a/eshell-clear () + (defun mab/eshell-clear () (interactive) (let ((inhibit-read-only t)) (erase-buffer)) (eshell-send-input)) - (defun a/eshell-setup () + (defun mab/eshell-setup () (make-local-variable 'company-idle-delay) (defvar company-idle-delay) (setq company-idle-delay nil) (bind-keys :map eshell-mode-map - ("C-d" . a/eshell-quit-or-delete-char) - ("C-S-l" . a/eshell-clear) + ("C-d" . mab/eshell-quit-or-delete-char) + ("C-S-l" . mab/eshell-clear) ("M-r" . counsel-esh-history) ([tab] . company-complete))) - :hook (eshell-mode . a/eshell-setup) + :hook (eshell-mode . mab/eshell-setup) :custom (eshell-hist-ignoredups t) (eshell-input-filter 'eshell-input-filter-initial-space)) @@ -841,7 +841,7 @@ For disabling the behaviour for certain buffers and/or modes." ("" . outline-toggle-children) ("M-p" . outline-previous-visible-heading) ("M-n" . outline-next-visible-heading) - :prefix-map a/outline-prefix-map + :prefix-map mab/outline-prefix-map :prefix "s-O" ("TAB" . outline-toggle-children) ("a" . outline-hide-body) @@ -899,7 +899,7 @@ For disabling the behaviour for certain buffers and/or modes." ("\\" . dired-hide-details-mode) ("z" . (lambda () (interactive) - (a/dired-start-process "zathura")))) + (mab/dired-start-process "zathura")))) :hook (dired-mode . dired-hide-details-mode)) (use-feature help @@ -1112,7 +1112,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package web-mode :mode "\\.html\\'" :config - (a/setq-every 2 + (mab/setq-every 2 web-mode-code-indent-offset web-mode-css-indent-offset web-mode-markup-indent-offset)) @@ -1228,33 +1228,33 @@ For disabling the behaviour for certain buffers and/or modes." (use-package doom-themes) -(defvar a/org-mode-font-lock-keywords +(defvar mab/org-mode-font-lock-keywords '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)" (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind (4 '(:foreground "#c5c8c6") t)))) ; title -(defun a/lights-on () +(defun mab/lights-on () "Enable my favourite light theme." (interactive) (mapc #'disable-theme custom-enabled-themes) (load-theme 'tangomod t) (sml/apply-theme 'automatic) (font-lock-remove-keywords - 'org-mode a/org-mode-font-lock-keywords)) + 'org-mode mab/org-mode-font-lock-keywords)) -(defun a/lights-off () +(defun mab/lights-off () "Go dark." (interactive) (mapc #'disable-theme custom-enabled-themes) (load-theme 'doom-tomorrow-night t) (sml/apply-theme 'automatic) (font-lock-add-keywords - 'org-mode a/org-mode-font-lock-keywords t)) + 'org-mode mab/org-mode-font-lock-keywords t)) (bind-keys - ("s-t d" . a/lights-off) - ("s-t l" . a/lights-on)) + ("s-t d" . mab/lights-off) + ("s-t l" . mab/lights-on)) ;;; Emacs enhancements & auxiliary packages @@ -1343,7 +1343,7 @@ For disabling the behaviour for certain buffers and/or modes." :config (projectile-mode) - (defun a/projectile-mode-line-fun () + (defun mab/projectile-mode-line-fun () "Report project name and type in the modeline." (let ((project-name (projectile-project-name)) (project-type (projectile-project-type))) @@ -1352,7 +1352,7 @@ For disabling the behaviour for certain buffers and/or modes." (if project-type (format ":%s" project-type) "")))) - (setq projectile-mode-line-function 'a/projectile-mode-line-fun) + (setq projectile-mode-line-function 'mab/projectile-mode-line-fun) (defun my-projectile-invalidate-cache (&rest _args) ;; ignore the args to `magit-checkout' @@ -1390,7 +1390,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package boxquote :defer 0.6 :bind - (:prefix-map a/boxquote-prefix-map + (:prefix-map mab/boxquote-prefix-map :prefix "C-c q" ("b" . boxquote-buffer) ("B" . boxquote-insert-buffer) @@ -1519,7 +1519,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package multiple-cursors :bind (("C-S-" . mc/add-cursor-on-click) - (:prefix-map a/mc-prefix-map + (:prefix-map mab/mc-prefix-map :prefix "C-c m" ("c" . mc/edit-lines) ("n" . mc/mark-next-like-this) @@ -1548,7 +1548,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-package org-ref :init - (a/setq-every '("~/usr/org/references.bib") + (mab/setq-every '("~/usr/org/references.bib") reftex-default-bibliography org-ref-default-bibliography) (setq @@ -1634,12 +1634,12 @@ For disabling the behaviour for certain buffers and/or modes." ;;; Email (with Gnus) -(defvar a/maildir (expand-file-name "~/mail/")) +(defvar mab/maildir (expand-file-name "~/mail/")) (with-eval-after-load 'recentf - (add-to-list 'recentf-exclude a/maildir)) + (add-to-list 'recentf-exclude mab/maildir)) (setq - a/gnus-init-file (no-littering-expand-etc-file-name "gnus") + mab/gnus-init-file (no-littering-expand-etc-file-name "gnus") mail-user-agent 'gnus-user-agent read-mail-command 'gnus) @@ -1884,7 +1884,7 @@ For disabling the behaviour for certain buffers and/or modes." (use-feature gnus-sum :bind (:map gnus-summary-mode-map - :prefix-map a/gnus-summary-prefix-map + :prefix-map mab/gnus-summary-prefix-map :prefix "v" ("r" . gnus-summary-reply) ("w" . gnus-summary-wide-reply) @@ -1893,15 +1893,15 @@ For disabling the behaviour for certain buffers and/or modes." (bind-keys :map gnus-summary-mode-map ("M-L" . org-store-link)) - :hook (gnus-summary-mode . a/no-mouse-autoselect-window)) + :hook (gnus-summary-mode . mab/no-mouse-autoselect-window)) (use-feature gnus-msg :config - (defvar a/uw-signature "Amin Bandali, MMath Student + (defvar mab/uw-signature "Amin Bandali, MMath Student Cheriton School of Computer Science University of Waterloo https://shemshak.org/~amin") - (defvar a/csc-signature "Amin Bandali + (defvar mab/csc-signature "Amin Bandali Termcom, Computer Science Club University of Waterloo https://shemshak.org/~amin") @@ -1917,17 +1917,17 @@ https://shemshak.org/~amin") ((header "subject" "ThankCRM") (to "webmasters-comment@gnu.org") (body "") - (eval (setq a/message-cite-say-hi nil))) + (eval (setq mab/message-cite-say-hi nil))) ("nnimap\\+uw:.*" (address "abandali@uwaterloo.ca") (organization "University of Waterloo") - (signature a/uw-signature)) + (signature mab/uw-signature)) ("nnimap\\+uw:INBOX" (gcc "\"nnimap+uw:Sent Items\"")) ("nnimap\\+csc:.*" (address "abandali@csclub.uwaterloo.ca") (organization "Computer Science Club, University of Waterloo") - (signature a/csc-signature) + (signature mab/csc-signature) (gcc "nnimap+csc:Sent"))))) (use-feature gnus-topic @@ -1977,7 +1977,7 @@ https://shemshak.org/~amin") (when from msg-id)))) - (defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:") + (defconst mab/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:") (defconst message-cite-style-bandali '((message-cite-function 'message-cite-original) (message-citation-line-function 'message-insert-formatted-citation-line) @@ -1986,9 +1986,9 @@ https://shemshak.org/~amin") (message-yank-cited-prefix ">") (message-yank-empty-prefix ">") (message-citation-line-format - (if a/message-cite-say-hi - (concat "Hi %F,\n\n" a/message-cite-style-format) - a/message-cite-style-format))) + (if mab/message-cite-say-hi + (concat "Hi %F,\n\n" mab/message-cite-style-format) + mab/message-cite-style-format))) "Citation style based on Mozilla Thunderbird's. Use with message-cite-style.") (setq ;; message-cite-style 'message-cite-style-bandali message-kill-buffer-on-exit t @@ -2028,7 +2028,7 @@ https://shemshak.org/~amin") ;; footnote-style 'unicode) :bind (:map message-mode-map - :prefix-map a/footnote-prefix-map + :prefix-map mab/footnote-prefix-map :prefix "C-c f" ("a" . footnote-add-footnote) ("b" . footnote-back-to-message) @@ -2186,6 +2186,6 @@ https://shemshak.org/~amin") (message "Loading %s...done (%.3fs)" user-init-file (float-time (time-subtract (current-time) - a/before-user-init-time))) + mab/before-user-init-time))) ;;; init.el ends here