(exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
#+end_src
-** Only one custom theme at a time
+** COMMENT Only one custom theme at a time
#+begin_src emacs-lisp
(defadvice load-theme (before clear-previous-themes activate)
(cons msg code)))
#+end_src
+*** Search for non-ASCII characters
+
+I’d like non-ASCII characters such as ‘’“”«»‹›áⓐ𝒶 to be selected when
+I search for their ASCII counterpart. Shoutout to [[http://endlessparentheses.com/new-in-emacs-25-1-easily-search-non-ascii-characters.html][endlessparentheses]]
+for this.
+
+#+begin_src emacs-lisp
+(setq search-default-mode #'char-fold-to-regexp)
+
+;; uncomment to extend this behaviour to query-replace
+;; (setq replace-char-fold t)
+#+end_src
+
** Bindings
#+begin_src emacs-lisp
(use-package evil
:demand t
;; :hook (org-src-mode . evil-motion-state)
- :init
- (setq evil-want-integration nil)
:config
(evil-mode 1)
(general-swap-key nil '(normal motion) ";" ":")
- (setq
- evil-want-visual-char-semi-exclusive t
- evil-move-beyond-eol t
- ;; evil-move-cursor-back nil
- )
+ (setq evil-want-visual-char-semi-exclusive t)
- ;; motion state modes
- (dolist (mode '(ebdb-mode
- helpful-mode
- view-mode))
- (evil-set-initial-state mode 'motion))
+ ;; custom mode state mappings
+ (dolist (mspair '((ebdb-mode . emacs)
+ (helpful-mode . motion)
+ (view-mode . motion)))
+ (evil-set-initial-state (car mspair) (cdr mspair)))
;; fix tab and indentation in src blocks inside org-mode buffer
;; also see https://git.sr.ht/~bandali/dotfiles/commit/0e2ffd584aafdd4cf256bcdf2473f01c3aaaed55
(unbind-key "C-a" evil-insert-state-map)
(unbind-key "C-e" evil-insert-state-map)
(unbind-key "C-p" evil-insert-state-map)
- (unbind-key "C-n" evil-insert-state-map))
+ (unbind-key "C-n" evil-insert-state-map)
+ (unbind-key "C-k" evil-insert-state-map)
+ (bind-keys
+ :map evil-insert-state-map
+ ("C-k" . kill-line)
+ ("C-S-k" . evil-insert-digraph)
+ :map evil-motion-state-map
+ ([down-mouse-1] . nil)))
#+end_src
#+begin_src emacs-lisp
(amin--leader-keys
"/" '(:ignore t :wk "search")
+ "a" '(:ignore t :wk "apps")
+ "a i" 'ielm
+
"b" '(:ignore t :wk "buffers")
"b k" 'kill-this-buffer
"b s" 'save-buffer
"e b" 'eval-buffer
"e r" 'eval-region
- "e e" 'shell-pop
-
"f" '(:ignore t :wk "files")
"F" '(:ignore t :wk "frames")
(setq
magit-repository-directories '(("~/.emacs.d/" . 0)
("~/src/git/" . 1)))
- (push (cons [unpushed status] 'show) magit-section-initial-visibility-alist)
+ (nconc magit-section-initial-visibility-alist
+ '(([unpulled status] . show)
+ ([unpushed status] . show)))
:custom-face (magit-diff-file-heading ((t (:weight normal)))))
#+end_src
#+begin_src emacs-lisp
(use-package eshell
- :defer t
+ :defer 1
:commands eshell
:config
(eval-when-compile (defvar eshell-prompt-regexp))
(list (regexp-quote (system-name)) nil nil)))
(use-package undo-tree
- :bind (("C-?" . undo-tree-undo)
- ("M-_" . undo-tree-redo))
:config
- (global-undo-tree-mode)
- (setq undo-tree-mode-lighter ""
- undo-tree-auto-save-history t))
+ (global-undo-tree-mode -1))
+ ;; :bind (("C-?" . undo-tree-undo)
+ ;; ("M-_" . undo-tree-redo))
+ ;; :config
+ ;; (global-undo-tree-mode)
+ ;; (setq undo-tree-mode-lighter ""
+ ;; undo-tree-auto-save-history t))
#+end_src
* Editing
:config (which-key-mode))
#+end_src
+** theme
+
+#+begin_src emacs-lisp
+(add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
+(load-theme 'tangomod t)
+#+end_src
+
** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
#+begin_src emacs-lisp
(use-package smart-mode-line
:config
(sml/setup)
- ;; (sml/apply-theme 'light)
+ (sml/apply-theme 'light)
(remove-hook 'display-time-hook 'sml/propertize-time-string))
#+end_src
+** theme helper functions
+
+#+begin_src emacs-lisp
+(defun amin/light ()
+ "Load light theme(s)."
+ (interactive)
+ (progn
+ (mapc #'disable-theme custom-enabled-themes)
+ (load-theme 'tangomod t)
+ (sml/apply-theme 'light)))
+
+(defun amin/dark ()
+ "Load dark theme(s)."
+ (interactive)
+ (progn
+ (mapc #'disable-theme custom-enabled-themes)
+ (load-theme 'tangomod-dark t)
+ (sml/apply-theme 'dark)))
+
+(amin--leader-keys
+ "t" '(:ignore t :wk "theme")
+ "t d" 'amin/dark
+ "t l" 'amin/light)
+#+end_src
+
** [[https://github.com/bbatsov/crux][crux]]
#+begin_src emacs-lisp
"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
- :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]]
(nnimap-server-port 143)
(nnimap-authenticator plain)
(nnimap-user "abandali@uwaterloo.ca")))
- gnus-message-archive-group "nnimap:Sent"
+ gnus-message-archive-group "nnimap+amin:Sent"
gnus-parameters
'(("gnu.*"
(gcc-self . t)))
#+begin_src emacs-lisp
(use-package message
:config
- (setq message-kill-buffer-on-exit t
+ (defconst message-cite-style-bandali
+ '((message-cite-function 'message-cite-original)
+ (message-citation-line-function 'message-insert-formatted-citation-line)
+ (message-cite-reply-position 'traditional)
+ (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:"))
+ "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
footnote-style 'unicode))
#+end_src
-** supercite
+** COMMENT supercite
#+begin_src emacs-lisp
(use-package supercite
projects / ~bandali / configs / blobdiff