Add bandali-misc

2 files changed, 111 insertions, 74 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 2363e77..5500760 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -146,87 +146,14 @@ plain variables.  This means that `setopt' will execute any
 ;;           smtpmail-queue-dir (concat b/maildir "queue/")))
 ;;; IRC with ERC
 (require 'bandali-erc)
-;; (require 'bandali-misc)
+(require 'bandali-misc)
 (require 'bandali-po)
 
 
 ;;; Emacs enhancements & auxiliary packages
-;; `debbugs'
-(b/keymap-global-set "C-c D d" #'debbugs-gnu)
-(b/keymap-global-set "C-c D b" #'debbugs-gnu-bugs)
-(b/keymap-global-set "C-c D e"          ; bug-gnu-emacs
-                (lambda ()
-                  (interactive)         
-                  (setq debbugs-gnu-current-suppress t)
-                  (debbugs-gnu debbugs-gnu-default-severities
-                               '("emacs"))))
-(b/keymap-global-set "C-c D g"          ; bug-gnuzilla
-                (lambda ()
-                  (interactive)
-                  (setq debbugs-gnu-current-suppress t)
-                  (debbugs-gnu debbugs-gnu-default-severities
-                               '("gnuzilla"))))
 
 (use-package mml
   :defer t
   :delight " mml")
 
-(add-to-list 'load-path (b/emacs.d "lisp/ffs"))
-(run-with-idle-timer 0.5 nil #'require 'ffs)
-(with-eval-after-load 'ffs
-  (setopt ffs-default-face-height 250)
-  (global-set-key (kbd "C-c f s") #'ffs))
-(add-hook 'ffs-start-hook
-          (lambda ()
-            (mapc
-             (lambda (mode) (funcall mode 1)) ; enable
-             '(ffs--no-mode-line-minor-mode
-               ffs--no-cursor-minor-mode))
-            (mapc
-             (lambda (mode) (funcall mode -1)) ; disable
-             '(show-paren-local-mode
-               display-battery-mode
-               display-fill-column-indicator-mode
-               flyspell-mode
-               tool-bar-mode
-               menu-bar-mode
-               scroll-bar-mode))
-            (fringe-mode 0)))
-(add-hook 'ffs-quit-hook
-          (lambda ()
-            (mapc
-             (lambda (mode) (funcall mode -1)) ; disable
-             '(ffs--no-mode-line-minor-mode
-               ffs--no-cursor-minor-mode))
-            (mapc
-             (lambda (mode) (funcall mode 1)) ; enable
-             '(show-paren-local-mode
-               display-battery-mode
-               display-fill-column-indicator-mode
-               flyspell-mode
-               tool-bar-mode
-               menu-bar-mode
-               scroll-bar-mode))
-            (fringe-mode nil)))
-
-(add-to-list 'load-path (b/emacs.d "lisp/debian-el"))
-(run-with-idle-timer 0.5 nil #'require 'debian-el)
-(with-eval-after-load 'debian-el
-  (require 'apt-sources)
-  (require 'apt-utils)
-  (require 'debian-bug)
-  (require 'deb-view)
-  (require 'gnus-BTS)
-  (require 'preseed))
-
-(add-to-list 'load-path (b/emacs.d "lisp/dpkg-dev-el"))
-(run-with-idle-timer 0.5 nil #'require 'dpkg-dev-el)
-(with-eval-after-load 'dpkg-dev-el
-  (require 'debian-changelog-mode)
-  (require 'debian-bts-control)
-  (require 'debian-changelog-mode)
-  (require 'debian-control-mode)
-  (require 'debian-copyright)
-  (require 'readme-debian))
-
 ;;; init.el ends here
diff --git a/.emacs.d/lisp/bandali-misc.el b/.emacs.d/lisp/bandali-misc.el
new file mode 100644
index 0000000..1c5bfd2
--- /dev/null
+++ b/.emacs.d/lisp/bandali-misc.el
@@ -0,0 +1,110 @@
+;;; bandali-misc.el --- miscellaneous packages -*- 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:
+
+;; My setup for miscellaneous packages.
+
+;;; Code:
+
+(use-package debbugs
+  :ensure t
+  :bind
+  ("C-c D d" . debbugs-gnu)
+  ("C-c D b" . debbugs-gnu-bugs)
+  ("C-c D e" . (lambda ()               ; bug-gnu-emacs
+                 (interactive)         
+                 (setq debbugs-gnu-current-suppress t)
+                 (debbugs-gnu debbugs-gnu-default-severities
+                              '("emacs"))))
+  ("C-c D g" . (lambda ()               ; bug-gnuzilla
+                 (interactive)
+                 (setq debbugs-gnu-current-suppress t)
+                 (debbugs-gnu debbugs-gnu-default-severities
+                              '("gnuzilla")))))
+
+(use-package ffs
+  :load-path "lisp/ffs"
+  ;; :defer 0.5
+  :hook
+  ((ffs-start
+    .
+    (lambda ()
+      (mapc
+       (lambda (mode) (funcall mode 1)) ; enable
+       '(ffs--no-mode-line-minor-mode
+         ffs--no-cursor-minor-mode))
+      (mapc
+       (lambda (mode) (funcall mode -1)) ; disable
+       '(show-paren-local-mode
+         display-battery-mode
+         display-fill-column-indicator-mode
+         flyspell-mode
+         tool-bar-mode
+         menu-bar-mode
+         scroll-bar-mode))
+      (fringe-mode 0)))
+   (ffs-quit
+    .
+    (lambda ()
+      (mapc
+       (lambda (mode) (funcall mode -1)) ; disable
+       '(ffs--no-mode-line-minor-mode
+         ffs--no-cursor-minor-mode))
+      (mapc
+       (lambda (mode) (funcall mode 1)) ; enable
+       '(show-paren-local-mode
+         display-battery-mode
+         display-fill-column-indicator-mode
+         flyspell-mode
+         tool-bar-mode
+         menu-bar-mode
+         scroll-bar-mode))
+      (fringe-mode nil))))
+  :commands ffs
+  :bind
+  ("C-c f s" . ffs)
+  :custom
+  (ffs-default-face-height 250))
+
+(use-package debian-el
+  :load-path "lisp/debian-el"
+  :defer 0.5
+  :config
+  (require 'apt-sources)
+  (require 'apt-utils)
+  (require 'debian-bug)
+  (require 'deb-view)
+  (require 'gnus-BTS)
+  (require 'preseed))
+
+(use-package dpkg-dev-el
+  :load-path "lisp/dpkg-dev-el"
+  :defer 0.5
+  :config
+  (require 'debian-changelog-mode)
+  (require 'debian-bts-control)
+  (require 'debian-changelog-mode)
+  (require 'debian-control-mode)
+  (require 'debian-copyright)
+  (require 'readme-debian))
+
+(provide 'bandali-misc)
+;;; bandali-misc.el ends here