\f
;;; Initial setup
+(defvar b/exwm-p (string= (system-name) "jirud")
+ "Whether or not we will be using `exwm'.")
+
;; keep ~/.emacs.d clean
(use-package no-littering
:demand
(previous-line)
(insert "\n\f\n;;; "))
+(defun b/insert-asterism ()
+ (interactive)
+ (insert "\n\n * * *\n\n"))
+
(defun b/no-mouse-autoselect-window ()
"Conveniently disable `focus-follows-mouse'.
For disabling the behaviour for certain buffers and/or modes."
;; time and battery in mode-line
(use-feature time
- :disabled
+ :if b/exwm-p
:demand
:config
(display-time-mode)
(display-time-format "%a %b %-e, %-l:%M%P"))
(use-feature battery
- :disabled
+ :if b/exwm-p
:demand
:config
(display-battery-mode)
;;; Essential packages
(use-package exwm
- :disabled
+ :if b/exwm-p
:demand
:config
;; make class name the buffer name, truncating beyond 60 characters
:config
(exwm-randr-enable)
:custom
- (exwm-randr-workspace-monitor-plist '(1 "VGA-1"))
- :hook
- (exwm-randr-screen-change . (lambda ()
- (let ((xrandr
- (string-join
- '("xrandr"
- "--output VGA-1"
- "--same-as LVDS-1"
- "--auto")
- " ")))
- (start-process-shell-command
- "xrandr" nil xrandr)))))
+ (exwm-randr-workspace-monitor-plist '(1 "VGA-1")))
(use-feature exwm-systemtray
:demand
:after ivy
:bind (([remap execute-extended-command] . counsel-M-x)
([remap find-file] . counsel-find-file)
- ("C-c b b" . ivy-switch-buffer)
("C-c f ." . counsel-find-file)
("C-c f l" . counsel-find-library)
("C-c f r" . counsel-recentf)
(use-feature dired
:config
- (setq dired-listing-switches "-alh"
+ (setq dired-dwim-target t
+ dired-listing-switches "-alh"
ls-lisp-use-insert-directory-program nil)
;; easily diff 2 marked files
(add-hook 'prog-mode-hook #'indicate-buffer-boundaries-left))
(use-feature text-mode
+ :bind (:map text-mode-map ("C-*" . b/insert-asterism))
:hook (text-mode . indicate-buffer-boundaries-left))
(use-feature conf-mode
:mode "\\.bashrc$")
(use-package company
- :defer 0.6
:bind
(:map company-active-map
([tab] . company-complete-common-or-cycle)
(load-theme 'tangomod t)
(use-package smart-mode-line
- :disabled
:commands (sml/apply-theme)
:demand
:config
+ (setq sml/theme 'tangomod)
(sml/setup)
(smart-mode-line-enable))
(load-theme 'solarized-light t))
(use-package moody
+ :disabled
:demand
:config
(setq x-underline-at-descent-line t)
(moody-replace-mode-line-buffer-identification)
(moody-replace-vc-mode))
+(use-package mini-modeline
+ :disabled
+ :demand
+ :config (mini-modeline-mode))
+
(defvar b/org-mode-font-lock-keywords
'(("[ \t]*\\(#\\+\\(BEGIN\\|END\\|begin\\|end\\)_\\(\\S-+\\)\\)[ \t]*\\([^\n:]*\\)"
(1 '(:foreground "#5a5b5a" :background "#292b2b") t) ; directive
(interactive)
(mapc #'disable-theme custom-enabled-themes)
(load-theme 'tangomod t)
- ;; (sml/apply-theme 'automatic)
+ (sml/apply-theme 'tangomod)
(font-lock-remove-keywords
- 'org-mode b/org-mode-font-lock-keywords))
+ 'org-mode b/org-mode-font-lock-keywords)
+ (when (featurep 'erc-hl-nicks)
+ (erc-hl-nicks-reset-face-table))
+ (when (featurep 'exwm-systemtray)
+ (exwm-systemtray--refresh)))
(defun b/lights-off ()
"Go dark."
(interactive)
(mapc #'disable-theme custom-enabled-themes)
(load-theme 'doom-one t)
- ;; (sml/apply-theme 'automatic)
+ (sml/apply-theme 'automatic)
(font-lock-add-keywords
- 'org-mode b/org-mode-font-lock-keywords t))
+ 'org-mode b/org-mode-font-lock-keywords t)
+ (when (featurep 'erc-hl-nicks)
+ (erc-hl-nicks-reset-face-table))
+ (when (featurep 'exwm-systemtray)
+ (exwm-systemtray--refresh)))
(bind-keys
("C-c t d" . b/lights-off)
"C-c 8 -" "typo/dashes"
"C-c 8 <" "typo/left-brackets"
"C-c 8 >" "typo/right-brackets"
+ "C-x RET" "coding system"
"C-x 8" "unicode"
+ "C-x @" "event modifiers"
"C-x a" "abbrev/expand"
"C-x r" "rectangle/register/bookmark"
+ "C-x t" "tabs"
"C-x v" "version control"
+ "C-x X" "edebug"
+ "C-x C-a" "edebug"
+ "C-x C-k" "kmacro"
;; prefixes for my personal bindings
+ "C-c &" "yasnippet"
"C-c a" "applications"
"C-c a e" "erc"
"C-c a o" "org"
"C-c P s" "projectile/search"
"C-c P x" "projectile/execute"
"C-c P 4" "projectile/other-window"
+ "C-c p" "package management"
+ "C-c ps" "straight"
+ "C-c psa" "all"
+ "C-c psp" "package"
"C-c q" "boxquote"
"C-c t" "themes"
;; "s-O" "outline"
(use-feature window
:bind
- (("C-c w <right>" . split-window-right)
- ("C-c w <down>" . split-window-below)
- ("C-c w s l" . split-window-right)
- ("C-c w s j" . split-window-below)
- ("C-c w q" . quit-window))
+ (("C-c w s l" . b/split-window-right)
+ ("C-c w s j" . b/split-window-below)
+ ("C-c w q" . quit-window))
+ :init
+ (defun b/split-window-right ()
+ (interactive)
+ (split-window-right)
+ (other-window 1))
+ (defun b/split-window-below ()
+ (interactive)
+ (split-window-below)
+ (other-window 1))
:custom
(split-width-threshold 150))
("<C-XF86Forward>" . pdf-history-forward)
("<mouse-9>" . pdf-history-forward)
("<drag-mouse-9>" . pdf-history-forward)
- ("M-RET" . image-previous-line))
+ ("M-RET" . image-previous-line)
+ ("C-s" . isearch-forward)
+ ("s s" . isearch-forward))
:config (pdf-tools-install nil t)
:custom (pdf-view-resize-factor 1.05))
:custom
(nnreddit-python-command "python3"))
+(use-package hyperbole
+ :disabled
+ :straight (hyperbole
+ :host github :repo "rswgnu/hyperbole"
+ :files ("*.el" ("kotl" "kotl/*.el")
+ "DEMO" "man/*.info" "man/*.texi")))
+
+(use-package oddmuse-curl
+ :straight (:host github :repo "kensanata/oddmuse-curl")
+ :config
+ (setq
+ oddmuse-wikis
+ (append
+ '(("EmacsConf" "https://emacsconf.org" utf-8 "question" nil)
+ ("EmacsConf 2019" "https://emacsconf.org/2019" utf-8 "question" nil))
+ oddmuse-wikis))
+ :custom
+ (oddmuse-username "bandali"))
+
+(use-package debpaste
+ :custom
+ (debpaste-paste-is-hidden t))
+
\f
;;; Email (with Gnus)
gnus-select-method '(nnnil "")
gnus-secondary-select-methods
'((nnimap "shemshak"
- (nnimap-stream plain)
- (nnimap-address "127.0.0.1")
- (nnimap-server-port 143)
- (nnimap-authenticator plain)
- (nnimap-user "amin@shemshak.local"))
+ (nnimap-stream plain)
+ (nnimap-address "127.0.0.1")
+ (nnimap-server-port 143)
+ (nnimap-authenticator plain)
+ (nnimap-user "amin@shemshak.local"))
(nnimap "gnu"
- (nnimap-stream plain)
- (nnimap-address "127.0.0.1")
- (nnimap-server-port 143)
- (nnimap-authenticator plain)
- (nnimap-user "bandali@gnu.local")
- (nnimap-inbox "INBOX")
- (nnimap-split-methods 'nnimap-split-fancy)
- (nnimap-split-fancy (|
- ;; (: gnus-registry-split-fancy-with-parent)
- ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
- ;; gnu
- (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
- ;; *.lists.sr.ht, omitting one dot if present
- ;; add more \\.?\\([^.]*\\) if needed
- (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
- ;; webmasters
- (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
- ;; other
- (list ".*atreus.freelists.org" "l.atreus")
- (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
- ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
- (list ".*haskell-cafe.haskell.org" "l.haskell-cafe")
- ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
- ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
- ;; ----------------------------------
- ;; legend: (u)nsubscribed | (d)ead
- ;; ----------------------------------
- ;; otherwise, leave mail in INBOX
- "INBOX")))
+ (nnimap-stream plain)
+ (nnimap-address "127.0.0.1")
+ (nnimap-server-port 143)
+ (nnimap-authenticator plain)
+ (nnimap-user "bandali@gnu.local")
+ (nnimap-inbox "INBOX")
+ (nnimap-split-methods 'nnimap-split-fancy)
+ (nnimap-split-fancy (|
+ ;; (: gnus-registry-split-fancy-with-parent)
+ ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
+ ;; gnu
+ (list ".*<\\(.*\\)\\.\\(non\\)?gnu\\.org>.*" "l.\\1")
+ ;; *.lists.sr.ht, omitting one dot if present
+ ;; add more \\.?\\([^.]*\\) if needed
+ (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
+ ;; webmasters
+ (from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
+ ;; other
+ (list ".*atreus.freelists.org" "l.atreus")
+ (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
+ ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
+ (list ".*haskell-cafe.haskell.org" "l.haskell-cafe")
+ ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
+ ;; (list ".*dev.lists.parabola.nu" "l.parabola-dev") ;u
+ ;; ----------------------------------
+ ;; legend: (u)nsubscribed | (d)ead
+ ;; ----------------------------------
+ ;; otherwise, leave mail in INBOX
+ "INBOX")))
(nnimap "uw"
(nnimap-stream plain)
(nnimap-address "127.0.0.1")
("l\\.emacs-tangents"
(to-address . "emacs-tangents@gnu.org")
(to-list . "emacs-tangents@gnu.org"))
+ ("l\\.emacsconf-committee"
+ (to-address . "emacsconf-committee@gnu.org")
+ (to-list . "emacsconf-committee@gnu.org"))
("l\\.emacsconf-discuss"
(to-address . "emacsconf-discuss@gnu.org")
(to-list . "emacsconf-discuss@gnu.org"))
(use-feature gnus-msg
:config
- (defvar b/signature "Amin Bandali
-Free Software Activist | GNU Webmaster & Volunteer
-GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103
-https://shemshak.org/~amin")
(defvar b/gnu-signature "Amin Bandali
-Free Software Activist | GNU Webmaster & Volunteer
+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
Systems Committee
Computer Science Club, University of Waterloo
https://csclub.uwaterloo.ca/~abandali")
- (setq gnus-posting-styles
+ (setq gnus-message-replysign t
+ gnus-posting-styles
'((".*"
(address "bandali@gnu.org")
(signature b/gnu-signature)
(eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
+ ("nnimap\\+gnu:l\\..*"
+ (signature nil))
+ ((header "subject" "ThankCRM")
+ (to "webmasters-comment@gnu.org")
+ (body "")
+ (eval (setq b/message-cite-say-hi nil)))
("nnimap\\+shemshak:.*"
(address "amin@shemshak.org")
(body "\nBest,\n")
- (signature b/signature)
+ (signature b/shemshak-signature)
(gcc "nnimap+shemshak:Sent")
(eval (setq b/message-cite-say-hi t)))
- ((header "subject" "ThankCRM")
- (to "webmasters-comment@gnu.org")
- (body "")
- (eval (setq b/message-cite-say-hi nil)))
("nnimap\\+uw:.*"
(address "bandali@uwaterloo.ca")
+ (body "\nBest,\n")
(signature b/uw-signature))
("nnimap\\+uw:INBOX"
(gcc "\"nnimap+uw:Sent Items\""))
("nnimap\\+csc:.*"
(address "bandali@csclub.uwaterloo.ca")
(signature b/csc-signature)
- (gcc "nnimap+csc:Sent")))))
+ (gcc "nnimap+csc:Sent"))))
+ ;; :hook (gnus-message-setup . mml-secure-message-sign)
+ )
(use-feature gnus-topic
:hook (gnus-group-mode . gnus-topic-mode)
mail-envelope-from 'header))
(use-feature message
+ :bind (:map message-mode-map ("<C-return>" . b/insert-asterism))
:config
;; redefine for a simplified In-Reply-To header
;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
(defun company-ebdb--post-complete (_) nil))
(use-feature ebdb-gnus
- :demand
:after ebdb
:custom
(ebdb-gnus-window-size 0.3))
;;; IRC (with ERC and ZNC)
(use-feature erc
- :bind (("C-c b e" . erc-switch-to-buffer)
+ :bind (("C-c b b" . erc-switch-to-buffer)
:map erc-mode-map
("M-a" . erc-track-switch-buffer))
:custom
projects / ~bandali / configs / blobdiff