diff options
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/modules/bd--browse.el | 37 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--devel.el | 6 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--exwm.el | 1 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--files.el | 3 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--org.el | 2 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--shells.el | 3 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--window.el | 6 |
7 files changed, 22 insertions, 36 deletions
diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el index 92bc0bf..22bbb6c 100644 --- a/.config/emacs/modules/bd--browse.el +++ b/.config/emacs/modules/bd--browse.el @@ -12,7 +12,6 @@ icecat, or eww." (interactive) (pcase pref (0 (eww url)) - (1 (start-process "icecat" nil "icecat" "--new-window" url)) (_ (start-process "librewolf" nil "librewolf" "--new-window" url)))) (setopt browse-url-browser-function 'bd/browse) @@ -62,7 +61,7 @@ icecat, or eww." (bd/search-candidate "Archwiki" "https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 0) (bd/selector-rip) - (bd/search-candidate "Web" "" 3)))) + (bd/search-candidate "Web" "" 1)))) (defun bd/browse-dispatcher () "Select and `browse-url' a bookmark or search feature." @@ -77,11 +76,6 @@ icecat, or eww." (lambda (url &rest _) (rip url)))) url-privacy-level '(email os emacs lastloc cookies)) -(use-package shr - :defer t - :config - (setopt )) - (use-package elpher :bind (:map elpher-mode-map @@ -106,30 +100,23 @@ icecat, or eww." elpher-use-emacs-bookmark-menu t)) (use-package eww + :defer 1 :bind (:map eww-mode-map - ("i" . eww-toggle-images)) - :hook - ((eww-after-render . (lambda () - (setq-local fill-column-desired-width 120) - (fill-column-mode)))) + ("i" . eww-toggle-images)) :config - (defun bd/eww-toggle-images () - (interactive) - (setq-local shr-inhibit-images (not shr-inhibit-images)) - (eww-reload t) - (message "%s images" - (if shr-inhibit-images "Disabled" "Enabled"))) (setopt eww-search-prefix "https://searx.operationnull.com/searxng/search?q=" eww-auto-rename-buffer 'title - eww-browse-url-new-window-is-tab nil + eww-browse-url-new-window-is-tab nil + browse-url-secondary-browser-function #'bd/browse + eww-header-line-format nil eww-use-browse-url (regexp-opt '("mailto:" - "youtube.com" - "youtu.be")) - shr-use-fonts t - shr-inhibit-images t - shr-cookie-policy nil - shr-max-width 85)) + "youtube.com" + "youtu.be")) + shr-use-fonts nil + shr-inhibit-images t + shr-cookie-policy nil + shr-max-width 90)) (provide 'bd--browse) diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index e3a05f4..2c6ef02 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -172,6 +172,10 @@ display for opening with browser." (append (-map (lambda (x) (bd/selector-doc x)) doc-dirs) (list (bd/selector-search)))))) +(use-package gdb-mi + :config + (setopt gdb-debuginfod-enable-setting nil)) + (use-package eglot :defer t :hook ((c-mode . eglot-ensure) @@ -221,6 +225,7 @@ display for opening with browser." geiser-repl-mode lisp-mode scheme-mode + slime-repl-mode lisp-interaction-mode) :config (defun bd/paredit-preserve-repl (f &rest args) @@ -229,6 +234,7 @@ display for opening with browser." ('(inferior-emacs-lisp-mode . t) (ielm-return)) ('(eshell-mode . t) (eshell-send-input)) ('(geiser-repl-mode . t) (geiser-repl-maybe-send)) + ('(slime-repl-mode . t) (slime-repl-return)) (_ (funcall f)))) (advice-add #'paredit-RET :around #'bd/paredit-preserve-repl) (eldoc-add-command diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el index 39d161e..8316b0f 100644 --- a/.config/emacs/modules/bd--exwm.el +++ b/.config/emacs/modules/bd--exwm.el @@ -64,6 +64,7 @@ that buffer." ([?\C-n] . [down]) ([?\C-a] . [home]) ([?\C-e] . [end]) + ([?\C-j] . [S-return]) ([?\C-m] . [return]) ([?\M-v] . [prior]) ([?\C-v] . [next]) diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el index 2ad7fb3..f4c4f4f 100644 --- a/.config/emacs/modules/bd--files.el +++ b/.config/emacs/modules/bd--files.el @@ -74,8 +74,7 @@ dired-auto-revert-buffer t dired-dwim-target t dired-guess-shell-alist-user - `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout") - (,(regexp-opt '(".html")) "icecat &")))) + `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")))) (provide 'bd--files) diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el index 3fefccb..fd2588e 100644 --- a/.config/emacs/modules/bd--org.el +++ b/.config/emacs/modules/bd--org.el @@ -175,7 +175,7 @@ representing all the tags ORd or ANDed together." org-capture-templates `(("t" "Task Entry" entry (file ,(concat org-directory "inbox.org")) - "* %?\n:PROPERTIES:\n:CREATED:%U\n:END:\n%i\nrecorded visiting: %a" + "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%i\nrecorded visiting: %a" :empty-lines 1))) (let ((orphan-view '(tags-todo "-{.*}" diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el index 2bbf403..6fff9e6 100644 --- a/.config/emacs/modules/bd--shells.el +++ b/.config/emacs/modules/bd--shells.el @@ -86,8 +86,7 @@ allowed." (use-package eshell :bind (:map eshell-mode-map - ("<tab>" . #'completion-at-point) - ("C-l" . #'eshell/clear)) + ("<tab>" . #'completion-at-point)) :config (defun eshell/clear (&optional scrollback) "Clear the eshell buffer and output the banner message." diff --git a/.config/emacs/modules/bd--window.el b/.config/emacs/modules/bd--window.el index 94841e6..4f12cdd 100644 --- a/.config/emacs/modules/bd--window.el +++ b/.config/emacs/modules/bd--window.el @@ -11,12 +11,6 @@ (add-to-list 'display-buffer-alist '("^\\*Async Shell Command\\*.*$" (display-buffer-no-window))) -(add-to-list 'display-buffer-alist - '((major-mode . Info-mode) - (display-buffer-in-side-window) - (side . right) - (slot . -1) - (width . 0.15))) (defun bd/layout--do-with-haste (f) (let* ((args (transient-args 'bd/layout-dispatcher)) |