X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/3bb16326b55d9570fb19bb88aa23295317b00c33..75a5f9ecf06c962fc09d587b63989d43576ec812:/init.org diff --git a/init.org b/init.org index 4e263c8..fcb700e 100644 --- a/init.org +++ b/init.org @@ -648,14 +648,20 @@ Enable =winner-mode=. #+begin_src emacs-lisp (bind-keys ("C-c b k" . kill-this-buffer) - ;; ("C-c s s" . save-buffer) ("C-c b s" . save-buffer) ("C-c S" . save-buffer) ("C-c o" . other-window) ("C-c q q" . save-buffers-kill-terminal) + ("C-c F m" . make-frame-command) ("C-c F d" . delete-frame) - ("C-c F D" . delete-other-frames)) + ("C-c F D" . delete-other-frames) + + ("s-c e b" . eval-buffer) + ("s-c e r" . eval-region) + + ("s-p" . beginning-of-buffer) + ("s-n" . end-of-buffer)) #+end_src ** Packages @@ -698,7 +704,9 @@ In short, my favourite way of life. (setq org-src-tab-acts-natively t org-src-preserve-indentation nil org-edit-src-content-indentation 0 + org-email-link-description-format "Email %c: %s" ; %.30s org-log-done 'time) + :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)) @@ -723,14 +731,8 @@ In short, my favourite way of life. (use-package ox-beamer) -(use-package org-notmuch - :after (:any org notmuch)) - (use-package orgalist :hook (message-mode . orgalist-mode)) - -;; (use-package org-outline-numbering) -;; TODO: auto-updating by calling org-outline-numbering-display #+end_src **** asynchronous tangle @@ -793,8 +795,7 @@ Not just how I do git, but /the/ way to do git. (use-package magit :defer t :bind - (("s-g" . magit-dispatch-popup) - ("C-x g" . magit-status) + (("s-g" . magit-status) :prefix-map amin--magit-prefix-map :prefix "C-c g" ("SPC" . magit-status) @@ -973,8 +974,8 @@ There's no way I could top that, so I won't attempt to. (:map outline-minor-mode-map ("" . outline-toggle-children) - ("s-p" . outline-previous-visible-heading) - ("s-n" . outline-next-visible-heading) + ("M-p" . outline-previous-visible-heading) + ("M-n" . outline-next-visible-heading) :prefix-map amin--outline-prefix-map :prefix "s-o" ("TAB" . outline-toggle-children) @@ -1097,6 +1098,10 @@ TODO: break this giant source block down into individual org sections. #+begin_src emacs-lisp (use-package flycheck :hook (prog-mode . flycheck-mode) + :bind + (:map flycheck-mode-map + ("M-P" . flycheck-previous-error) + ("M-N" . flycheck-next-error)) :config ;; Use the load-path from running Emacs when checking elisp files (setq flycheck-emacs-lisp-load-path 'inherit) @@ -1397,7 +1402,7 @@ instead. *** meghanada -#+begin_src emacs-lisp :tangle yes +#+begin_src emacs-lisp :tangle no (use-package meghanada :bind (:map meghanada-mode-map @@ -1408,8 +1413,25 @@ instead. *** lsp-java +#+begin_comment +dependencies: + +ace-window +avy +bui +company-lsp +dap-mode +lsp-java +lsp-mode +lsp-ui +pfuture +tree-mode +treemacs +#+end_comment + #+begin_src emacs-lisp :tangle no -(use-package treemacs) +(use-package treemacs + :config (setq treemacs-never-persist t)) (use-package yasnippet :config @@ -1537,12 +1559,23 @@ Emacs package that displays available keybindings in popup #+begin_src emacs-lisp (use-package helpful :bind - (("C-h f" . helpful-callable) + (;; ("C-h F" . helpful-function) + ("C-h f" . helpful-callable) ("C-h v" . helpful-variable) ("C-h k" . helpful-key) ("C-c C-d" . helpful-at-point) - ("C-h F" . helpful-function) - ("C-h C" . helpful-command))) + ("C-h C" . helpful-command) + ("C-h c" . describe-char) + ("C-h F" . describe-face))) + +(use-package help + :bind + (("C-S-h f" . describe-function) + ("C-S-h v" . describe-variable) + ("C-S-h k" . describe-key) + ("C-S-h C" . describe-coding-system) + ("C-S-h c" . describe-key-briefly)) + :config (setq help-window-select t)) #+end_src ** [[https://github.com/kyagi/shell-pop-el][shell-pop]] @@ -1686,7 +1719,8 @@ Hopefully temporary. :client-secret watform-client-secret :token watform-token :subscribed-channels '(general) - :full-and-display-names t); + :full-and-display-names t) + (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t) :bind (("C-c s s" . slack-start) ("C-c s u" . slack-select-unread-rooms) @@ -1706,7 +1740,7 @@ Hopefully temporary. ("C-c p a" . slack-message-pins-add) ("C-c p r" . slack-message-pins-remove) ("@" . slack-message-embed-mention) - ("#" . slack-message-embed-channel))); + ("#" . slack-message-embed-channel))) (use-package alert :commands (alert) @@ -1722,6 +1756,121 @@ Hopefully temporary. (add-to-list 'recentf-exclude amin-maildir)) #+end_src +** Gnus + +#+begin_src emacs-lisp +(setq + amin-gnus-init-file (no-littering-expand-etc-file-name "gnus") + mail-user-agent 'gnus-user-agent + read-mail-command 'gnus) + +(use-package gnus + :bind (("s-m" . gnus) + ("s-M" . gnus-unplugged)) + :init + (setq + gnus-select-method '(nnnil "") + gnus-secondary-select-methods + '((nnimap "amin" + (nnimap-stream plain) + (nnimap-address "127.0.0.1") + (nnimap-server-port 143) + (nnimap-authenticator plain) + (nnimap-user "amin@aminb.org")) + (nnimap "uwaterloo" + (nnimap-stream plain) + (nnimap-address "127.0.0.1") + (nnimap-server-port 143) + (nnimap-authenticator plain) + (nnimap-user "abandali@uwaterloo.ca"))) + gnus-message-archive-group "nnimap:Sent" + gnus-parameters + '(;; ("amin" + ;; (display . 20)) + ("gnu.*" + ;; (display . 50) + (gcc-self . t)) + ;; ("uwaterloo" + ;; (display . [unread])) + ) + gnus-home-directory (no-littering-expand-var-file-name "gnus/") + gnus-directory (concat gnus-home-directory "news/") + message-directory (concat gnus-home-directory "mail/") + nndraft-directory (concat gnus-home-directory "drafts/") + gnus-save-newsrc-file nil + gnus-read-newsrc-file nil + gnus-interactive-exit nil + gnus-gcc-mark-as-read t)) + +(use-package gnus-art + :config + (setq + gnus-visible-headers + (concat gnus-visible-headers "\\|^List-Id:\\|^X-RT-Originator:\\|^User-Agent:") + gnus-sorted-header-list + '("^From:" "^Subject:" "^Summary:" "^Keywords:" + "^Followup-To:" "^To:" "^Cc:" "X-RT-Originator" + "^Newsgroups:" "List-Id:" "^Organization:" + "^User-Agent:" "^Date:") + ;; local-lapsed article dates + ;; from https://www.emacswiki.org/emacs/GnusFormatting#toc11 + gnus-article-date-headers '(user-defined) + gnus-article-time-format + (lambda (time) + (let* ((date (format-time-string "%a, %d %b %Y %T %z" time)) + (local (article-make-date-line date 'local)) + (combined-lapsed (article-make-date-line date + 'combined-lapsed)) + (lapsed (progn + (string-match " (.+" combined-lapsed) + (match-string 0 combined-lapsed)))) + (concat local lapsed)))) + (bind-keys + :map gnus-article-mode-map + ("r" . gnus-article-reply-with-original) + ("R" . gnus-article-wide-reply-with-original) + ("M-L" . org-store-link))) + +(use-package gnus-sum + :bind (:map gnus-summary-mode-map + :prefix-map amin--gnus-summary-prefix-map + :prefix "v" + ("r" . gnus-summary-reply) + ("w" . gnus-summary-wide-reply) + ("v" . gnus-summary-show-raw-article)) + :config + (bind-keys + :map gnus-summary-mode-map + ("r" . gnus-summary-reply-with-original) + ("R" . gnus-summary-wide-reply-with-original) + ("M-L" . org-store-link))) + +(use-package gnus-msg + :config + (setq gnus-posting-styles + '((".*" + (address "amin@aminb.org")) + ("gnu.*" + (address "bandali@gnu.org")) + ("nnimap\\+uwaterloo:.*" + (address "abandali@uwaterloo.ca") + (gcc "\"nnimap+uwaterloo:Sent Items\""))))) + +(use-package gnus-topic + :hook (gnus-group-mode . gnus-topic-mode)) + +(use-package gnus-agent + :config + (setq gnus-agent-synchronize-flags 'ask) + :hook (gnus-group-mode . gnus-agent-mode)) + +(use-package gnus-group) + +(use-package mm-decode + :config + (setq mm-discouraged-alternatives '("text/html" "text/richtext"))) +#+end_src + ** sendmail #+begin_src emacs-lisp @@ -1741,26 +1890,116 @@ Hopefully temporary. (setq message-kill-buffer-on-exit t message-send-mail-function 'message-send-mail-with-sendmail message-sendmail-envelope-from 'header - ;; message-directory "drafts" + message-dont-reply-to-names + "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)" message-user-fqdn "aminb.org") - ;; (add-hook 'message-mode-hook 'electric-quote-local-mode) - (add-hook 'message-mode-hook - (lambda () (setq fill-column 65 - message-fill-column 65))) - (add-hook 'message-mode-hook - #'flyspell-mode) - ;; (add-hook 'message-setup-hook - ;; #'mml-secure-message-sign-pgpmime) + :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 "navy blue" :weight semi-bold)))) - (message-header-to ((t (:foreground "MidnightBlue" :weight semi-bold))))) + (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 mml-secure-openpgp-sign-with-sender t)) #+end_src -** [[https://notmuchmail.org][notmuch]] +** supercite + +#+begin_src emacs-lisp :tangle no +(use-package supercite + :commands sc-cite-original + :init + (add-hook 'mail-citation-hook 'sc-cite-original) + + (defun sc-remove-existing-signature () + (save-excursion + (goto-char (region-beginning)) + (when (re-search-forward message-signature-separator (region-end) t) + (delete-region (match-beginning 0) (region-end))))) + + (add-hook 'mail-citation-hook 'sc-remove-existing-signature) + + (defun sc-remove-if-not-mailing-list () + (unless (assoc "list-id" sc-mail-info) + (setq attribution sc-default-attribution + citation (concat sc-citation-delimiter + sc-citation-separator)))) + + (add-hook 'sc-attribs-postselect-hook 'sc-remove-if-not-mailing-list) + + :config + (defun sc-fill-if-different (&optional prefix) + "Fill the region bounded by `sc-fill-begin' and point. +Only fill if optional PREFIX is different than +`sc-fill-line-prefix'. If `sc-auto-fill-region-p' is nil, do not +fill region. If PREFIX is not supplied, initialize fill +variables. This is useful for a regi `begin' frame-entry." + (if (not prefix) + (setq sc-fill-line-prefix "" + sc-fill-begin (line-beginning-position)) + (if (and sc-auto-fill-region-p + (not (string= prefix sc-fill-line-prefix))) + (let ((fill-prefix sc-fill-line-prefix)) + (unless (or (string= fill-prefix "") + (save-excursion + (goto-char sc-fill-begin) + (or (looking-at ">+ +") + (< (length + (buffer-substring (point) + (line-end-position))) + 65)))) + (fill-region sc-fill-begin (line-beginning-position))) + (setq sc-fill-line-prefix prefix + sc-fill-begin (line-beginning-position))))) +nil)) +#+end_src + +** COMMENT gnus-alias :ARCHIVE: + +#+begin_src emacs-lisp +(use-package gnus-alias + :commands (gnus-alias-determine-identity + gnus-alias-select-identity) + :bind (:map message-mode-map + ("s-i" . gnus-alias-select-identity)) + :config + (setq + gnus-alias-default-identity "amin" + gnus-alias-identity-alist + '(("amin" + nil ;; Does not refer to any other identity + "Amin Bandali " + nil ;; Organization + nil ;; extra headers + nil ;; extra body text + nil) ;; signature file + ("gnu" + nil + "Amin Bandali " + nil + nil + nil + nil) + ("uw" + nil + "Amin Bandali " + nil + (("Gcc" . "\"nnimap+uwaterloo:Sent Items\"")) + nil + nil)) + gnus-alias-identity-rules + '(("amin" ("Delivered-To" "+ +") - (< (length - (buffer-substring (point) - (line-end-position))) - 65)))) - (fill-region sc-fill-begin (line-beginning-position))) - (setq sc-fill-line-prefix prefix - sc-fill-begin (line-beginning-position))))) -nil)) +(use-package org-notmuch + :after (:any org notmuch)) #+end_src * Blogging