From 4d5a02560e5c5aa0da573278b7415071cbd5b5de Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 2 Mar 2021 05:07:43 +0000
Subject: unused packages

---
 init.org | 90 +++++++++++++++++-----------------------------------------------
 1 file changed, 23 insertions(+), 67 deletions(-)

diff --git a/init.org b/init.org
index a3e062c..0276752 100644
--- a/init.org
+++ b/init.org
@@ -471,7 +471,7 @@
       (defun jao-exwm-enable ()
         (jao-load-org "exwm.org")
         (setq jao-exwm-enabled-p t)
-        (jao-ednc-setup 90)
+        ;; (jao-ednc-setup 90)
         (exwm-enable)
         (setq switch-window-input-style 'minibuffer
               switch-window-minibuffer-shortcut nil)
@@ -1221,67 +1221,6 @@
     #+begin_src emacs-lisp
       (setq buffer-quit-function (lambda () t))
     #+end_src
-*** bm.el (per buffer bookmarks)
-    #+begin_src emacs-lisp
-      (use-package bm
-         :ensure t
-         :demand t
-
-         :init
-         ;; style (only fringe)
-         (setq bm-highlight-style 'bm-highlight-only-fringe)
-
-         ;; restore on load (even before you require bm)
-         (setq bm-restore-repository-on-load t)
-
-         :config
-         ;; Allow cross-buffer 'next'
-         (setq bm-cycle-all-buffers t)
-
-         ;; where to store persistant files
-         (setq bm-repository-file "~/.emacs.d/cache/bm-repository")
-
-         ;; save bookmarks
-         (setq-default bm-buffer-persistence t)
-
-         ;; Loading the repository from file when on start up.
-         ;; (add-hook 'after-init-hook 'bm-repository-load)
-
-         ;; Saving bookmarks
-         (add-hook 'kill-buffer-hook #'bm-buffer-save)
-
-         ;; Saving the repository to file when on exit.
-         ;; kill-buffer-hook is not called when Emacs is killed, so we
-         ;; must save all bookmarks first.
-         (add-hook 'kill-emacs-hook #'(lambda ()
-                                        (bm-buffer-save-all)
-                                        (bm-repository-save)))
-
-         ;; The `after-save-hook' is not necessary to use to achieve persistence,
-         ;; but it makes the bookmark data in repository more in sync with the file
-         ;; state.
-         (add-hook 'after-save-hook #'bm-buffer-save)
-
-         ;; Restoring bookmarks
-         (add-hook 'find-file-hooks   #'bm-buffer-restore)
-         (add-hook 'after-revert-hook #'bm-buffer-restore)
-
-         ;; The `after-revert-hook' is not necessary to use to achieve persistence,
-         ;; but it makes the bookmark data in repository more in sync with the file
-         ;; state. This hook might cause trouble when using packages
-         ;; that automatically reverts the buffer (like vc after a check-in).
-         ;; This can easily be avoided if the package provides a hook that is
-         ;; called before the buffer is reverted (like `vc-before-checkin-hook').
-         ;; Then new bookmarks can be saved before the buffer is reverted.
-         ;; Make sure bookmarks is saved before check-in (and revert-buffer)
-         ;; (add-hook 'vc-before-checkin-hook #'bm-buffer-save)
-
-         :config (bm-repository-load)
-
-         :bind (("<f4>" . bm-next)
-                ("S-<f4>" . bm-previous)
-                ("C-<f4>" . bm-toggle)))
-    #+end_src
 * Windows
 *** Scrolling
     #+BEGIN_SRC emacs-lisp
@@ -1311,11 +1250,32 @@
 
       (global-set-key (kbd "C-x _") #'delete-other-windows-vertically)
     #+end_src
+*** ace-window
+    An alternative is switch-window.  The problem with it is that
+    commands such as C-x 4 f will use as default-dir the destination's
+    rather than the origin's, which kills the fun of it.  ace-window
+    is not without warts, notably, lack of overlay for org buffers,
+    although, to be fair, that's possibly org's fault (but then, why
+    does switch-window's overlays work?).
+    #+begin_src emacs-lisp
+      (use-package ace-window
+        :ensure t
+        :init (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
+                    aw-char-position 'left ;; 'top-left
+                    aw-ignore-current nil
+                    aw-dispatch-when-more-than 3 ;; 2
+                    aw-leading-char-style 'path
+                    aw-display-mode-overlay t
+                    aw-scope 'frame)
+        :bind (("M-o" . ace-window)
+               ("M-O" . ace-swap-window)
+               ("C-x p" . ace-window)))
+    #+end_src
 *** Switch window
     An alternative for this one is ace-window, but it has the problem
     of not displaying its overlay over org buffers (sometimes) and
     introducing a dependency (avy).
-    #+begin_src emacs-lisp
+    #+begin_src emacs-lisp :load no
       (use-package switch-window
         :ensure t
         :demand t
@@ -3065,10 +3025,6 @@
         (add-hook 'magit-status-sections-hook #'forge-insert-requested-reviews t)
         (add-hook 'magit-status-sections-hook #'forge-insert-assigned-issues t)
         (add-hook 'magit-status-sections-hook #'forge-insert-issues t))
-
-      (use-package orgit-forge
-        :ensure t
-        :after (org))
     #+end_src
 *** Other git packages
     #+BEGIN_SRC emacs-lisp
-- 
cgit v1.2.3