diff options
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/bd-default.el | 5 | ||||
| -rw-r--r-- | .config/emacs/bd-mode-and-themes.el | 36 | ||||
| -rw-r--r-- | .config/emacs/bd-shells.el | 2 | ||||
| -rw-r--r-- | .config/emacs/bd-wm.el | 25 |
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) |