From a23fd4a0bbff7f5085ee0c14acaf9d2dcf0675b5 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sun, 25 Aug 2019 00:10:15 -0400 Subject: [PATCH] emacs: update custom, fix haskell-cafe directory name --- .emacs.d/etc/custom.el | 105 +++++++++++++++++++++++++++-------------- .emacs.d/init.el | 2 +- 2 files changed, 70 insertions(+), 37 deletions(-) diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el index a79127b..132c5ff 100644 --- a/.emacs.d/etc/custom.el +++ b/.emacs.d/etc/custom.el @@ -3,40 +3,48 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - '(auth-sources '("~/.authinfo.gpg")) + '(abbrev-file-name "/home/bandali/.emacs.d/var/abbrev.el") + '(auth-sources (quote ("~/.authinfo.gpg"))) '(company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]") '(company-dabbrev-downcase nil) '(company-dabbrev-ignore-case nil) '(company-minimum-prefix-length 1) '(company-selection-wrap-around t) '(ebdb-gnus-window-configuration - '(article + (quote + (article (vertical 1.0 (summary 0.25 point) (horizontal 1.0 (article 1.0) - (ebdb-gnus 0.3))))) - '(ediff-split-window-function 'split-window-horizontally t) - '(ediff-window-setup-function 'ediff-setup-windows-plain t) - '(erc-fill-function 'erc-fill-static) + (ebdb-gnus 0.3)))))) + '(ediff-split-window-function (quote split-window-horizontally) t) + '(ediff-window-setup-function (quote ediff-setup-windows-plain) t) + '(epa-pinentry-mode (quote loopback)) + '(epg-gpg-program "/home/bandali/.guix-profile/bin/gpg") + '(epg-pinentry-mode (quote loopback) t) + '(erc-fill-function (quote erc-fill-static)) '(erc-fill-static-center 18) - '(erc-join-buffer 'bury) - '(erc-lurker-hide-list '("JOIN" "PART" "QUIT")) - '(erc-nick "bandali") + '(erc-join-buffer (quote bury) t) + '(erc-lurker-hide-list (quote ("JOIN" "PART" "QUIT")) t) + '(erc-nick "bandali" t) '(erc-pcomplete-nick-postfix ",") - '(erc-rename-buffers t) - '(erc-server-reconnect-attempts 5) - '(erc-server-reconnect-timeout 3) + '(erc-rename-buffers t t) + '(erc-server-reconnect-attempts 5 t) + '(erc-server-reconnect-timeout 3 t) '(erc-track-enable-keybindings nil) '(erc-track-exclude-types - '("JOIN" "MODE" "NICK" "PART" "QUIT" "324" "329" "332" "333" "353" "477")) - '(erc-track-priority-faces-only 'all) + (quote + ("JOIN" "MODE" "NICK" "PART" "QUIT" "324" "329" "332" "333" "353" "477"))) + '(erc-track-priority-faces-only (quote all)) '(erc-track-shorten-function nil) - '(eshell-hist-ignoredups t) - '(eshell-input-filter 'eshell-input-filter-initial-space) + '(eshell-directory-name "/home/bandali/.emacs.d/var/eshell/") + '(eshell-hist-ignoredups t t) + '(eshell-input-filter (quote eshell-input-filter-initial-space) t) '(flycheck-mode-line-prefix "flyc") '(ibuffer-formats - '((mark modified read-only locked " " + (quote + ((mark modified read-only locked " " (name 18 18 :left :elide) " " (size-h 9 -1 :right) @@ -45,9 +53,10 @@ " " filename-and-process) (mark " " (name 16 -1) - " " filename))) + " " filename)))) '(ibuffer-saved-filter-groups - '(("default" + (quote + (("default" ("dired" (mode . dired-mode)) ("org" @@ -90,39 +99,63 @@ (name . "^\\*scratch\\*$") (name . "^\\*Messages\\*$"))) ("erc" - (mode . erc-mode))))) - '(ls-lisp-dirs-first t) - '(magit-display-buffer-function 'magit-display-buffer-fullframe-status-v1) + (mode . erc-mode)))))) + '(ls-lisp-dirs-first t t) + '(magit-display-buffer-function (quote magit-display-buffer-fullframe-status-v1)) '(mml-secure-key-preferences - '((OpenPGP + (quote + ((OpenPGP (sign) (encrypt ("ineiev@gnu.org" "BD9D4DEE7B2FF1CBEF2EE0C4E0ACD3E0CBE7874A"))) (CMS (sign) - (encrypt)))) + (encrypt))))) '(mml-secure-openpgp-encrypt-to-self t) '(mml-secure-openpgp-sign-with-sender t) '(org-agenda-files - '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org")) + (quote + ("~/usr/org/todos/personal.org" "~/usr/org/todos/habits.org" "~/src/git/masters-thesis/todo.org"))) '(org-agenda-start-on-weekday 0) - '(org-latex-packages-alist '(("" "listings") ("" "color"))) - '(page-break-lines-max-width 70) - '(projectile-completion-system 'ivy) + '(org-agenda-time-leading-zero t) + '(org-habit-graph-column 44) + '(org-latex-packages-alist (quote (("" "listings") ("" "color")))) + '(org-pretty-entities t) + '(page-break-lines-max-width 70 t) + '(projectile-completion-system (quote ivy)) '(projectile-mode-line-prefix " proj") + '(recentf-max-saved-items 2000) + '(recentf-save-file "/home/bandali/.emacs.d/var/recentf-save.el") '(safe-local-variable-values - '((eval modify-syntax-entry 43 "'") + (quote + ((org-export-allow-bind-keywords . t) + (eval load-file "thesis.el") + (eval modify-syntax-entry 43 "'") (eval modify-syntax-entry 36 "'") (eval modify-syntax-entry 126 "'") - (eval require 'org-ref) + (eval require + (quote org-ref)) (eval when - (featurep 'typo - (typo-mode -1))) - (eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local) - (eval add-hook 'after-save-hook 'org-beamer-export-to-latex t t) + (featurep + (quote typo) + (typo-mode -1))) + (eval add-hook + (quote after-save-hook) + (function a/async-babel-tangle) + (quote append) + (quote local)) + (eval add-hook + (quote after-save-hook) + (quote org-beamer-export-to-latex) + t t) (eval setq org-latex-prefer-user-labels t) - (eval add-hook 'after-save-hook 'org-latex-export-to-latex t t))) - '(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")) + (eval add-hook + (quote after-save-hook) + (quote org-latex-export-to-latex) + t t)))) + '(save-place-file "/home/bandali/.emacs.d/var/save-place.el" t) + '(savehist-file "/home/bandali/.emacs.d/var/savehist.el" t) + '(unkillable-buffers (quote ("^\\*scratch\\*$" "^\\*Messages\\*$"))) '(which-key-add-column-padding 5) '(which-key-max-description-length 32)) (custom-set-faces diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 0d23dfe..2d0d8f9 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1608,7 +1608,7 @@ For disabling the behaviour for certain buffers and/or modes." (list ".*atreus.freelists.org" "l.atreus") (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec") ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d - (list ".*haskell-cafe.haskell.org" "l.haskell.cafe") + (list ".*haskell-cafe.haskell.org" "l.haskell-cafe") ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u ;; ---------------------------------- -- 2.20.1