switch to exwm on chaman

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

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index 7bf75f0..50e364c 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -3,17 +3,65 @@
  ;; 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.

+ '(abbrev-file-name "/home/mab/.emacs.d/var/abbrev.el")

  '(auth-sources '("~/.authinfo.gpg"))
  '(auth-sources '("~/.authinfo.gpg"))

- '(company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
- '(company-dabbrev-downcase nil)
- '(company-dabbrev-ignore-case nil)
+ '(authinfo-hidden "\\(?:client-secret\\|password\\|token\\)")
+ '(auto-revert-verbose nil)
+ '(auto-save-file-name-transforms '((".*" "/home/mab/.emacs.d/var/auto-save/" t)))
+ '(backup-by-copying t)
+ '(company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]" t)
+ '(company-dabbrev-downcase nil t)
+ '(company-dabbrev-ignore-case nil t)

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

+ '(debpaste-paste-is-hidden t t)
+ '(delete-old-versions t)
+ '(display-battery-mode t)
+ '(display-time-mode t)
+ '(dmenu-prompt-string "run: " t)
+ '(dmenu-save-file "/home/mab/.emacs.d/var/dmenu-items" t)
+ '(ebdb-gnus-window-configuration
+   '(article
+     (vertical 1.0
+               (summary 0.25 point)
+               (horizontal 1.0
+                           (article 1.0)
+                           (ebdb-gnus 0.3)))))
+ '(ebdb-gnus-window-size 0.3 t)
+ '(ebdb-mua-pop-up t)
+ '(ediff-split-window-function 'split-window-horizontally t)
+ '(ediff-window-setup-function 'ediff-setup-windows-plain t)
+ '(epa-pinentry-mode 'loopback)
+ '(epg-gpg-program "/home/mab/.guix-profile/bin/gpg")
+ '(epg-pinentry-mode 'loopback)
+ '(erc-fill-column 77)
+ '(erc-fill-function 'erc-fill-static)
+ '(erc-fill-static-center 18)
+ '(erc-join-buffer 'bury)
+ '(erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
+ '(erc-nick "bandali")
+ '(erc-pcomplete-nick-postfix ", ")
+ '(erc-prompt "erc>")
+ '(erc-rename-buffers t)
+ '(erc-server-reconnect-attempts 5)
+ '(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-position-in-mode-line t)
+ '(erc-track-priority-faces-only 'all)
+ '(erc-track-shorten-function nil)
+ '(eshell-directory-name "/home/mab/.emacs.d/var/eshell/")

  '(eshell-hist-ignoredups t)
  '(eshell-input-filter 'eshell-input-filter-initial-space)
  '(eshell-hist-ignoredups t)
  '(eshell-input-filter 'eshell-input-filter-initial-space)

+ '(fci-rule-color "#5B6268")
+ '(flycheck-mode-line-prefix "flyc")
+ '(global-auto-revert-non-file-buffers nil)
+ '(gnus-thread-sort-functions
+   '(gnus-thread-sort-by-number gnus-thread-sort-by-subject gnus-thread-sort-by-date))

  '(ibuffer-formats
    '((mark modified read-only locked " "
  '(ibuffer-formats
    '((mark modified read-only locked " "

-           (name 18 18 :left :elide)
+           (name 72 72 :left :elide)

            " "
            (size-h 9 -1 :right)
            " "
            " "
            (size-h 9 -1 :right)
            " "


@@ -55,6 +103,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


@@ -64,15 +113,62 @@
        (or
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
        (or
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))

+      ("exwm"
+       (mode . exwm-mode))

       ("erc"
        (mode . erc-mode)))))
       ("erc"
        (mode . erc-mode)))))

- '(ls-lisp-dirs-first t t)
+ '(inhibit-startup-buffer-menu t)
+ '(inhibit-startup-echo-area-message "bandali")
+ '(inhibit-startup-screen t)
+ '(initial-buffer-choice t)
+ '(initial-scratch-message nil)
+ '(isearch-allow-scroll t)
+ '(jdee-db-active-breakpoint-face-colors (cons "#1B2229" "#51afef"))
+ '(jdee-db-requested-breakpoint-face-colors (cons "#1B2229" "#98be65"))
+ '(jdee-db-spec-breakpoint-face-colors (cons "#1B2229" "#3f444a"))
+ '(ls-lisp-dirs-first t)
+ '(magit-diff-refine-hunk t)
+ '(magit-display-buffer-function 'magit-display-buffer-fullframe-status-v1)
+ '(message-elide-ellipsis "[...]
+")
+ '(minions-mode t)
+ '(mm-uu-diff-groups-regexp
+   "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)")
+ '(mml-secure-key-preferences
+   '((OpenPGP
+      (sign)
+      (encrypt
+       ("ineiev@gnu.org" "BD9D4DEE7B2FF1CBEF2EE0C4E0ACD3E0CBE7874A")))
+     (CMS
+      (sign)
+      (encrypt))))
+ '(mml-secure-openpgp-encrypt-to-self t)
+ '(mml-secure-openpgp-sign-with-sender t)
+ '(objed-cursor-color "#ff6c6b")
+ '(oddmuse-username "bandali" t)

  '(org-agenda-files
  '(org-agenda-files

-   '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org"))
- '(org-agenda-start-on-weekday 0 t)
+   '("~/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 '(("" "listings") ("" "color")))
  '(org-latex-packages-alist '(("" "listings") ("" "color")))

+ '(org-pretty-entities t)
+ '(page-break-lines-max-width 70)
+ '(pdf-view-midnight-colors (cons "#bbc2cf" "#282c34"))
+ '(pdf-view-resize-factor 1.05)
+ '(projectile-completion-system 'ivy)
+ '(projectile-mode-line-prefix " proj")
+ '(recentf-max-saved-items 2000)
+ '(recentf-save-file "/home/mab/.emacs.d/var/recentf-save.el")
+ '(require-final-newline t)

  '(safe-local-variable-values
  '(safe-local-variable-values

-   '((eval require 'org-ref)
+   '((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 'org-ref)

      (eval when
            (featurep 'typo
                      (typo-mode -1)))
      (eval when
            (featurep 'typo
                      (typo-mode -1)))


@@ -80,6 +176,39 @@
      (eval add-hook 'after-save-hook '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)))
      (eval add-hook 'after-save-hook '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)))

+ '(save-interprogram-paste-before-kill t)
+ '(save-place-file "/home/mab/.emacs.d/var/save-place.el" t)
+ '(savehist-file "/home/mab/.emacs.d/var/savehist.el")
+ '(search-default-mode 'char-fold-to-regexp)
+ '(split-width-threshold 150)
+ '(text-scale-mode-step 1.05)
+ '(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$"))
+ '(vc-annotate-background "#282c34")
+ '(vc-annotate-color-map
+   (list
+    (cons 20 "#98be65")
+    (cons 40 "#b4be6c")
+    (cons 60 "#d0be73")
+    (cons 80 "#ECBE7B")
+    (cons 100 "#e6ab6a")
+    (cons 120 "#e09859")
+    (cons 140 "#da8548")
+    (cons 160 "#d38079")
+    (cons 180 "#cc7cab")
+    (cons 200 "#c678dd")
+    (cons 220 "#d974b7")
+    (cons 240 "#ec7091")
+    (cons 260 "#ff6c6b")
+    (cons 280 "#cf6162")
+    (cons 300 "#9f585a")
+    (cons 320 "#6f4e52")
+    (cons 340 "#5B6268")
+    (cons 360 "#5B6268")))
+ '(vc-annotate-very-old-color nil)
+ '(vc-git-print-log-follow t)
+ '(version-control t)
+ '(view-read-only t)
+ '(web-mode-enable-auto-indentation nil t)

  '(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


@@ -88,6 +217,12 @@
  ;; 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-current-match ((((class color) (background light)) :background "#d7d7d7" :foreground "black") (((class color) (background dark)) :background "#65a7e2" :foreground "black")))
+ '(ivy-minibuffer-match-face-1 ((t (:background "#eeeeee"))))
+ '(ivy-minibuffer-match-face-2 ((t (:background "#e7e7e7" :weight bold))))
+ '(ivy-minibuffer-match-face-3 ((t (:background "light goldenrod" :weight semi-bold))))
+ '(ivy-minibuffer-match-face-4 ((t (:background "misty rose" :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)))))