Add bandali-misc

1 files changed, 110 insertions, 0 deletions

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