X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/6b09fc8a2951778cd3ff9807d7132dcfb1f7de38..7c558c9b5ee7aaf336f643cc6767ec875441a239:/init.el

diff --git a/init.el b/init.el
index dc6d3f2..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
@@ -202,9 +202,13 @@
  ;; always use space for indentation
  indent-tabs-mode nil
  tab-width 4
+ ;; case-sensitive search (and `dabbrev-expand')
+ ;; case-fold-search nil
  ;; cursor shape
  cursor-type t)
 
+(set-fontset-font t 'arabic "Vazir")
+
 ;; unicode support
 (comment
   (dolist (ft (fontset-list))
@@ -511,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
@@ -580,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
@@ -604,6 +622,7 @@
 
 ;; highlight uncommitted changes in the left fringe
 (use-package diff-hl
+  :disabled
   :defer 0.6
   :config
   (setq diff-hl-draw-borders nil)
@@ -623,6 +642,7 @@
   :config (show-paren-mode))
 
 (use-package elec-pair
+  :disabled
   :demand
   :config (electric-pair-mode))
 
@@ -935,8 +955,6 @@
 
 (require 'bandali-yasnippet)
 
-(comment
-
 (use-package debbugs
   :bind
   (("C-c D d" . debbugs-gnu)
@@ -962,6 +980,8 @@
       (setq debbugs-gnu-current-suppress t)
       (debbugs-gnu debbugs-gnu-default-severities '("guix-patches"))))))
 
+(comment
+
 (use-package org-ref
   :init
   (b/setq-every '("~/usr/org/references.bib")