-;;; init.el --- mab's emacs configuration -*- lexical-binding: t -*-
+;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
-;; Copyright (C) 2018-2019 Amin Bandali <mab@gnu.org>
+;; Copyright (C) 2018-2019 Amin Bandali <bandali@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
;;; Commentary:
-;; Emacs configuration of Amin Bandali, computer scientist, free
-;; software activist, GNU maintainer & webmaster. Packages are
-;; installed from GNU Guix, for purely functional and fully
-;; reproducible package management. Before switching to GNU Guix,
-;; I used straight.el for package management, and before that, Borg.
+;; GNU Emacs configuration of Amin Bandali, computer scientist,
+;; Free Software activist, and GNU maintainer & webmaster. Packages
+;; are installed through GNU Guix for a fully reproducible setup.
+;; Before switching to Guix, I used straight.el, and before that Borg.
;; 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:
(setq b/emacs-initialized t
gc-cons-threshold b/gc-cons-threshold
gc-cons-percentage b/gc-cons-percentage
- file-name-handler-alist b/file-name-handler-alist))
+ file-name-handler-alist b/file-name-handler-alist)
+ (with-eval-after-load 'exwm-workspace
+ (setq-default
+ mode-line-format
+ (append
+ mode-line-format
+ '((:eval
+ (format
+ "[%s]" (number-to-string
+ exwm-workspace-current-index))))))))
(add-hook 'after-init-hook #'b/post-init)
;; increase number of lines kept in *Messages* log
;;; whoami
(setq user-full-name "Amin Bandali"
- user-mail-address "mab@gnu.org")
+ user-mail-address "bandali@gnu.org")
\f
;;; comment macro
:config
(unbind-key "C-j" emmet-mode-keymap)
(setq emmet-move-cursor-between-quotes t)
- :hook (css-mode html-mode mhtml-mode sgml-mode))
+ :hook (css-mode html-mode sgml-mode))
(comment
(use-package meghanada
(setq gnus-message-replysign t
gnus-posting-styles
'((".*"
- (address "mab@gnu.org"))
+ (address "bandali@gnu.org"))
("nnimap\\+gnu:l\\..*"
(signature nil))
("nnimap\\+gnu:.*"
message-subscribed-address-functions
'(gnus-find-subscribed-addresses)
message-dont-reply-to-names
- "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(mab\\|bandali\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
+ "\\(\\(\\(amin\\|mab\\)@shemshak\\.org\\)\\|\\(.*@aminb\\.org\\)\\|\\(\\(bandali\\|mab\\|aminb?\\)@gnu\\.org\\)\\|\\(a?bandali@\\(csclub\\.\\)?uwaterloo\\.ca\\)\\)")
;; (require 'company-ebdb)
:hook (;; (message-setup . mml-secure-message-sign-pgpmime)
(message-mode . flyspell-mode)