Replaced previous dmenu prompt with an Emacs equivalent.

1 files changed, 24 insertions, 1 deletions

diff --git a/.config/emacs/bd-wm.el b/.config/emacs/bd-wm.el
index 021decb..068d180 100644
--- a/.config/emacs/bd-wm.el
+++ b/.config/emacs/bd-wm.el
@@ -21,6 +21,29 @@ dedicated buffer will never be automatically orphaned."
              (if dedicated "no longer " "")
              (buffer-name))))
 
+(defun insert-bookmark ()
+  "Inserts a url or string from permanent
+bookmark file."
+  (interactive)
+  (insert (car (last (split-string (choose-line-from-file "~/Personal/scripts/bookmarks.txt"))))))
+
+(defun choose-line-from-file (file)
+  "Uses completion-framework to allow user to
+select a line from a file."
+  (let* ((choices (read-file-into-list file)))
+    (completing-read "Choose one: " choices)))
+
+(defun read-file-into-list (file)
+  (with-current-buffer
+      (find-file-noselect file)
+    (split-string
+     (save-restriction
+       (widen)
+       (buffer-substring-no-properties
+        (point-min)
+        (point-max)))
+     "\n" t)))
+
 
 (use-package pinentry
   :init
@@ -44,7 +67,6 @@ dedicated buffer will never be automatically orphaned."
 
   (dolist (k '(("s-L" "slock")
                ("s-B" "icecat")
-               ("s-O" "xdotool type $(grep -v '^#' /home/bdunahu/Personal/scripts/bookmarks.txt | dmenu -i -l 12 | awk '{print $NF}')")
                ("s-P" "passmenu --type")
                ("<f2>" "brightnessctl set 1%-")
                ("<f3>" "brightnessctl set 1%+")
@@ -80,6 +102,7 @@ dedicated buffer will never be automatically orphaned."
      ([?\s-p] . (lambda ()
                   (interactive)
                   (other-window -1)))
+     ([?\s-O] . insert-bookmark)
      ([?\s-r] . exwm-reset)
      ([?\s-d] . toggle-current-window-dedication)
      ([?\s-q] . kill-current-buffer)