compton: add

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

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index 979b557..65623e8 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -3,17 +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-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
  '(company-dabbrev-downcase nil)
  '(company-dabbrev-ignore-case nil)

- '(company-idle-delay 0.3)

  '(company-minimum-prefix-length 1)
  '(company-selection-wrap-around t)
  '(company-minimum-prefix-length 1)
  '(company-selection-wrap-around t)

- '(eshell-hist-ignoredups t t)
- '(eshell-input-filter 'eshell-input-filter-initial-space t)
+ '(ebdb-gnus-window-configuration
+   (quote
+    (article
+     (vertical 1.0
+               (summary 0.25 point)
+               (horizontal 1.0
+                           (article 1.0)
+                           (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-join-buffer (quote bury))
+ '(erc-lurker-hide-list (quote ("JOIN" "PART" "QUIT")))
+ '(erc-nick "bandali")
+ '(erc-pcomplete-nick-postfix ",")
+ '(erc-rename-buffers t)
+ '(erc-server-reconnect-attempts 5)
+ '(erc-server-reconnect-timeout 3)
+ '(erc-track-enable-keybindings nil)
+ '(erc-track-exclude-types
+   (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-directory-name "/home/bandali/.emacs.d/var/eshell/")
+ '(eshell-hist-ignoredups t)
+ '(eshell-input-filter (quote eshell-input-filter-initial-space))
+ '(flycheck-mode-line-prefix "flyc")

  '(ibuffer-formats
  '(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)


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

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

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

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

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


@@ -56,33 +88,75 @@
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . lean-mode)
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . lean-mode)

+        (mode . go-mode)

         (mode . alloy-mode)))
         (mode . alloy-mode)))

+      ("tex"
+       (or
+        (mode . bibtex-mode)
+        (mode . latex-mode)))

       ("emacs"
        (or
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
       ("erc"
       ("emacs"
        (or
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
       ("erc"

-       (mode . erc-mode)))) t)
+       (mode . erc-mode))))))

  '(ls-lisp-dirs-first t t)
  '(ls-lisp-dirs-first t t)

+ '(magit-display-buffer-function (quote magit-display-buffer-fullframe-status-v1))
+ '(mml-secure-key-preferences
+   (quote
+    ((OpenPGP
+      (sign)
+      (encrypt
+       ("ineiev@gnu.org" "BD9D4DEE7B2FF1CBEF2EE0C4E0ACD3E0CBE7874A")))
+     (CMS
+      (sign)
+      (encrypt)))))
+ '(mml-secure-openpgp-encrypt-to-self t)
+ '(mml-secure-openpgp-sign-with-sender t)

  '(org-agenda-files
  '(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")))
+ '(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
  '(safe-local-variable-values

-   '((eval require 'org-ref)
-     (org-hugo-auto-export-on-save . t)
+   (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 require
+           (quote org-ref))

      (eval when
      (eval when

-           (featurep 'typo
-                     (typo-mode -1)))
-     (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)
-     (org-hugo-footer . "
-
-[//]: # \"Exported with love from a post written in Org mode\"
-[//]: # \"- https://ox-hugo.scripter.co\"")
-     (eval add-hook 'after-save-hook #'a/async-babel-tangle 'append 'local)))
- '(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


@@ -91,6 +165,7 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(dired-directory ((t (:weight semi-bold))))
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(dired-directory ((t (:weight semi-bold))))

+ '(ivy-virtual ((t (:inherit font-lock-builtin-face :foreground "dim gray"))))

  '(magit-diff-file-heading ((t (:weight normal))))
  '(quote (org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21")))))
  '(widget-button ((t (:weight semi-bold)))))
  '(magit-diff-file-heading ((t (:weight normal))))
  '(quote (org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21")))))
  '(widget-button ((t (:weight semi-bold)))))