** License
#+begin_src emacs-lisp :comments none
-;; Copyright (C) 2018 Amin Bandali <amin@aminb.org>
+;; Copyright (C) 2018 Amin Bandali <bandali@gnu.org>
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
#+begin_src emacs-lisp
(setq user-full-name "Amin Bandali"
- user-mail-address "amin@aminb.org")
+ user-mail-address "amin@bandali.me")
#+end_src
** Package management
(evil-mode 1)
(general-swap-key nil '(normal motion) ";" ":")
- (setq evil-want-visual-char-semi-exclusive t)
+ (setq evil-want-visual-char-semi-exclusive t
+ evil-cross-lines t)
;; custom mode state mappings
(dolist (mspair '((ebdb-mode . emacs)
org-src-preserve-indentation nil
org-edit-src-content-indentation 0
org-email-link-description-format "Email %c: %s" ; %.30s
+ org-highlight-latex-and-related '(entities)
org-log-done 'time)
(add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t)
(after! org-src
(org-edit-src-save)
(org-edit-src-exit)))
(define-key org-src-mode-map [remap evil-quit] 'org-edit-src-abort))
+ (font-lock-add-keywords
+ 'org-mode
+ '(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
+ (1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
+ (3 '(:foreground "#81a2be" :background "#292b2b") t) ; kind
+ (4 '(:foreground "#c5c8c6") t))) ; title
+ t)
:bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
:hook ((org-mode . org-indent-mode)
(org-mode . auto-fill-mode)
(org-mode . flyspell-mode))
:custom
- (org-latex-packages-alist '(("" "listings") ("" "color"))))
+ (org-latex-packages-alist '(("" "listings") ("" "color")))
+ :custom-face
+ '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21"))))
+ '(org-block ((t (:background "#1d1f21"))))
+ '(org-latex-and-related ((t (:foreground "#b294bb")))))
(use-package ox-latex
:after ox
:config
(setq ivy-wrap t)
(ivy-mode 1)
- :custom-face
- (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
- (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
- (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold)))))
+ ;; :custom-face
+ ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
+ ;; (ivy-minibuffer-match-face-3 ((t (:background "#bbbbff" :weight semi-bold))))
+ ;; (ivy-minibuffer-match-face-4 ((t (:background "#ffbbff" :weight semi-bold))))
+)
#+end_src
**** Swiper
#+begin_src emacs-lisp
(use-package eshell
- :defer t
+ :defer 1
:commands eshell
:config
(eval-when-compile (defvar eshell-prompt-regexp))
(eshell-send-input))
(defun amin|eshell-setup ()
+ (make-local-variable 'company-idle-delay)
+ (setq company-idle-delay nil)
(bind-keys :map eshell-mode-map
- ("C-d" . amin/eshell-quit-or-delete-char)
- ("C-l" . amin/eshell-clear)))
+ ("C-d" . amin/eshell-quit-or-delete-char)
+ ("C-S-l" . amin/eshell-clear)
+ ("M-r" . counsel-esh-history)
+ ([tab] . company-complete)))
- :hook (eshell-mode . amin|eshell-setup))
+ :hook (eshell-mode . amin|eshell-setup)
+ :custom
+ (eshell-hist-ignoredups t)
+ (eshell-input-filter 'eshell-input-filter-initial-space))
#+end_src
*** Ibuffer
([tab] . company-complete-common-or-cycle)
([escape] . company-abort))
:custom
- (company-idle-delay 0.3)
(company-minimum-prefix-length 1)
(company-selection-wrap-around t)
(company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")
(load-theme 'tangomod t)
#+end_src
-** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
+** COMMENT [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
#+begin_src emacs-lisp
(use-package smart-mode-line
(remove-hook 'display-time-hook 'sml/propertize-time-string))
#+end_src
+** doom-modeline
+
+#+begin_src emacs-lisp
+(use-package doom-modeline
+ :demand t
+ :config (setq doom-modeline-height 32)
+ :hook (after-init . doom-modeline-init))
+#+end_src
+
+** doom-themes
+
+#+begin_src emacs-lisp
+(use-package doom-themes)
+#+end_src
+
** theme helper functions
#+begin_src emacs-lisp
-(defun amin/light ()
- "Load light theme(s)."
+(defun amin/lights-on ()
+ "Enable my favourite light theme."
(interactive)
(progn
(mapc #'disable-theme custom-enabled-themes)
- (load-theme 'tangomod t)
- (sml/apply-theme 'light)))
+ (load-theme 'tangomod t)))
-(defun amin/dark ()
- "Load dark theme(s)."
+(defun amin/lights-off ()
+ "Go dark."
(interactive)
(progn
(mapc #'disable-theme custom-enabled-themes)
- (load-theme 'tangomod-dark t)
- (sml/apply-theme 'dark)))
+ (load-theme 'doom-tomorrow-night t)))
(amin--leader-keys
"t" '(:ignore t :wk "theme")
- "t d" 'amin/dark
- "t l" 'amin/light)
+ "t d" 'amin/lights-off
+ "t l" 'amin/lights-on)
#+end_src
** [[https://github.com/bbatsov/crux][crux]]
"h h p" 'helpful-at-point))
#+end_src
-** [[https://github.com/kyagi/shell-pop-el][shell-pop]]
+** [[https://github.com/knu/shell-toggle.el][shell-toggle]]
#+begin_src emacs-lisp
-(use-package shell-pop
- :defer 1
- :general (amin--leader-keys "a s" 'shell-pop)
- :init
- (setq shell-pop-universal-key "C-c e"
- shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
+(use-package shell-toggle
+ :after eshell
+ :general (amin--leader-keys "a s" 'amin/shell-toggle)
+ :bind ("C-c e" . amin/shell-toggle)
+ :config
+ (defun amin/shell-toggle (make-cd)
+ "Toggle between the shell buffer and whatever buffer you are editing.
+With a prefix argument MAKE-CD also insert a \"cd DIR\" command
+into the shell, where DIR is the directory of the current buffer.
+
+When called in the shell buffer returns you to the buffer you were editing
+before calling this the first time.
+
+Options: `shell-toggle-goto-eob'"
+ (interactive "P")
+ ;; Try to decide on one of three possibilities:
+ ;; If not in shell-buffer, switch to it.
+ ;; If in shell-buffer, return to state before going to the shell-buffer
+ (if (eq (current-buffer) shell-toggle-shell-buffer)
+ (shell-toggle-buffer-return-from-shell)
+ (progn
+ (shell-toggle-buffer-goto-shell make-cd)
+ (if shell-toggle-full-screen-window-only (delete-other-windows)))))
+
+ ;; override to split horizontally instead
+ (defun shell-toggle-buffer-switch-to-other-window ()
+ "Switch to other window.
+If the current window is the only window in the current frame,
+create a new window and switch to it.
+
+\(This is less intrusive to the current window configuration than
+`switch-buffer-other-window')"
+ (let ((this-window (selected-window)))
+ (other-window 1)
+ ;; If we did not switch window then we only have one window and need to
+ ;; create a new one.
+ (if (eq this-window (selected-window))
+ (progn
+ (split-window-horizontally)
+ (other-window 1)))))
+
+ :custom
+ (shell-toggle-launch-shell 'shell-toggle-eshell))
#+end_src
** [[https://github.com/EricCrosson/unkillable-scratch][unkillable-scratch]]
:config
(unkillable-scratch 1)
:custom
+ (unkillable-scratch-behavior 'do-nothing)
(unkillable-buffers '("^\\*scratch\\*$" "^\\*Messages\\*$")))
#+end_src
:config
(setq gnus-posting-styles
'((".*"
- (address "amin@aminb.org")
- (body "\nBest,\namin\n"))
+ (address "amin@bandali.me")
+ (body "\nBest,\namin\n")
+ (signature-file "~/.signature-amin")
+ (eval (setq amin--message-cite-say-hi t)))
("gnu.*"
- (address "bandali@gnu.org"))
+ (address "bandali@gnu.org")
+ (signature-file nil))
((header "subject" "ThankCRM")
- (to "webmasters-comment@gnu.org"))
+ (to "webmasters-comment@gnu.org")
+ (body "\nAdded to 2018supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
+ (eval (setq amin--message-cite-say-hi nil)))
("nnimap\\+uwaterloo:.*"
(address "abandali@uwaterloo.ca")
- (gcc "\"nnimap+uwaterloo:Sent Items\"")))))
+ (gcc "\"nnimap+uwaterloo:Sent Items\"")
+ (signature-file nil)))))
(use-package gnus-topic
:hook (gnus-group-mode . gnus-topic-mode))
#+begin_src emacs-lisp
(use-package message
:config
+ (defconst amin--message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
(defconst message-cite-style-bandali
'((message-cite-function 'message-cite-original)
(message-citation-line-function 'message-insert-formatted-citation-line)
(message-yank-prefix "> ")
(message-yank-cited-prefix ">")
(message-yank-empty-prefix ">")
- (message-citation-line-format "Hi %F,\n\nOn %Y-%m-%d %l:%M %p, %N wrote:"))
+ (message-citation-line-format
+ (if amin--message-cite-say-hi
+ (concat "Hi %F,\n\n" amin--message-cite-style-format)
+ amin--message-cite-style-format)))
"Citation style based on Mozilla Thunderbird's. Use with message-cite-style.")
(setq message-cite-style 'message-cite-style-bandali
message-kill-buffer-on-exit t
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-envelope-from 'header
message-dont-reply-to-names
- "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
+ "\\(\\(amin@bandali\\.me\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
message-user-fqdn "aminb.org")
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)
(message-mode . (lambda () (setq fill-column 65
message-fill-column 65))))
- :custom-face
- (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
- (message-header-to ((t (:foreground "#111" :weight normal))))
- (message-header-cc ((t (:foreground "#333" :weight normal)))))
+ ;; :custom-face
+ ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
+ ;; (message-header-to ((t (:foreground "#111" :weight normal))))
+ ;; (message-header-cc ((t (:foreground "#333" :weight normal))))
+ )
(after! mml-sec
(setq mml-secure-openpgp-encrypt-to-self t
;; :after ebdb)
#+end_src
-** COMMENT bbdb
+** bbdb
-#+begin_comment
+Manually install bbdb (=lisp/bbdb= copied from an ELPA-based setup),
+because installing it from source on Emacs 27 using the following
+submodule configuration for some reason doesn’t work and results in
+very strange errors when using any of the functions.
+
+#+begin_src conf :tangle no
[submodule "bbdb"]
path = lib/bbdb
url = https://git.savannah.nongnu.org/git/bbdb.git
- load-path = lisp/elisp
+ load-path = lisp
info-path = doc
build-step = ./autogen.sh
- build-step = ./configure --with-lispdir=elisp
+ build-step = ./configure
build-step = make
build-step = make install
-#+end_comment
+#+end_src
+
+I tried using =borg-elpa= instead of doing it like this, but it added
+2 seconds to my startup time, which is unacceptable to me.
#+begin_src emacs-lisp
(use-package bbdb
+ :load-path "lisp/bbdb"
:init
+ (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))
(bbdb-mua-auto-update-init 'message)
(setq bbdb-mua-auto-update-p 'query)
(add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
projects / ~bandali / configs / blobdiff