;;; Commentary:
-;; Emacs configuration of Amin Bandali, computer scientist, functional
-;; programmer, and free software activist. Uses straight.el for
-;; purely functional and fully reproducible package management.
+;; Emacs configuration of Amin Bandali, computer scientist, free
+;; software activist, GNU maintainer & webmaster. Uses straight.el
+;; for purely functional and fully reproducible package management.
;; Over the years, I've taken inspiration from configurations of many
;; great people. Some that I can remember off the top of my head are:
(previous-line)
(insert "\n\f\n;;; "))
-(defvar b/fill-column 47
- "My custom `fill-column'.")
+;; (defvar b/fill-column 47
+;; "My custom `fill-column'.")
(defconst b/asterism "* * *")
(insert
(concat
"\n\n"
- (make-string (floor (/ (- b/fill-column (length b/asterism)) 2))
+ (make-string (floor (/ (- fill-column (length b/asterism)) 2))
?\s)
b/asterism
"\n\n")))
scroll-conservatively 10
scroll-preserve-screen-position 1
;; focus follows mouse
- mouse-autoselect-window t
- ;; custom fill-column
- fill-column b/fill-column)
+ mouse-autoselect-window t)
(setq-default
;; always use space for indentation
(display-time-mode)
:custom
(display-time-default-load-average nil)
- (display-time-format "%a %b %-e, %-l:%M%P"))
+ (display-time-format "%a %b %-e, %-l:%M%P")
+ (display-time-mail-icon '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center))
+ (display-time-use-mail-icon t))
(use-feature battery
:if b/exwm-p
(use-feature text-mode
:bind (:map text-mode-map ("C-*" . b/insert-asterism))
- :hook (text-mode . indicate-buffer-boundaries-left))
+ :hook ((text-mode . indicate-buffer-boundaries-left)
+ (text-mode . flyspell-mode)))
(use-feature conf-mode
:mode "\\.*rc$")
(use-package alloy-mode
:straight (:host github :repo "dwwmmn/alloy-mode")
- :mode "\\.als\\'"
- :config (setq alloy-basic-offset 2)
+ :mode "\\.\\(als\\|dsh\\)\\'"
+ :config
+ (setq alloy-basic-offset 2)
+ ;; (defun b/alloy-simple-indent (start end)
+ ;; (interactive "r")
+ ;; ;; (if (region-active-p)
+ ;; ;; (indent-rigidly start end alloy-basic-offset)
+ ;; ;; (if (bolp)
+ ;; ;; (indent-rigidly (line-beginning-position)
+ ;; ;; (line-end-position)
+ ;; ;; alloy-basic-offset)))
+ ;; (indent-to (+ (current-column) alloy-basic-offset)))
+ :bind (:map alloy-mode-map
+ ("RET" . electric-newline-and-maybe-indent)
+ ;; ("TAB" . b/alloy-simple-indent)
+ ("TAB" . indent-for-tab-command))
:hook (alloy-mode . (lambda () (setq-local indent-tabs-mode nil))))
(eval-when-compile (defvar lean-mode-map))
(b/setq-every 2
web-mode-code-indent-offset
web-mode-css-indent-offset
- web-mode-markup-indent-offset))
+ web-mode-markup-indent-offset)
+ :custom
+ (web-mode-enable-auto-indentation nil))
(use-package emmet-mode
:after (:any web-mode css-mode sgml-mode)
("M-w" . boxquote-kill-ring-save)))
(use-package orgalist
- ;; http://lists.gnu.org/archive/html/emacs-orgmode/2019-04/msg00007.html
- :disabled t
+ ;; breaks auto-fill-mode, showing this error:
+ ;; orgalist--boundaries: Lisp nesting exceeds ‘max-lisp-eval-depth’
+ :disabled
:after message
:hook (message-mode . orgalist-mode))
;; easily type pretty quotes & other typography, like ‘’“”-–—«»‹›
(use-package typo
- :disabled
:defer 0.5
:config
- (typo-global-mode 1)
:hook (((text-mode erc-mode web-mode) . typo-mode)
- (tex-mode . (lambda ()(typo-mode -1)))))
+ ((tex-mode git-commit-mode) . (lambda ()(typo-mode -1)))))
(use-feature electric
:disabled
:files (:defaults "Debbugs.wsdl"))
:bind
(("C-c D d" . debbugs-gnu)
+ ("C-c D b" . debbugs-gnu-bugs)
("C-c D e" .
(lambda ()
(interactive)
(lambda ()
(interactive)
(setq debbugs-gnu-current-suppress t)
- (debbugs-gnu debbugs-gnu-default-severities '("gnuzilla"))))))
+ (debbugs-gnu debbugs-gnu-default-severities '("gnuzilla"))))
+ ("C-c D G" .
+ (lambda ()
+ (interactive)
+ (setq debbugs-gnu-current-suppress t)
+ (debbugs-gnu debbugs-gnu-default-severities '("guix"))))))
(use-package org-ref
:init
:custom
(debpaste-paste-is-hidden t))
+(use-package scpaste
+ :disabled
+ :config
+ (setq scpaste-http-destination "https://p.bndl.org"
+ scpaste-scp-destination "nix:/var/www/p.bndl.org"))
+
\f
;;; Email (with Gnus)
(list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
;; gnus
(list ".*<\\(.*\\)\\.gnus\\.org>.*" "l.\\1")
+ ;; libreplanet
+ (list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1")
;; *.lists.sr.ht, omitting one dot if present
;; add more \\.?\\([^.]*\\) if needed
(list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
(to-list . "webmasters@gnu.org"))
("gnu.*"
(gcc-self . t))
- ("gnu\\."
+ ("l\\."
(subscribed . t))
("nnimap\\+uw:.*"
(gcc-self . t)))
(use-feature gnus-msg
:config
- (defvar b/gnu-signature "Amin Bandali
-Free Software Activist | GNU Maintainer & Webmaster
-GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103
-https://bandali.eu.org")
(defvar b/shemshak-signature "Amin Bandali
https://shemshak.org/~amin")
(defvar b/uw-signature "Amin Bandali, MMath Student
Cheriton School of Computer Science
University of Waterloo
-https://bandali.eu.org")
+https://bndl.org")
(defvar b/csc-signature "Amin Bandali
Systems Committee
Computer Science Club, University of Waterloo
(setq gnus-message-replysign t
gnus-posting-styles
'((".*"
- (address "bandali@gnu.org")
- (signature b/gnu-signature))
+ (address "bandali@gnu.org"))
("nnimap\\+gnu:l\\..*"
(signature nil))
((header "subject" "ThankCRM")
(address "bandali@csclub.uwaterloo.ca")
(signature b/csc-signature)
(gcc "nnimap+csc:Sent"))))
- ;; :hook (gnus-message-setup . mml-secure-message-sign)
- )
+ :hook (gnus-message-setup . (lambda ()
+ (unless (mml-secure-is-encrypted-p)
+ (mml-secure-message-sign)))))
(use-feature gnus-topic
:hook (gnus-group-mode . gnus-topic-mode)
mm-verify-option 'known))
(use-feature mm-uu
+ :config
+ (set-face-attribute 'mm-uu-extract nil :extend t)
:custom
(mm-uu-diff-groups-regexp
"\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)"))
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)
(message-mode . (lambda ()
- (setq-local fill-column b/fill-column
- message-fill-column b/fill-column)
+ ;; (setq-local fill-column b/fill-column
+ ;; message-fill-column b/fill-column)
(make-local-variable 'company-idle-delay)
(setq company-idle-delay 0.2))))
;; :custom-face
("s" . footnote-set-style)))
(use-package bbdb
+ :disabled
:demand
:after gnus
:bind (:map gnus-group-mode-map ("e" . bbdb))
(bbdb-complete-mail-allow-cycling t)
(bbdb-user-mail-address-re message-dont-reply-to-names))
-(comment
- (use-package ebdb
- :demand
- :after gnus
- :bind (:map gnus-group-mode-map ("e" . ebdb))
- :config
- (setq ebdb-sources (b/var "ebdb"))
- (with-eval-after-load 'swiper
- (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
+(use-package ebdb
+ :demand
+ :after gnus
+ :bind (:map gnus-group-mode-map ("e" . ebdb))
+ :config
+ (setq ebdb-sources (b/var "ebdb"))
+ (with-eval-after-load 'swiper
+ (add-to-list 'swiper-font-lock-exclude 'ebdb-mode t)))
- (use-feature ebdb-com
- :after ebdb)
+(use-feature ebdb-com
+ :after ebdb)
- (use-feature ebdb-complete
- :after ebdb
- :config
- ;; (setq ebdb-complete-mail 'capf)
- (ebdb-complete-enable))
+(use-feature ebdb-complete
+ :after ebdb
+ :config
+ ;; (setq ebdb-complete-mail 'capf)
+ (ebdb-complete-enable))
- (use-feature ebdb-message
- :demand
- :after ebdb)
+(use-feature ebdb-message
+ :demand
+ :after ebdb)
- ;; (use-package company-ebdb
- ;; :config
- ;; (defun company-ebdb--post-complete (_) nil))
+;; (use-package company-ebdb
+;; :config
+;; (defun company-ebdb--post-complete (_) nil))
- (use-feature ebdb-gnus
- :after ebdb
- :custom
- (ebdb-gnus-window-size 0.3))
+(use-feature ebdb-gnus
+ :after ebdb
+ :custom
+ (ebdb-gnus-window-size 0.3))
- (use-feature ebdb-mua
- :demand
- :after ebdb
- :custom (ebdb-mua-pop-up t))
+(use-feature ebdb-mua
+ :demand
+ :after ebdb
+ :custom (ebdb-mua-pop-up t))
- ;; (use-package ebdb-message
- ;; :after ebdb)
+;; (use-package ebdb-message
+;; :after ebdb)
- ;; (use-package ebdb-vcard
- ;; :after ebdb)
- )
+;; (use-package ebdb-vcard
+;; :after ebdb)
(use-package message-x)
projects / ~bandali / configs / blobdiff