From ea2af3aa9735bc18f60ab9b631d74a0c38e73076 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 28 Dec 2021 18:20:07 -0600 Subject: Change function notation to #' --- init.el | 192 ++++++++++++++++++++++++++++++++-------------------------------- 1 file changed, 97 insertions(+), 95 deletions(-) diff --git a/init.el b/init.el index 7c1da55..edb62b6 100644 --- a/init.el +++ b/init.el @@ -40,7 +40,7 @@ (interactive) (+init-sort) (save-buffer))) - (:hook '+init-add-setup-to-imenu)) + (:hook #'+init-add-setup-to-imenu)) (setup (:require +key) (+key-setup)) @@ -67,8 +67,8 @@ (setup (:require reading)) (setup Info - (:hook 'variable-pitch-mode - 'reading-mode)) + (:hook #'variable-pitch-mode + #'reading-mode)) (setup abbrev (:option abbrev-file-name (sync/ "abbrev.el") @@ -157,7 +157,7 @@ +custom-variable-allowlist '(safe-local-variable-values)) (when (file-exists-p custom-file) (+custom-load-ignoring-most-customizations t)) - (advice-add 'custom-buffer-create-internal :after '+cus-edit-expand-widgets) + (advice-add #'custom-buffer-create-internal :after #'+cus-edit-expand-widgets) (:with-mode Custom-mode (:local-set imenu-generic-expression +cus-edit-imenu-generic-expression))) @@ -179,14 +179,14 @@ hardlink load move shell touch symlink) dired-dwim-target t) - (:bind "" 'dired-up-directory - "TAB" 'dired-subtree-cycle - "i" 'dired-subtree-toggle - ")" 'dired-git-info-mode) - (:hook 'dired-collapse-mode - 'dired-hide-details-mode - 'hl-line-mode) - (:+key "C-x C-j" 'dired-jump) + (:bind "" #'dired-up-directory + "TAB" #'dired-subtree-cycle + "i" #'dired-subtree-toggle + ")" #'dired-git-info-mode) + (:hook #'dired-collapse-mode + #'dired-hide-details-mode + #'hl-line-mode) + (:+key "C-x C-j" #'dired-jump) (with-eval-after-load 'dired (pcase system-type ((or 'ms-dos 'windows-nt) @@ -207,10 +207,10 @@ (:option eval-expression-print-length nil eval-expression-print-level nil) (:with-map (emacs-lisp-mode-map lisp-interaction-mode-map) - (:bind "C-c C-c" 'eval-defun - "C-c C-k" '+elisp-eval-region-or-buffer - "C-c C-z" 'ielm)) - (advice-add 'eval-region :around '+eval-region@pulse)) + (:bind "C-c C-c" #'eval-defun + "C-c C-k" #'+elisp-eval-region-or-buffer + "C-c C-z" #'ielm)) + (advice-add #'eval-region :around #'+eval-region@pulse)) (setup eshell (:also-load +eshell @@ -231,7 +231,7 @@ eshell-where-to-jump 'begin) (:local-set outline-regexp eshell-prompt-regexp page-delimiter eshell-prompt-regexp) - (:bind "C-d" '+eshell-quit-or-delete-char) + (:bind "C-d" #'+eshell-quit-or-delete-char) (:when-loaded (setenv "PAGER" "cat"))) @@ -239,11 +239,11 @@ (:also-load +eww) (:option eww-search-prefix "https://duckduckgo.com/html?q=" url-privacy-level '(email agent cookies lastloc)) - (add-hook 'eww-after-render-hook 'reading-mode) - (:hook '+eww-bookmark-setup - '+eww-track-readable-mode) - (:bind "b" 'bookmark-set - "B" 'bookmark-jump + (add-hook 'eww-after-render-hook #'reading-mode) + (:hook #'+eww-bookmark-setup + #'+eww-track-readable-mode) + (:bind "b" #'bookmark-set + "B" #'bookmark-jump "M-n" nil "M-p" nil)) @@ -295,23 +295,27 @@ (setup minibuffer (:require +minibuffer) (:with-map minibuffer-local-map - (:bind "M-/" '+minibuffer-complete-history))) + (:bind "M-/" #'+minibuffer-complete-history))) + +(setup org-agenda + (:option org-agenda-skip-deadline-if-done t) + (:+leader "a" #'org-agenda "C-a" #'org-agenda)) (setup prog (:local-set comment-auto-fill-only-comments t) - (:hook 'prettify-symbols-mode - 'display-fill-column-indicator-mode - 'turn-on-auto-fill)) + (:hook #'prettify-symbols-mode + #'display-fill-column-indicator-mode + #'turn-on-auto-fill)) (setup scratch (:require +scratch) (:option initial-major-mode 'lisp-interaction-mode initial-scratch-message ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") - (add-hook 'kill-buffer-query-functions '+scratch-immortal)) + (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) (setup text - (:hook 'turn-on-auto-fill)) + (:hook #'turn-on-auto-fill)) (setup (:straight 0x0) (:option 0x0-default-server 'ttm) @@ -322,26 +326,26 @@ (:require +ace-window) (:option aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l) aw-display-mode-overlay nil) - (:+key "M-o" '+ace-window-or-switch-buffer) + (:+key "M-o" #'+ace-window-or-switch-buffer) (:face aw-mode-line-face ((t (:foreground "red")))) (+ace-window-display-mode +1)) (setup (:straight anzu) (:option anzu-cons-mode-line-p nil) - (:+key [remap query-replace] 'anzu-query-replace-regexp - [remap query-replace-regexp] 'anzu-query-replace-regexp) + (:+key [remap query-replace] #'anzu-query-replace-regexp + [remap query-replace-regexp] #'anzu-query-replace-regexp) (global-anzu-mode +1) (:bind-into isearch - [remap isearch-query-replace] 'anzu-isearch-query-replace - [remap isearch-query-replace-regexp] 'anzu-isearch-query-replace-regexp)) + [remap isearch-query-replace] #'anzu-isearch-query-replace + [remap isearch-query-replace-regexp] #'anzu-isearch-query-replace-regexp)) (setup (:straight avy) (:also-load +avy) - (:+key "M-j" 'avy-goto-char-timer) + (:+key "M-j" #'avy-goto-char-timer) (:bind-into isearch - "M-j" 'avy-isearch) + "M-j" #'avy-isearch) (:when-loaded - (setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark))) + (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark))) (setup (:straight (cape :host github :repo "minad/cape")) (dolist (fn '(;; All available cape capfs listed here. @@ -398,20 +402,20 @@ circe-default-user user-real-login-name circe-reduce-lurker-spam t circe-server-auto-join-default-type :after-auth) - (:bind "C-c C-p" 'circe-command-PART - "C-c C-t" '+circe-current-topic - "C-l" 'lui-track-jump-to-indicator - "C-" '+circe-chat@set-prompt) - - (advice-add 'circe-command-PART :after '+circe-kill-buffer) - (advice-add 'circe-command-QUIT :after '+circe-quit@kill-buffer) - (advice-add 'circe-command-GQUIT :after '+circe-gquit@kill-buffer) + (:bind "C-c C-p" #'circe-command-PART + "C-c C-t" #'+circe-current-topic + "C-l" #'lui-track-jump-to-indicator + "C-" #'+circe-chat@set-prompt) + + (advice-add #'circe-command-PART :after #'+circe-kill-buffer) + (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer) + (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer) (:with-mode circe-chat-mode - (:hook 'enable-circe-color-nicks - 'enable-circe-new-day-notifier - '+circe-chat@set-prompt) - (:bind "C-c C-s" 'circe-command-SLAP)) + (:hook #'enable-circe-color-nicks + #'enable-circe-new-day-notifier + #'+circe-chat@set-prompt) + (:bind "C-c C-s" #'circe-command-SLAP)) (:with-mode lui-mode (:option lui-fill-column (+ fill-column +circe-left-margin) @@ -427,9 +431,9 @@ 1 lui-emphasis-face) (,(+lui-make-formatting-list-rx "/") 1 lui-emphasis-face))) - (:hook 'visual-line-mode - 'enable-lui-track - 'visual-fill-column-mode) + (:hook #'visual-line-mode + #'enable-lui-track + #'visual-fill-column-mode) (:local-set fringes-outside-margins t right-margin-width (length lui-time-stamp-format) scroll-margin 0 @@ -446,8 +450,8 @@ '(circe-channel-mode . +circe-current-topic))) (with-eval-after-load 'circe-color-nicks - (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset)) - (add-hook 'kill-emacs-hook '+circe-quit-all@kill-emacs)) + (add-hook 'modus-themes-after-load-theme-hook #'circe-nick-color-reset)) + (add-hook 'kill-emacs-hook #'+circe-quit-all@kill-emacs)) (setup (:straight consult) (:also-load +consult) @@ -458,9 +462,9 @@ xref-show-definitions-function 'consult-xref tab-always-indent 'complete completion-in-region-function 'consult-completion-in-region) - (advice-add 'register-preview :override 'consult-register-window) - (advice-add 'completing-read-multiple :override - 'consult-completing-read-multiple) + (advice-add #'register-preview :override #'consult-register-window) + (advice-add #'completing-read-multiple :override + #'consult-completing-read-multiple) (dolist (binding '(;; C-c bindings (mode-specific-map) ("C-c h" . consult-history) ("C-c m" . consult-mode-command) @@ -531,8 +535,8 @@ (:option consult--regexp-compiler 'consult--orderless-regexp-compiler)))) (setup (:straight crux) - (:+key "C-o" 'crux-smart-open-line - "C-x 4 t" 'crux-transpose-windows) + (:+key "C-o" #'crux-smart-open-line + "C-x 4 t" #'crux-transpose-windows) (el-patch-feature crux) (with-eval-after-load 'crux @@ -570,7 +574,7 @@ See also `crux-reopen-as-root-mode'." "Display tooltips for the current word" t) (autoload 'global-dictionary-tooltip-mode "dictionary" "Enable/disable dictionary-tooltip-mode for all buffers" t) - (:hook 'reading-mode)) + (:hook #'reading-mode)) (setup (:straight (discord :host github @@ -587,9 +591,9 @@ See also `crux-reopen-as-root-mode'." elfeed-show-unique-buffers t elfeed-db-directory (sync/ "elfeed/db/" t)) (:with-mode elfeed-show-mode - (:bind "SPC" '+elfeed-scroll-up-command - "S-SPC" '+elfeed-scroll-down-command) - (:hook 'reading-mode))) + (:bind "SPC" #'+elfeed-scroll-up-command + "S-SPC" #'+elfeed-scroll-down-command) + (:hook #'reading-mode))) (setup (:straight elfeed-org) (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t))) @@ -597,13 +601,13 @@ See also `crux-reopen-as-root-mode'." (setup (:straight embark) (:option prefix-help-command 'embark-prefix-help-command) - (:+key "C-." 'embark-act - "M-." 'embark-dwim - " B" 'embark-bindings)) + (:+key "C-." #'embark-act + "M-." #'embark-dwim + " B" #'embark-bindings)) (setup (:straight embark-consult) (:load-after consult embark) - (add-hook 'embark-collect-mode-hook 'consult-preview-at-point-mode)) + (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode)) (setup (:straight eros) (:hook-into emacs-lisp-mode @@ -623,7 +627,7 @@ See also `crux-reopen-as-root-mode'." "XDG_CACHE_HOME"))) (setup (:straight expand-region) - (:+key "C-=" 'er/expand-region)) + (:+key "C-=" #'er/expand-region)) (setup (:straight (frowny :host github @@ -660,15 +664,15 @@ See also `crux-reopen-as-root-mode'." (setup (:straight helpful) (run-with-idle-timer 0.5 nil 'require 'helpful) - (:+key " f" 'helpful-callable - " v" 'helpful-variable - " k" 'helpful-key - "C-c C-d" 'helpful-at-point)) + (:+key " f" #'helpful-callable + " v" #'helpful-variable + " k" #'helpful-key + "C-c C-d" #'helpful-at-point)) (setup (:straight (hippie-completing-read :host github :repo "duckwork/hippie-completing-read")) - (:+key "M-/" 'hippie-completing-read)) + (:+key "M-/" #'hippie-completing-read)) (setup (:straight hungry-delete) (:option hungry-delete-chars-to-skip " \t" @@ -713,7 +717,7 @@ See also `crux-reopen-as-root-mode'." (isearch-mb-mode +1)) (setup (:straight lacarte) - (:+key "" 'lacarte-execute-menu-command)) + (:+key "" #'lacarte-execute-menu-command)) (setup (:straight (lin :host gitlab :repo "protesilaos/lin")) (require 'lin) @@ -777,7 +781,6 @@ See also `crux-reopen-as-root-mode'." (:also-load +org ox-md) (:option org-adapt-indentation nil - org-agenda-skip-deadline-if-done t org-archive-mark-done t org-catch-invisible-edits 'show-and-error org-clock-clocked-in-display 'mode-line @@ -822,18 +825,17 @@ See also `crux-reopen-as-root-mode'." org-startup-truncated nil org-startup-with-inline-images t org-tags-column (- (- fill-column (length org-ellipsis)))) - (:bind "RET" '+org-return-dwim - "" '+org-table-copy-down - "C-c C-l" '+org-insert-link-dwim - "C-c C-n" '+org-next-heading-widen - "C-c C-p" '+org-previous-heading-widen) - (:+leader "c" 'org-capture "C-c" 'org-capture - "a" 'org-agenda "C-a" 'org-agenda) - (:local-hook before-save-hook '+org-before-save@prettify-buffer) - (advice-add 'org-delete-backward-char :override '+org-delete-backward-char) + (:bind "RET" #'+org-return-dwim + "" #'+org-table-copy-down + "C-c C-l" #'+org-insert-link-dwim + "C-c C-n" #'+org-next-heading-widen + "C-c C-p" #'+org-previous-heading-widen) + (:+leader "c" #'org-capture "C-c" #'org-capture) + (:local-hook before-save-hook #'+org-before-save@prettify-buffer) + (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char) (with-eval-after-load 'org (org-clock-persistence-insinuate) - (org-link-set-parameters "tel" :follow '+org-tel-open))) + (org-link-set-parameters "tel" :follow #'+org-tel-open))) (setup (:straight org-appear) (:option org-appear-autoemphasis t @@ -848,12 +850,12 @@ See also `crux-reopen-as-root-mode'." (:hook-into org-mode)) (setup (:straight paredit) - (:bind "DEL" 'paredit-backward-delete - "C-" 'paredit-backward-kill-word) + (:bind "DEL" #'paredit-backward-delete + "C-" #'paredit-backward-kill-word) (:hook-into emacs-lisp-mode lisp-interaction-mode lisp-mode scheme-mode) (:also-load eldoc) - (eldoc-add-command 'paredit-backward-delete 'paredit-close-round)) + (eldoc-add-command #'paredit-backward-delete #'paredit-close-round)) (setup (:straight paren-face) (:hook-into emacs-lisp-mode @@ -872,7 +874,7 @@ See also `crux-reopen-as-root-mode'." (:option shell-command-prompt "$ ") (:bind-into dired "M-!" 'shell-command+) - (:+key "M-!" 'shell-command+)) + (:+key "M-!" #'shell-command+)) (setup (:straight sicp)) @@ -964,24 +966,24 @@ See also `crux-reopen-as-root-mode'." (:option resize-mini-windows 'grow-only vertico-count-format nil vertico-cycle t) - (advice-add 'vertico-next :around '+vertico-ding-wrap) + (advice-add #'vertico-next :around #'+vertico-ding-wrap) (when (boundp 'native-comp-deferred-compilation-deny-list) (add-to-list 'native-comp-deferred-compilation-deny-list "vertico")) (vertico-mode +1) ;; Extensions (:also-load vertico-directory) (:with-map vertico-map - (:bind "RET" 'vertico-directory-enter - "DEL" 'vertico-directory-delete-char - "M-DEL" 'vertico-directory-delete-word)) - (add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy)) + (:bind "RET" #'vertico-directory-enter + "DEL" #'vertico-directory-delete-char + "M-DEL" #'vertico-directory-delete-word)) + (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)) (setup (:straight visual-fill-column) (:option visual-fill-column-center-text t (append reading-modes) '(visual-fill-column-mode . +1)) - (:hook 'visual-line-mode) + (:hook #'visual-line-mode) (:hook-into org-mode) - (advice-add 'text-scale-adjust :after 'visual-fill-column-adjust)) + (advice-add #'text-scale-adjust :after #'visual-fill-column-adjust)) (setup (:straight vlf) (:require vlf-setup)) -- cgit 1.4.1-21-gabe81