compton: tweak shadow and fade

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

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index 34cc306..65623e8 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -3,16 +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)
  '(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
+   (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-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
  '(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)


@@ -21,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"


@@ -55,6 +88,7 @@
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . lean-mode)
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . lean-mode)

+        (mode . go-mode)

         (mode . alloy-mode)))
       ("tex"
        (or
         (mode . alloy-mode)))
       ("tex"
        (or


@@ -65,21 +99,64 @@
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
       ("erc"
         (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"))
- '(org-agenda-start-on-weekday 0 t)
- '(org-latex-packages-alist '(("" "listings") ("" "color")))
+   (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-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)
+   (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 #'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)))
+     (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