From dc9e889d6cbc0ce531f8fecaad2515a6fd073331 Mon Sep 17 00:00:00 2001 From: Thomas Schneider Date: Thu, 27 Jun 2019 14:56:11 +0200 Subject: Emacs: Rename own functions MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit … and stripe-listify package-menu as well, because splitting this commit would be too tedious. --- dot.emacs.d/init.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el index 3fb9890..0d5813f 100644 --- a/dot.emacs.d/init.el +++ b/dot.emacs.d/init.el @@ -85,7 +85,7 @@ (use-package company-math :config (add-to-list 'company-backends 'company-math-symbols-unicode) - (add-hook 'TeX-mode-hook (defun my-TeX-mode-hook-company () + (add-hook 'TeX-mode-hook (defun qsx-TeX-mode-hook-company () (setq-local company-backends (append '((company-math-symbols-latex company-latex-commands)) company-backends))))) @@ -97,7 +97,7 @@ :config (add-to-list 'company-backends 'company-reftex)) (use-package company-jedi :config - (add-hook 'python-mode-hook (defun my-python-mode-hook-jedi () + (add-hook 'python-mode-hook (defun qsx-python-mode-hook-jedi () (make-local-variable company-backends) (add-to-list 'company-backends 'company-jedi)))) (use-package company-ansible @@ -182,10 +182,12 @@ (use-package stripe-buffer :config - (defun my-stripe-listify-buffer-hook () + (defun qsx-stripe-listify-buffer-hook () (stripe-listify-buffer)) - (dolist (h '(gnus-group-mode-hook gnus-summary-mode-hook)) - (add-hook h #'my-stripe-listify-buffer-hook))) + (dolist (h '(gnus-group-mode-hook + gnus-summary-mode-hook + package-menu-mode-hook)) + (add-hook h #'qsx-stripe-listify-buffer-hook))) (use-package rainbow-delimiters :config @@ -200,17 +202,17 @@ (use-package dockerfile-mode) -(defun my-dont-show-line-numbers-hook () +(defun qsx-dont-show-line-numbers-hook () (setq display-line-numbers nil)) -(add-hook 'Man-mode-hook #'my-dont-show-line-numbers-hook) +(add-hook 'Man-mode-hook #'qsx-dont-show-line-numbers-hook) (use-package pdf-tools :unless (eq system-type 'darwin) :config (pdf-tools-install) (setq-default pdf-view-display-size 'fit-page) - (add-hook 'pdf-view-mode-hook #'my-dont-show-line-numbers-hook)) + (add-hook 'pdf-view-mode-hook #'qsx-dont-show-line-numbers-hook)) (setq-default show-trailing-whitespace t) @@ -284,7 +286,7 @@ (nnir-search-engine notmuch))) nnir-notmuch-program "/home/qsx/.local/bin/notmuch-gnus" nnir-notmuch-remove-prefix (concat (getenv "HOME") "/.nnmaildir/")) - (add-hook 'message-setup-hook (defun message-add-my-headers () + (add-hook 'message-setup-hook (defun qsx-message-add-my-headers () (message-add-header "Openpgp: id=E384009D3B54DCD321BF953295EE94A432583DB1; url=https://pgp.mit.edu/pks/lookup?op=get&search=0x95EE94A432583DB1; preference=signencrypt")))) (use-package gnus-alias -- cgit v1.2.3