X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/7e1cad0634ec25e36043dfba0cb1da2772a23e87..515674c5da9237e7a4893b1531642aa65b09c969:/.emacs.d/init.el?ds=sidebyside diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 30f9ecc..7d04ad9 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1,6 +1,6 @@ ;;; init.el --- Amin Bandali's Emacs config -*- lexical-binding: t -*- -;; Copyright (C) 2018-2019 Amin Bandali +;; Copyright (C) 2018-2019 Amin Bandali ;; 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 @@ -18,7 +18,7 @@ ;;; Commentary: ;; Emacs configuration of Amin Bandali, computer scientist, functional -;; programmer, and free software advocate. Uses straight.el for +;; programmer, and free software activist. Uses straight.el for ;; purely functional and fully reproducible package management. ;; Over the years, I've taken inspiration from configurations of many @@ -569,6 +569,7 @@ For disabling the behaviour for certain buffers and/or modes." org-catch-invisible-edits 'show-and-error org-log-done 'time) (add-to-list 'org-structure-template-alist '("L" . "src emacs-lisp") t) + (add-to-list 'org-modules 'org-habit) :bind (("C-c a o a" . org-agenda) :map org-mode-map @@ -580,8 +581,11 @@ For disabling the behaviour for certain buffers and/or modes." (org-mode . flyspell-mode)) :custom (org-agenda-files '("~/usr/org/todos/personal.org" + "~/usr/org/todos/habits.org" "~/usr/org/todos/masters.org")) (org-agenda-start-on-weekday 0) + (org-agenda-time-leading-zero t) + (org-habit-graph-column 44) (org-latex-packages-alist '(("" "listings") ("" "color"))) :custom-face '(org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21")))) @@ -1225,6 +1229,10 @@ For disabling the behaviour for certain buffers and/or modes." (use-package go-mode) +(use-package po-mode + :hook + (po-mode . (lambda () (run-with-timer 0.1 nil 'View-exit)))) + ;;; Theme @@ -1667,7 +1675,7 @@ For disabling the behaviour for certain buffers and/or modes." (setq gnus-select-method '(nnnil "") gnus-secondary-select-methods - '((nnimap "amin" + '((nnimap "shemshak" (nnimap-stream plain) (nnimap-address "127.0.0.1") (nnimap-server-port 143) @@ -1711,11 +1719,13 @@ For disabling the behaviour for certain buffers and/or modes." (list ".*haskell-art.we.lurk.org" "l.haskell.art") (list ".*haskell-cafe.haskell.org" "l.haskell.cafe") ;; other + (list ".*atreus.freelists.org" "l.atreus") (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec") (list ".*notmuch.notmuchmail.org" "l.notmuch") (list ".*dev.lists.parabola.nu" "l.parabola.dev") ;; *@lists.sr.ht (list ".*~bandali/public-inbox@lists.sr.ht" "l.~bandali.public-inbox") + (list ".*~sircmpwn/free-writers-club@lists.sr.ht" "l.~sircmpwn.free-writers-club") (list ".*~sircmpwn/sr.ht-admins@lists.sr.ht" "l.~sircmpwn.srht.admins") (list ".*~sircmpwn/sr.ht-announce@lists.sr.ht" "l.~sircmpwn.srht.announce") (list ".*~sircmpwn/sr.ht-dev@lists.sr.ht" "l.~sircmpwn.srht.dev") @@ -1742,9 +1752,12 @@ For disabling the behaviour for certain buffers and/or modes." (nnimap-server-port 143) (nnimap-authenticator plain) (nnimap-user "abandali@csc.uw.local"))) - gnus-message-archive-group "nnimap+amin:Sent" + gnus-message-archive-group "nnimap+shemshak:Sent" gnus-parameters - '(("l\\.deepspec" + '(("l\\.atreus" + (to-address . "atreus@freelists.org") + (to-list . "atreus@freelists.org")) + ("l\\.deepspec" (to-address . "deepspec@lists.cs.princeton.edu") (to-list . "deepspec@lists.cs.princeton.edu") (list-identifier . "\\[deepspec\\]")) @@ -1832,6 +1845,9 @@ For disabling the behaviour for certain buffers and/or modes." ("l\\.~bandali\\.public-inbox" (to-address . "~bandali/public-inbox@lists.sr.ht") (to-list . "~bandali/public-inbox@lists.sr.ht")) + ("l\\.~sircmpwn\\.free-writers-club" + (to-address . "~sircmpwn/free-writers-club@lists.sr.ht") + (to-list . "~sircmpwn/free-writers-club@lists.sr.ht")) ("l\\.~sircmpwn\\.srht\\.admins" (to-address . "~sircmpwn/sr.ht-admins@lists.sr.ht") (to-list . "~sircmpwn/sr.ht-admins@lists.sr.ht")) @@ -1918,15 +1934,19 @@ For disabling the behaviour for certain buffers and/or modes." (defvar mab/signature "Amin Bandali Free Software Activist | GNU Webmaster & Volunteer GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103 -https://shemshak.org/~amin/") +https://shemshak.org/~amin") + (defvar mab/gnu-signature "Amin Bandali +Free Software Activist | GNU Webmaster & Volunteer +GPG: BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103 +https://bandalis.org") (defvar mab/uw-signature "Amin Bandali, MMath Student Cheriton School of Computer Science University of Waterloo -https://shemshak.org/~amin/") +https://bandalis.org") (defvar mab/csc-signature "Amin Bandali Termcom, Computer Science Club University of Waterloo -https://shemshak.org/~amin/") +https://bandalis.org") (setq gnus-posting-styles '((".*" (address "amin@shemshak.org") @@ -1934,8 +1954,8 @@ https://shemshak.org/~amin/") (signature mab/signature) (eval (setq mab/message-cite-say-hi t))) ("nnimap\\+gnu:.*" - (address "mab@gnu.org") - (organization "GNU Project") + (address "bandali@gnu.org") + (signature mab/gnu-signature) (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org"))) ((header "subject" "ThankCRM") (to "webmasters-comment@gnu.org") @@ -1943,13 +1963,11 @@ https://shemshak.org/~amin/") (eval (setq mab/message-cite-say-hi nil))) ("nnimap\\+uw:.*" (address "abandali@uwaterloo.ca") - (organization "University of Waterloo") (signature mab/uw-signature)) ("nnimap\\+uw:INBOX" (gcc "\"nnimap+uw:Sent Items\"")) ("nnimap\\+csc:.*" (address "abandali@csclub.uwaterloo.ca") - (organization "Computer Science Club, University of Waterloo") (signature mab/csc-signature) (gcc "nnimap+csc:Sent"))))) @@ -2022,7 +2040,7 @@ https://shemshak.org/~amin/") message-subscribed-address-functions '(gnus-find-subscribed-addresses) message-dont-reply-to-names - "\\(\\(amin@\\(shemshak\\|bndl\\)\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(mab\\|bandali\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)") + "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(amin@bndl\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a\\(min\\.\\)?bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)") (require 'company-ebdb) :hook (;; (message-setup . mml-secure-message-sign-pgpmime) (message-mode . flyspell-mode)