Add bandali-essentials and bandali-utils, use use-package

2 files changed, 496 insertions, 0 deletions

diff --git a/.emacs.d/lisp/bandali-essentials.el b/.emacs.d/lisp/bandali-essentials.el
new file mode 100644
index 0000000..a0ea5f1
--- /dev/null
+++ b/.emacs.d/lisp/bandali-essentials.el
@@ -0,0 +1,402 @@
+;;; bandali-essentials.el --- bandali's essentials -*- lexical-binding: t; -*-
+
+;; Copyright (c) 2018-2025 Amin Bandali <bandali@gnu.org>
+
+;; Author: Amin Bandali <bandali@gnu.org>
+;; Keywords: files, internal
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; The core essentials of my GNU Emacs setup.
+
+;;; Code:
+
+(use-package emacs
+  :demand t
+  :bind
+  ("C-c e b" . eval-buffer)
+  ("C-c e r" . eval-region)
+  :config
+  (when (display-graphic-p)
+    ;; Too easy to accidentally suspend (freeze) Emacs GUI.
+    (b/keymap-global-unset "C-z"))
+
+  (setq-default
+   ;; Case-sensitive search (and `dabbrev-expand').
+   ;; case-fold-search nil
+   indent-tabs-mode nil  ; always use space for indentation
+   ;; tab-width 4
+   indicate-buffer-boundaries 'left)
+
+  (setq
+   ;; line-spacing 3
+   completion-ignore-case t
+   read-buffer-completion-ignore-case t
+   enable-recursive-minibuffers t
+   resize-mini-windows t
+   message-log-max 20000
+   mode-line-compact t
+   ;; mouse-autoselect-window t
+   scroll-conservatively 15
+   scroll-preserve-screen-position 1
+   ;; I don't feel like randomly jumping out of my chair.
+   ring-bell-function 'ignore)
+
+  ;; Mode-line compacting for older Emacsen.
+  (when (and (version< emacs-version "28") mode-line-compact)
+    ;; Manually make some `mode-line' spaces smaller.
+    ;; Emacs 28 and above do a terrific job at this out of the box
+    ;; when `mode-line-compact' is set to t (see above)."
+    (setq-default
+     mode-line-format
+     (mapcar
+      (lambda (x)
+        (if (and (stringp x)
+                 (or (string= x "   ")
+                     (string= x "  ")))
+            " "
+          x))
+      mode-line-format)
+     mode-line-buffer-identification
+     (propertized-buffer-identification "%10b")))
+
+  ;; Fonts and types.
+  (when (display-graphic-p)
+    (set-fontset-font t 'arabic "Sahel WOL")
+    (let ((emoji-font "Apple Color Emoji"))
+      (when (member emoji-font (font-family-list))
+        (set-fontset-font
+         t 'emoji `(,emoji-font . "iso10646-1") nil 'prepend)))
+    (with-eval-after-load 'faces
+      (let ((grey "#e7e7e7"))
+        ;; (set-face-attribute 'default nil
+        ;;                     :font "Source Code Pro"
+        ;;                     :height 113   ; 130 ; 105
+        ;;                     :weight 'medium)
+        ;; (set-face-attribute 'fixed-pitch nil
+        ;;                     :font "Source Code Pro"
+        ;;                     :weight 'medium)
+        ;; (set-face-attribute 'default nil
+        ;;                     :font "Inconsolata Medium-12:hinting=true:autohint=true")
+        ;; (set-face-attribute 'fixed-pitch nil
+        ;;                     :font "Inconsolata Medium-12:hinting=true:autohint=true")
+        (set-face-attribute 'default nil
+                            :font "Source Code Pro Medium-10.5")
+        (set-face-attribute 'fixed-pitch nil
+                            :font "Source Code Pro Medium-10.5")
+        (set-face-attribute 'mode-line nil
+                            :box '(:line-width 2 :style released-button)
+                            :background grey
+                            :inherit 'fixed-pitch)))))
+
+(use-package minibuffer
+  :custom
+  (read-file-name-completion-ignore-case t))
+
+(use-package files
+  :bind
+  ("C-c f ." . find-file)
+  :custom
+  (make-backup-files nil)
+  ;; Insert newline at the end of files.
+  ;; (require-final-newline t)
+  ;; Open read-only file buffers in view-mode, to get `q' for quit.
+  (view-read-only t))
+
+(use-package ffap
+  :bind
+  ("C-c f p" . find-file-at-point))
+
+(use-package find-func
+  :bind
+  ("C-c f l" . find-library))
+
+(use-package frame
+  :bind
+  ("C-c F m" . make-frame-command)
+  ("C-c F d" . delete-frame))
+
+(use-package text-mode
+  :mode "\\(README.*\\|COMMIT_EDITMSG$\\)")
+
+(use-package conf-mode
+  :mode "\\.*rc$")
+
+(use-package sh-script
+  :mode ("\\.bashrc$" . sh-mode))
+
+(use-package novice
+  :config
+  (setq disabled-command-function nil))
+
+(use-package autorevert
+  :defer 0.1
+  :custom
+  ;; (auto-revert-verbose nil)
+  (global-auto-revert-non-file-buffers nil)
+  :config
+  (global-auto-revert-mode 1))
+
+(use-package time
+  :defer 0.1
+  :bind
+  ("C-c e i" . emacs-init-time)
+  ("C-c e u" . emacs-uptime)
+  :custom
+  (display-time-default-load-average nil)
+  (display-time-format " %a %Y-%m-%d %-l:%M%P")
+  (display-time-mail-icon
+   '(image :type xpm :file "gnus/gnus-pointer.xpm" :ascent center))
+  (display-time-use-mail-icon t)
+  :config
+  (setopt
+   zoneinfo-style-world-list
+   `(,@zoneinfo-style-world-list
+     ("Etc/UTC" "UTC")
+     ("Asia/Tehran" "Tehran")
+     ("Australia/Melbourne" "Melbourne")))
+  (unless (display-graphic-p)
+    (display-time-mode 1)))
+
+(defvar b/battery-format "%p%b %t")
+(use-package battery
+  ;; :if (not (display-graphic-p))
+  :custom
+  (battery-mode-line-format (format " [%s]" b/battery-format)))
+
+(use-package winner
+  :defer 0.5
+  :config
+  (winner-mode 1)
+  (when (featurep 'exwm)
+    ;; Prevent a bad interaction between EXWM and winner-mode, where
+    ;; sometimes closing a window (like closing a terminal after
+    ;; entering a GPG password via pinentry-gnome3's floating window)
+    ;; results in a dead frame somewhere and effectively freezes EXWM.
+    (advice-add
+     'winner-insert-if-new
+     :around
+     (lambda (orig-fun &rest args)
+       ;; only add the frame if it's live
+       (when (frame-live-p (car args))
+         (apply orig-fun args))))))
+
+(use-package windmove
+  :defer 0.5
+  :custom
+  (windmove-wrap-around t)
+  :bind
+  ("M-H" . windmove-left)
+  ("M-L" . windmove-right)
+  ("M-K" . windmove-up)
+  ("M-J" . windmove-down))
+
+(use-package isearch
+  :custom
+  (isearch-allow-scroll t)
+  (isearch-lazy-count t)
+  ;; Match non-ASCII variants during search
+  (search-default-mode #'char-fold-to-regexp))
+
+(use-package vc
+  :bind
+  ("C-x v C-=" . vc-ediff))
+
+(use-package vc-git
+  :custom
+  ;; (vc-git-show-stash 0)
+  (vc-git-print-log-follow t))
+
+(use-package ediff
+  :custom
+  (ediff-window-setup-function #'ediff-setup-windows-plain)
+  (ediff-split-window-function #'split-window-horizontally))
+
+(use-package face-remap
+  :disabled
+  :custom
+  ;; Gentler font scaling.
+  (text-scale-mode-step 1.05))
+
+(use-package mwheel
+  :defer 0.4
+  :custom
+  (mouse-wheel-scroll-amount '(1 ((shift) . 1))) ; one line at a time
+  (mouse-wheel-progressive-speed nil)   ; don't accelerate scrolling
+  (mouse-wheel-follow-mouse t))         ; scroll window under mouse
+
+(use-package pixel-scroll
+  :defer 0.4
+  :config
+  (pixel-scroll-mode 1))
+
+(use-package epg-config
+  :custom
+  (epg-gpg-program (executable-find "gpg"))
+  ;; Ask for GPG passphrase in minibuffer.
+  ;; Will fail if gpg >= 2.1 is not available.
+  (epg-pinentry-mode 'loopback))
+
+(use-package auth-source
+  :disabled
+  :custom
+   (auth-sources '("~/.authinfo.gpg"))
+   (authinfo-hidden
+    (regexp-opt '("password" "client-secret" "token"))))
+
+(use-package info
+  :config
+  (setq
+   Info-directory-list
+   `(,@Info-directory-list
+     ,(expand-file-name
+       (convert-standard-filename "info/") source-directory)
+     "/usr/share/info/")))
+
+(use-package ielm
+  :bind
+  ("C-c i" . ielm))
+
+(use-package recentf
+  ;; recently opened files
+  :defer 0.2
+  :init
+  (defun b/recentf-open ()
+    "Use `completing-read' to \\[find-file] a recent file."
+    (interactive)
+    (find-file
+     (completing-read "Find recent file: " recentf-list)))
+  :bind
+  ("C-c f r" . b/recentf-open)
+  :custom
+  (recentf-max-saved-items 2000)
+  :config
+  (recentf-mode 1))
+
+(use-package help
+  :custom
+  (help-window-select t)
+  :config
+  (temp-buffer-resize-mode 1))
+
+(use-package help-mode
+  :bind
+  (:map
+   help-mode-map
+   ("p" . backward-button)
+   ("n" . forward-button)
+   ("b" . help-go-back)
+   ("f" . help-go-forward)))
+
+(use-package help-fns
+  :bind
+  ("C-c h F" . describe-face))
+
+(use-package doc-view
+  :bind
+  (:map
+   doc-view-mode-map
+   ("M-RET" . image-previous-line)))
+
+(use-package man
+  :custom
+  (Man-width 80))
+
+(use-package shr
+  :custom
+  (shr-max-width 80))
+
+(use-package mule-cmds
+  :preface (provide 'mule-cmds)
+  :custom
+  (default-input-method "farsi-isiri-9147"))
+
+(use-package tramp
+  :config
+  (tramp-set-completion-function
+   "ssh"
+   (append (tramp-get-completion-function "ssh")
+           (mapcar (lambda (file) `(tramp-parse-sconfig ,file))
+                   (directory-files
+                    "~/.ssh/config.d/"
+                    'full directory-files-no-dot-files-regexp)))))
+
+(use-package eldoc
+  ;; Display Lisp objects at point in the echo area.
+  :custom
+  (eldoc-minor-mode-string " eldoc")
+  :config
+  (global-eldoc-mode 1))
+
+(use-package paren
+  ;; Highlight matching parens.
+  :defer 0.2
+  :config
+  (show-paren-mode 1))
+
+(use-package simple
+  :custom
+  ;; Save what I copy into clipboard from other applications into
+  ;; Emacs' kill-ring, which would allow me to still be able to
+  ;; easily access it in case I kill (cut or copy) something else
+  ;; inside Emacs before yanking (pasting) what I'd originally
+  ;; intended to.
+  (save-interprogram-paste-before-kill t)
+  :config
+  (column-number-mode 1)
+  (line-number-mode 1))
+
+(use-package savehist
+  ;; Save minibuffer history.
+  :defer 0.2
+  :config
+  (savehist-mode 1)
+  (add-to-list 'savehist-additional-variables 'kill-ring))
+
+(use-package saveplace
+  ;; Automatically save place in files.
+  :defer 0.2
+  :config
+  (save-place-mode 1))
+
+(use-package flyspell
+  :custom
+  (flyspell-mode-line-string " fly")
+  :hook
+  (text-mode . flyspell-mode))
+
+(use-package abbrev
+  :hook
+  (text-mode . abbrev-mode))
+
+(use-package version
+  :bind
+  ("C-c e v" . emacs-version))
+
+(use-package bandali-utils
+  :bind
+  ("C-c d"   . b/duplicate-line-or-region)
+  ("C-c j"   . b/join-line-top)
+  ("C-S-j"   . b/join-line-top)
+  ("C-c s c" . b/*scratch*)
+  ("C-c v"   . b/invert-default-face)
+  ("C-c q"   . b/unfill-paragraph-or-region)
+  (:map
+   text-mode-map
+   ("M-RET" . b/insert-asterism)))
+
+(provide 'bandali-essentials)
+;;; bandali-essentials.el ends here
diff --git a/.emacs.d/lisp/bandali-utils.el b/.emacs.d/lisp/bandali-utils.el
new file mode 100644
index 0000000..9edc91e
--- /dev/null
+++ b/.emacs.d/lisp/bandali-utils.el
@@ -0,0 +1,94 @@
+;;; bandali-utils.el --- useful utilities -*- lexical-binding: t; -*-
+
+;; Copyright (c) 2018-2025 Amin Bandali <bandali@gnu.org>
+
+;; Author: Amin Bandali <bandali@gnu.org>
+;; Keywords: convenience
+
+;; 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
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Some useful utilities.
+
+;;; Code:
+
+(defun b/insert-asterism ()
+  "Insert a centred asterism."
+  (interactive)
+  (let ((asterism "* * *"))
+    (insert
+     (concat
+      "\n"
+      (make-string
+       (floor (/ (- fill-column (length asterism)) 2))
+       ?\s)
+      asterism
+      "\n"))))
+
+(defun b/join-line-top ()
+  "Like `join-line', but join next line to the current line."
+  (interactive)
+  (join-line 1))
+
+(defun b/*scratch* ()
+  "Switch to `*scratch*' buffer, creating it if it does not exist."
+  (interactive)
+  (let ((fun (if (functionp #'get-scratch-buffer-create)
+                 #'get-scratch-buffer-create ; (version<= "29" emacs-version)
+               #'startup--get-buffer-create-scratch))) ; (version< emacs-version "29")
+    (switch-to-buffer (funcall fun))))
+
+(defun b/duplicate-line-or-region (&optional n)
+  "Duplicate the current line, or region (if active).
+Make N (default: 1) copies of the current line or region."
+  (interactive "*p")
+  (let ((u-r-p (use-region-p))          ; if region is active
+        (n1 (or n 1)))
+    (save-excursion
+      (let ((text
+             (if u-r-p
+                 (buffer-substring (region-beginning) (region-end))
+               (prog1 (thing-at-point 'line)
+                 (end-of-line)
+                 (if (eobp)
+                     (newline)
+                   (forward-line 1))))))
+        (dotimes (_ (abs n1))
+          (insert text))))))
+
+(defun b/invert-default-face (arg)
+  "Invert the `default' and `mode-line' faces for the current frame.
+Swap the background and foreground for the two `default' and
+`mode-line' faces, effectively acting like a simple light/dark
+theme toggle.  If prefix argument ARG is given, invert the faces
+for all frames."
+  (interactive "P")
+  (let ((frame (unless arg
+                 (selected-frame))))
+    (invert-face 'default frame)
+    (invert-face 'mode-line frame)
+    (when (fboundp #'exwm-systemtray--refresh-background-color)
+      (exwm-systemtray--refresh-background-color 'remap))))
+
+(defun b/unfill-paragraph-or-region (&optional beg end)
+  "Unfill paragraph, or region (if active)."
+  (interactive "r")
+  (let ((fill-column most-positive-fixnum))
+    (if (use-region-p)
+        (fill-region beg end)
+      (fill-paragraph))))
+
+(provide 'bandali-utils)
+;;; bandali-utils.el ends here