summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--init.el27
-rw-r--r--lisp/bandali-erc.el1
-rw-r--r--lisp/bandali-gnus.el18
-rw-r--r--var/eshell/alias1
4 files changed, 37 insertions, 10 deletions
diff --git a/init.el b/init.el
index ed50494..bebc421 100644
--- a/init.el
+++ b/init.el
@@ -181,11 +181,11 @@
enable-recursive-minibuffers t
resize-mini-windows t
;; more useful frame titles
- frame-title-format '("" invocation-name " - "
- (:eval
- (if (buffer-file-name)
- (abbreviate-file-name (buffer-file-name))
- "%b")))
+ ;; frame-title-format '("" invocation-name " - "
+ ;; (:eval
+ ;; (if (buffer-file-name)
+ ;; (abbreviate-file-name (buffer-file-name))
+ ;; "%b")))
;; i don't feel like jumping out of my chair every now and again; so
;; don't BEEP! at me, emacs
ring-bell-function 'ignore
@@ -207,6 +207,8 @@
;; cursor shape
cursor-type t)
+(set-fontset-font t 'arabic "Vazir")
+
;; unicode support
(comment
(dolist (ft (fontset-list))
@@ -513,6 +515,16 @@
;; (magit-completing-read-function 'magit-ido-completing-read)
:custom-face (magit-diff-file-heading ((t (:weight normal)))))
+(use-package magit-extras
+ :after magit
+ :config
+ (setq magit-pop-revision-stack-format
+ (pcase-let ((`(,pt ,_eob ,index-regexp)
+ (default-value 'magit-pop-revision-stack-format)))
+ `(,pt "[%N: %h]: %ci\n %s
+ https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=%H"
+ ,index-regexp))))
+
;; recently opened files
(use-package recentf
:defer 0.2
@@ -582,6 +594,10 @@
:bind (:map doc-view-mode-map
("M-RET" . image-previous-line)))
+(use-package shr
+ :custom
+ (shr-max-width 80))
+
;; Email (with Gnus, message, and EBDB)
(require 'bandali-gnus)
(use-package sendmail
@@ -626,6 +642,7 @@
:config (show-paren-mode))
(use-package elec-pair
+ :disabled
:demand
:config (electric-pair-mode))
diff --git a/lisp/bandali-erc.el b/lisp/bandali-erc.el
index 4fe50b0..89ec6a0 100644
--- a/lisp/bandali-erc.el
+++ b/lisp/bandali-erc.el
@@ -67,6 +67,7 @@
(erc-fill-static-center 18))
(use-package erc-match
+ :disabled
:after erc
:config
(set-face-attribute
diff --git a/lisp/bandali-gnus.el b/lisp/bandali-gnus.el
index d5231c2..3759dcf 100644
--- a/lisp/bandali-gnus.el
+++ b/lisp/bandali-gnus.el
@@ -80,9 +80,11 @@
(list ".*<\\(.*\\)\\.libreplanet\\.org>.*" "l.\\1")
;; iana (e.g. tz-announce)
(list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1")
+ ;; orbitalfox (e.g. gemini)
+ (list ".*<\\(.*\\)\\.lists\\.orbitalfox\\.eu>.*" "l.\\1")
;; *.lists.sr.ht, omitting one dot if present
;; add more \\.?\\([^.]*\\) if needed
- (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists.sr.ht>.*" "l.~\\1.\\2\\3")
+ (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists\\.sr\\.ht>.*" "l.~\\1.\\2\\3")
;; webmasters
(from "webmasters\\(-comment\\)?@gnu\\.org" "webmasters")
;; other
@@ -91,7 +93,7 @@
;; (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
+ (list ".*dev.lists.parabola.nu" "l.parabola-dev")
;; ----------------------------------
;; legend: (u)nsubscribed | (d)ead
;; ----------------------------------
@@ -160,6 +162,12 @@
("l\\.emacsconf-discuss"
(to-address . "emacsconf-discuss@gnu.org")
(to-list . "emacsconf-discuss@gnu.org"))
+ ("l\\.emacsconf-org"
+ (to-address . "emacsconf-org@gnu.org")
+ (to-list . "emacsconf-org@gnu.org"))
+ ("l\\.emacsconf-org-private"
+ (to-address . "emacsconf-org-private@gnu.org")
+ (to-list . "emacsconf-org-private@gnu.org"))
("l\\.emacsconf-register"
(to-address . "emacsconf-register@gnu.org")
(to-list . "emacsconf-register@gnu.org"))
@@ -445,9 +453,9 @@ Computer Science Club, University of Waterloo")
:config
(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\\)"))
+ (when (version< emacs-version "27")
+ (setq mm-uu-diff-groups-regexp
+ "\\(gmane\\|gnu\\|l\\)\\..*\\(diff\\|commit\\|cvs\\|bug\\|dev\\)")))
(use-package mml)
diff --git a/var/eshell/alias b/var/eshell/alias
index a5109a4..203b616 100644
--- a/var/eshell/alias
+++ b/var/eshell/alias
@@ -1,5 +1,6 @@
alias .. cd ..
alias ... cd ../..
+alias d dired $*
alias e find-file-other-window $1
alias ee find-file $1
alias emacs find-file $1