diff options
| -rw-r--r-- | .config/emacs/bd-default.el | 6 | ||||
| -rw-r--r-- | .config/emacs/bd-development.el | 6 | ||||
| -rw-r--r-- | .config/emacs/bd-shells.el | 4 | ||||
| -rw-r--r-- | .config/emacs/bd-wm.el | 3 | ||||
| -rw-r--r-- | .config/guix-builds/bdunahu.scm | 13 |
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") |