-#+title: =aminb='s Literate Emacs Configuration
+#+title: Literate Emacs Configuration of Amin Bandali
#+author: Amin Bandali
#+babel: :cache yes
#+property: header-args :tangle yes
#+begin_src emacs-lisp
(setq user-full-name "Amin Bandali"
- user-mail-address "amin@aminb.org")
+ user-mail-address "amin@bndl.org")
#+end_src
** Package management
use-package-expand-minimally t))
(setq use-package-always-defer t)
+(require 'bind-key)
#+end_src
-*** Epkg
+*** COMMENT Epkg
#+begin_quote
Browse the Emacsmirror package database
=package.el=-like user interface for browsing the available packages.
#+begin_src emacs-lisp
-(require 'bind-key)
(use-package epkg
:commands (epkg-list-packages epkg-describe-package)
:bind
("s-p" . beginning-of-buffer)
("s-n" . end-of-buffer))
+
+(when (display-graphic-p)
+ (unbind-key "C-z" global-map))
#+end_src
While at it, let's bind a few for some =straight-*= functions too:
In short, my favourite way of life.
-First, we have to resort to a [[https://github.com/raxod502/straight.el#installing-org-with-straightel][hack]] to be able to use the correct
-latest version of Org from upstream.
-
-#+begin_src emacs-lisp
- (use-package git)
-
- (defun org-git-version ()
- "The Git version of org-mode.
- Inserted by installing org-mode or when a release is made."
- (require 'git)
- (let ((git-repo (expand-file-name
- "straight/repos/org/" user-emacs-directory)))
- (string-trim
- (git-run "describe"
- "--match=release\*"
- "--abbrev=6"
- "HEAD"))))
-
- (defun org-release ()
- "The release version of org-mode.
- Inserted by installing org-mode or when a release is made."
- (require 'git)
- (let ((git-repo (expand-file-name
- "straight/repos/org/" user-emacs-directory)))
- (string-trim
- (string-remove-prefix
- "release_"
- (git-run "describe"
- "--match=release\*"
- "--abbrev=0"
- "HEAD")))))
-
-(provide 'org-version)
-#+end_src
-
We will use the =org-plus-contrib= package to get the whole deal:
#+begin_src emacs-lisp
("emacs"
(or
(name . "^\\*scratch\\*$")
- (name . "^\\*Messages\\*$"))))))
+ (name . "^\\*Messages\\*$")))
+ ("erc" (mode . erc-mode)))))
(ibuffer-formats
'((mark modified read-only locked " "
(name 18 18 :left :elide)
:after (treemacs))
#+end_src
-*** eclim
+*** COMMENT eclim
#+begin_src emacs-lisp
(use-package eclim
"C-x v" "version control"
;; prefixes for my personal bindings
"C-c a" "applications"
+ "C-c a e" "erc"
"C-c a s" "shells"
"C-c p" "package-management"
- "C-c p e" "package-management/epkg"
+ ;; "C-c p e" "package-management/epkg"
"C-c p s" "straight.el"
"C-c psa" "all"
"C-c psp" "package"
(nnimap-address "127.0.0.1")
(nnimap-server-port 143)
(nnimap-authenticator plain)
- (nnimap-user "amin@aminb.org"))
+ (nnimap-user "amin@bndl.org"))
(nnimap "uwaterloo"
(nnimap-stream plain)
(nnimap-address "127.0.0.1")
:config
(setq gnus-posting-styles
'((".*"
- (address "amin@aminb.org")
+ (address "amin@bndl.org")
(body "\nBest,\namin\n")
(eval (setq a/message-cite-say-hi t)))
("gnu.*"
- (address "bandali@gnu.org"))
+ (address "bandali@gnu.org")
+ (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
((header "subject" "ThankCRM")
(to "webmasters-comment@gnu.org")
(body "\nAdded to 2019supporters.html.\n\nMoving to campaigns.\n\n-amin\n")
(gcc "nnimap+csclub:Sent")))))
(use-feature gnus-topic
- :hook (gnus-group-mode . gnus-topic-mode))
+ :hook (gnus-group-mode . gnus-topic-mode)
+ :config (setq gnus-topic-line-format "%i[ %A: %(%{%n%}%) ]%v\n"))
(use-feature gnus-agent
:config
#+begin_src emacs-lisp
(use-feature message
:config
+ ;; redefine for a simplified In-Reply-To header
+ ;; (see https://todo.sr.ht/~sircmpwn/lists.sr.ht/67)
+ (defun message-make-in-reply-to ()
+ "Return the In-Reply-To header for this message."
+ (when message-reply-headers
+ (let ((from (mail-header-from message-reply-headers))
+ (msg-id (mail-header-id message-reply-headers)))
+ (when from
+ msg-id))))
+
(defconst a/message-cite-style-format "On %Y-%m-%d %l:%M %p, %N wrote:")
(defconst message-cite-style-bandali
'((message-cite-function 'message-cite-original)
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-envelope-from 'header
message-dont-reply-to-names
- "\\(\\(.*@aminb\\.org\\)\\|\\(amin@bandali\\.me\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\|\\(abandali@csclub\\.uwaterloo\\.ca\\)\\)"
- message-user-fqdn "aminb.org")
+ "\\(\\(amin@bndl\\.org\\)\\|\\(.*@\\(aminb\\|amin\\.bndl\\)\\.org\\)\\|\\(\\(bandali\\|aminb?\\|mab\\)@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)
(gnus-harvest-install)))
#+end_src
+* IRC
+:PROPERTIES:
+:CUSTOM_ID: irc
+:END:
+
+Now with ERC!
+
+#+begin_src emacs-lisp
+(use-package znc
+ :straight (:host nil :repo "https://git.bndl.org/amin/znc.el")
+ :bind (("C-c a e e" . znc-erc)
+ ("C-c a e a" . znc-all))
+ :config
+ (let ((pwd (let ((auth (auth-source-search :host "znca")))
+ (cond
+ ((null auth) (error "Couldn't find znca's authinfo"))
+ (t (funcall (plist-get (car auth) :secret)))))))
+ (setq znc-servers
+ `(("znc.bndl.org" 1337 t
+ ((freenode "amin/freenode" ,pwd)))
+ ("znc.bndl.org" 1337 t
+ ((moznet "amin/moznet" ,pwd)))))))
+#+end_src
+
* Blogging
:PROPERTIES:
:CUSTOM_ID: blogging
projects / ~bandali / configs / blobdiff