emacs: experiment with a fill-column of 47 for neat and short lines

[~bandali/configs] / .emacs.d / etc / custom.el

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index a79127b..65623e8 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -3,25 +3,30 @@
  ;; 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))
+ '(ediff-window-setup-function (quote ediff-setup-windows-plain))
+ '(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-join-buffer (quote bury))
+ '(erc-lurker-hide-list (quote ("JOIN" "PART" "QUIT")))

  '(erc-nick "bandali")
  '(erc-pcomplete-nick-postfix ",")
  '(erc-rename-buffers t)
  '(erc-nick "bandali")
  '(erc-pcomplete-nick-postfix ",")
  '(erc-rename-buffers t)


@@ -29,14 +34,17 @@
  '(erc-server-reconnect-timeout 3)
  '(erc-track-enable-keybindings nil)
  '(erc-track-exclude-types
  '(erc-server-reconnect-timeout 3)
  '(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-directory-name "/home/bandali/.emacs.d/var/eshell/")

  '(eshell-hist-ignoredups t)
  '(eshell-hist-ignoredups t)

- '(eshell-input-filter 'eshell-input-filter-initial-space)
+ '(eshell-input-filter (quote eshell-input-filter-initial-space))

  '(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,64 @@
         (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
+    ((tex-main-file . "../thesis.tex")
+     (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")
+ '(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