emacs: update custom, fix haskell-cafe directory name

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index a79127b..132c5ff 100644 (file)
--- 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.
  ;; 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
  '(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)
      (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-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-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
  '(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)
  '(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
  '(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)
            (name 18 18 :left :elide)
            " "
            (size-h 9 -1 :right)


@@ -45,9 +53,10 @@
            " " filename-and-process)
      (mark " "
            (name 16 -1)
            " " filename-and-process)
      (mark " "
            (name 16 -1)

-           " " filename)))
+           " " filename))))

  '(ibuffer-saved-filter-groups
  '(ibuffer-saved-filter-groups

-   '(("default"
+   (quote
+    (("default"

       ("dired"
        (mode . dired-mode))
       ("org"
       ("dired"
        (mode . dired-mode))
       ("org"


@@ -90,39 +99,63 @@
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
       ("erc"
         (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
  '(mml-secure-key-preferences

-   '((OpenPGP
+   (quote
+    ((OpenPGP

       (sign)
       (encrypt
        ("ineiev@gnu.org" "BD9D4DEE7B2FF1CBEF2EE0C4E0ACD3E0CBE7874A")))
      (CMS
       (sign)
       (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
  '(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-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")
  '(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
  '(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 modify-syntax-entry 36 "'")
      (eval modify-syntax-entry 126 "'")

-     (eval require 'org-ref)
+     (eval require
+           (quote org-ref))

      (eval when
      (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 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
  '(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 (file)
--- 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 ".*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
                                  ;; ----------------------------------
                                  ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
                                  ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
                                  ;; ----------------------------------