-;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
+;;; init.el --- mab's emacs configuration -*- lexical-binding: t -*-
-;; Copyright (C) 2018-2020 Amin Bandali <bandali@gnu.org>
+;; Copyright (C) 2018-2019 Amin Bandali <mab@gnu.org>
;; 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
;;; whoami
(setq user-full-name "Amin Bandali"
- user-mail-address "bandali@gnu.org")
+ user-mail-address "mab@gnu.org")
\f
;;; comment macro
\f
;;; Initial setup
-(defvar b/exwm-p (string= (system-name) "jirud")
+(defvar b/exwm-p (string= (system-name) "chaman")
"Whether or not we will be using `exwm'.")
;; keep ~/.emacs.d clean
(make-local-variable 'mouse-autoselect-window)
(setq mouse-autoselect-window nil))
+(defun b/kill-current-buffer ()
+ "Kill the current buffer."
+ ;; also see https://redd.it/64xb3q
+ (interactive)
+ (kill-buffer (current-buffer)))
+
\f
;;; Defaults
:config (pixel-scroll-mode 1))
(use-package epg-config
+ :config
+ ;; ask for GPG passphrase in minibuffer
+ ;; this will fail if gpg>=2.1 is not available
+ (if (version< "27" emacs-version)
+ (setq epg-pinentry-mode 'loopback)
+ (setq epa-pinentry-mode 'loopback))
:custom
(epg-gpg-program (executable-find "gpg")))
(use-package epg
:after epg-config)
+(use-package pinentry
+ :demand
+ :after (epa epg server)
+ :config
+ ;; workaround for systemd-based distros:
+ ;; (setq pinentry--socket-dir server-socket-dir)
+ (pinentry-start))
+
(use-package auth-source
:custom
(auth-sources '("~/.authinfo.gpg"))
("C-S-h C" . describe-char)
("C-S-h F" . describe-face)
- ("C-x k" . kill-this-buffer)
+ ("C-x k" . b/kill-current-buffer)
("C-x K" . kill-buffer)
("C-x s" . save-buffer)
("C-x S" . save-some-buffers)
;; 'magit-insert-untracked-files
;; 'append)
(setq magit-repository-directories '(("~/" . 0)
- ("~/src/git/" . 1)))
+ ("~/src/git/" . 2)))
(nconc magit-section-initial-visibility-alist
'(([unpulled status] . show)
([unpushed status] . show)))
("C-S-l" . b/eshell-clear)
("M-r" . counsel-esh-history)
;; ([tab] . company-complete)
- :map eshell-hist-mode-map
- ("M-r" . counsel-esh-history)))
+ )
+ (if (version< "27" emacs-version)
+ (bind-keys :map eshell-hist-mode-map
+ ("M-r" . counsel-esh-history))
+ (bind-keys :map eshell-mode-map
+ ("M-r" . counsel-esh-history))))
:hook (eshell-mode . b/eshell-setup)
:custom
(nnimap-address "127.0.0.1")
(nnimap-server-port 143)
(nnimap-authenticator plain)
- (nnimap-user "bandali@gnu.local")
+ (nnimap-user "mab@gnu.local")
(nnimap-inbox "INBOX")
(nnimap-split-methods 'nnimap-split-fancy)
(nnimap-split-fancy (|
(defvar b/uw-signature "Amin Bandali, MMath Student
Cheriton School of Computer Science
University of Waterloo
-https://bndl.org")
+https://bandali.eu.org")
(defvar b/csc-signature "Amin Bandali
-Systems Committee
+System Administrator, Systems Committee
Computer Science Club, University of Waterloo
https://csclub.uwaterloo.ca/~abandali")
(setq gnus-message-replysign t
gnus-posting-styles
'((".*"
- (address "bandali@gnu.org"))
+ (address "mab@gnu.org"))
("nnimap\\+gnu:l\\..*"
(signature nil))
+ ("nnimap\\+gnu:.*"
+ (organization "GNU"))
((header "subject" "ThankCRM")
(to "webmasters-comment@gnu.org")
(body "")
(use-package mm-uu
:config
- (set-face-attribute 'mm-uu-extract nil :extend t)
+ (when (version< "27" emacs-version)
+ (set-face-attribute 'mm-uu-extract nil :extend t))
:custom
(mm-uu-diff-groups-regexp
"\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)"))
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
- "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
+ "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(mab\\|bandali\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
;; (require 'company-ebdb)
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)
(erc-cmd-DEOP (format "%s" (erc-current-nick))))
(add-to-list 'erc-modules 'keep-place)
(add-to-list 'erc-modules 'notifications)
+ (add-to-list 'erc-modules 'smiley)
(add-to-list 'erc-modules 'spelling)
(add-to-list 'erc-modules 'scrolltoplace)
(erc-update-modules))
(use-package erc-scrolltoplace
:after erc)
-;; (use-package znc
-;; :straight (:host nil :repo "https://git.shemshak.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.shemshak.org" 1337 t
-;; ((freenode "amin/freenode" ,pwd)))
-;; ("znc.shemshak.org" 1337 t
-;; ((moznet "amin/moznet" ,pwd)))
-;; ("znc.shemshak.org" 1337 t
-;; ((oftc "amin/oftc" ,pwd)))))))
+(use-package znc
+ :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.shemshak.org" 1337 t
+ ((freenode "amin/freenode" ,pwd)))
+ ("znc.shemshak.org" 1337 t
+ ((moznet "amin/moznet" ,pwd)))
+ ("znc.shemshak.org" 1337 t
+ ((oftc "amin/oftc" ,pwd)))))))
\f
;;; Post initialization
projects / ~bandali / configs / blobdiff