shell: more flexible per-host profile configuration

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

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index f9a149b..a79127b 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -7,11 +7,34 @@
  '(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)

+ '(ebdb-gnus-window-configuration
+   '(article
+     (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)
+ '(erc-fill-static-center 18)
+ '(erc-join-buffer 'bury)
+ '(erc-lurker-hide-list '("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
+   '("JOIN" "MODE" "NICK" "PART" "QUIT" "324" "329" "332" "333" "353" "477"))
+ '(erc-track-priority-faces-only 'all)
+ '(erc-track-shorten-function nil)

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

+ '(flycheck-mode-line-prefix "flyc")

  '(ibuffer-formats
    '((mark modified read-only locked " "
            (name 18 18 :left :elide)
  '(ibuffer-formats
    '((mark modified read-only locked " "
            (name 18 18 :left :elide)


@@ -22,7 +45,7 @@
            " " filename-and-process)
      (mark " "
            (name 16 -1)
            " " filename-and-process)
      (mark " "
            (name 16 -1)

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

  '(ibuffer-saved-filter-groups
    '(("default"
       ("dired"
  '(ibuffer-saved-filter-groups
    '(("default"
       ("dired"


@@ -51,29 +74,54 @@
         (mode . python-mode)
         (mode . c-mode)
         (mode . c++-mode)
         (mode . python-mode)
         (mode . c-mode)
         (mode . c++-mode)

+        (mode . java-mode)

         (mode . emacs-lisp-mode)
         (mode . scheme-mode)
         (mode . haskell-mode)
         (mode . emacs-lisp-mode)
         (mode . scheme-mode)
         (mode . haskell-mode)

-        (mode . lean-mode)))
+        (mode . lean-mode)
+        (mode . go-mode)
+        (mode . alloy-mode)))
+      ("tex"
+       (or
+        (mode . bibtex-mode)
+        (mode . latex-mode)))

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

-        (name . "^\\*Messages\\*$"))))) t)
- '(ls-lisp-dirs-first t t)
+        (name . "^\\*Messages\\*$")))
+      ("erc"
+       (mode . erc-mode)))))
+ '(ls-lisp-dirs-first t)
+ '(magit-display-buffer-function 'magit-display-buffer-fullframe-status-v1)
+ '(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)
+ '(org-agenda-files
+   '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org"))
+ '(org-agenda-start-on-weekday 0)

  '(org-latex-packages-alist '(("" "listings") ("" "color")))
  '(org-latex-packages-alist '(("" "listings") ("" "color")))

+ '(page-break-lines-max-width 70)
+ '(projectile-completion-system 'ivy)
+ '(projectile-mode-line-prefix " proj")

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

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

+     (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)
      (eval setq org-latex-prefer-user-labels 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)
-     (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)))
+     (eval add-hook 'after-save-hook 'org-latex-export-to-latex t t)))

  '(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$"))
  '(which-key-add-column-padding 5)
  '(which-key-max-description-length 32))
  '(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$"))
  '(which-key-add-column-padding 5)
  '(which-key-max-description-length 32))


@@ -83,6 +131,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)))))