Replaced previous dmenu prompt with an Emacs equivalent.

4 files changed, 48 insertions, 20 deletions

diff --git a/.config/emacs/bd-default.el b/.config/emacs/bd-default.el
index 8891822..a7335ba 100644
--- a/.config/emacs/bd-default.el
+++ b/.config/emacs/bd-default.el
@@ -75,6 +75,11 @@ open URL at point."
 
 (setopt kill-whole-line t)
 
+
+;; recursive minibuffers
+(setopt enable-recursive-minibuffers t)
+(minibuffer-depth-indicate-mode 1)
+
 ;; allow one side window per side of frame
 (setopt window-sides-slots '(1 1 1 1))
 
diff --git a/.config/emacs/bd-mode-and-themes.el b/.config/emacs/bd-mode-and-themes.el
index ebe5306..528e920 100644
--- a/.config/emacs/bd-mode-and-themes.el
+++ b/.config/emacs/bd-mode-and-themes.el
@@ -31,8 +31,8 @@
     "Formats the checked out git repository.")
   (defvar-local bd/emms-mode-line
       '(:eval (when (and (mode-line-window-selected-p) emms-mode-line-string)
-		(format "%s %s" emms-mode-line-string
-			emms-playing-time-string)))
+                (format "%s %s" emms-mode-line-string
+                        emms-playing-time-string)))
     "Formats the currently playing emms track.")
   :config
   (setq emms-mode-line-icon-before-format (format "%s" (all-the-icons-fileicon "owl"))
@@ -45,8 +45,8 @@
     (format "%s" (length (ednc-notifications))))
   (defvar-local bd/notify-mode-line
       '(:eval (when (and (ednc-notifications) (mode-line-window-selected-p))
-		(format " %s %s" (all-the-icons-material "notifications_active")
-			(propertize (get-num-notifications) 'face 'error))))
+                (format " %s %s" (all-the-icons-material "notifications_active")
+                        (propertize (get-num-notifications) 'face 'error))))
     "Formats the notification number.")
   (ednc-mode))
 
@@ -86,11 +86,11 @@
                " "
                ;; mode-line-position
                mode-line-modified
-	       bd/notify-mode-line
+               bd/notify-mode-line
                bd/vc-mode-line
                "      "
-	       bd/emms-mode-line
-	       (mode-line-fill 21)
+               bd/emms-mode-line
+               (mode-line-fill 21)
                bd/time-mode-line))
 
 ;;;; remove mode-line-clutter
@@ -118,7 +118,7 @@
 
 ;;;; true transparency
 ;; (add-to-list 'default-frame-alist '(alpha-background . 60))
-(add-to-list 'default-frame-alist '(alpha . (85 . 85)))
+(add-to-list 'default-frame-alist '(alpha . (80 . 80)))
 
 (defun set-frame-alpha (value)
   "Sets the transparency of the frame background. 0=transparent/100=opaque"
@@ -145,16 +145,16 @@
 (add-hook 'modus-themes-after-load-theme-hook #'modus-themes-custom-faces)
 
 (setopt modus-themes-italic-constructs t
-	modus-themes-bold-constructs t
-	modus-themes-hl-line '(accented)
-	modus-themes-subtle-line-numbers t
-	modus-themes-paren-match '(intense)
-	modus-themes-region '(bg-only)
-	modus-themes-syntax '(faint)
-	modus-themes-mode-line '(borderless)
-	modus-themes-org-blocks 'gray-background
-	modus-themes-headings '(
-				(1 . (rainbow overline))))
+        modus-themes-bold-constructs t
+        modus-themes-hl-line '(accented)
+        modus-themes-subtle-line-numbers t
+        modus-themes-paren-match '(intense)
+        modus-themes-region '(bg-only)
+        modus-themes-syntax '(faint)
+        modus-themes-mode-line '(borderless)
+        modus-themes-org-blocks 'gray-background
+        modus-themes-headings '(
+                                (1 . (rainbow overline))))
 
 (load-theme 'modus-vivendi t)
 
diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el
index 9628c66..c6e6722 100644
--- a/.config/emacs/bd-shells.el
+++ b/.config/emacs/bd-shells.el
@@ -37,7 +37,7 @@ status, and path."
          ("C-q" . 'delete-window) ; mostly for side window
          ("<tab>" . completion-at-point))
   :config
-  (eshell/addpath "~/Personal/scripts/")
+  (eshell/addpath ~/Personal/scripts/)
   :custom
   (eshell-prompt-function 'bd/eshell-prompt)
   (eshell-prompt-regexp "^> ")
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)