Added dictionary with dico, orderless for fuzzy vertico matching.

5 files changed, 23 insertions, 9 deletions

diff --git a/.config/emacs/bd-default.el b/.config/emacs/bd-default.el
index a7335ba..e7c70d8 100644
--- a/.config/emacs/bd-default.el
+++ b/.config/emacs/bd-default.el
@@ -75,7 +75,6 @@ open URL at point."
 
 (setopt kill-whole-line t)
 
-
 ;; recursive minibuffers
 (setopt enable-recursive-minibuffers t)
 (minibuffer-depth-indicate-mode 1)
@@ -83,6 +82,11 @@ open URL at point."
 ;; allow one side window per side of frame
 (setopt window-sides-slots '(1 1 1 1))
 
+;; dictionary
+(keymap-global-set "C-c i" 'dictionary-lookup-definition)
+(setopt dictionary-server "localhost"
+        dictionary-use-single-buffer t)
+
 ;; do not show async command buffers by default
 (add-to-list 'display-buffer-alist
              (cons "\\*Async Shell Command\\*.*" (cons #'display-buffer-no-window nil)))
diff --git a/.config/emacs/bd-development.el b/.config/emacs/bd-development.el
index 4958644..3e47ad6 100644
--- a/.config/emacs/bd-development.el
+++ b/.config/emacs/bd-development.el
@@ -42,6 +42,12 @@ Exempt major modes are defined in `display-line-numbers-exempt-modes'."
   :custom
   (vertico-cycle t))
 
+(use-package orderless
+  :init
+  (setq completion-styles '(orderless basic)
+        completion-category-defaults nil
+        completion-category-overrides '((file (styles partial-completion)))))
+
 (use-package company
   :hook (prog-mode text-mode)
   :config
diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el
index 9628c66..4574cc6 100644
--- a/.config/emacs/bd-shells.el
+++ b/.config/emacs/bd-shells.el
@@ -31,13 +31,13 @@ status, and path."
      (propertize "\n> " 'face `(:foreground "#c33027")))))
 
 (use-package eshell
-  :init
+  :demand
   :bind (("C-z C-e" . 'eshell-open-buffer)
          :map eshell-mode-map
          ("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 ee63985..9d7f60a 100644
--- a/.config/emacs/bd-wm.el
+++ b/.config/emacs/bd-wm.el
@@ -35,7 +35,7 @@ bookmark file. If an x window, place in kill-ring."
   "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)))
+    (completing-read "Recall: " choices)))
 
 (defun read-file-into-list (file)
   (with-current-buffer
@@ -66,7 +66,6 @@ select a line from a file."
   ;; (start-process-shell-command "xrandr" nil "/home/bdunahu/.config/emacs/exwm_xrandr.sh")
   (start-process-shell-command "picom" nil "picom")
   (start-process-shell-command "bg" nil "set-bg")
-  (start-process-shell-command "xmodmap" nil "xmodmap ~/.config/xmodmap.config")
   (start-process-shell-command "xrate" nil "xset r rate 250 70")
 
   (dolist (k '(("s-L" "slock")
diff --git a/.config/guix-builds/bdunahu.scm b/.config/guix-builds/bdunahu.scm
index f1eba15..7504436 100644
--- a/.config/guix-builds/bdunahu.scm
+++ b/.config/guix-builds/bdunahu.scm
@@ -8,6 +8,7 @@
              (gnu services)
              (guix gexp)
              (gnu home services shepherd)
+             (gnu home services dict)
              (gnu home services xdg)
              (gnu home services shells)
              (gnu home services gnupg)
@@ -29,6 +30,7 @@
                                            "emacs-exwm"
                                            "emacs-guix"
                                            "emacs-magit"
+                                           "emacs-orderless"
                                            "emacs-org-roam"
                                            "emacs-pinentry"
                                            "emacs-slime"
@@ -50,6 +52,7 @@
                                            "sbcl"
                                            "stow"
                                            ;; "texlive"
+                                           "ungoogled-chromium"
                                            "xset"
                                            "yt-dlp"
                                            "zathura"
@@ -58,7 +61,9 @@
  ;; Below is the list of Home services.  To search for available
  ;; services, run 'guix home search KEYWORD' in a terminal.
  (services
-  (list (service home-xdg-user-directories-service-type
+  (list (service home-shepherd-service-type)
+        (service home-dicod-service-type)
+        (service home-xdg-user-directories-service-type
                  (home-xdg-user-directories-configuration
                   (desktop "$HOME")
                   (documents "$HOME")
@@ -100,15 +105,15 @@
                   (pinentry-program
                    (file-append pinentry-emacs "/bin/pinentry-emacs"))
                   (ssh-support? #t)))
-        (service home-shepherd-service-type)
 
 
         (when (equal? host-name "vali")
           (service home-batsignal-service-type
                    (home-batsignal-configuration
-                    (warning-level 35)
+                    (warning-level 95)
                     (critical-level 15)
-                    (danger-level 5)))
+                    (danger-level 5)
+                    (notification-command "notify-send")))
           (service home-xmodmap-service-type
                    (home-xmodmap-configuration
                     (key-map '(("remove Lock" . "Caps_Lock")