diff options
| -rw-r--r-- | .config/emacs/init.el | 4 | ||||
| -rw-r--r-- | .config/emacs/libraries/autoformat.el | 2 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--devel.el | 23 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--files.el | 5 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--rss.el | 21 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--shells.el | 2 | ||||
| -rw-r--r-- | .config/guix/modules/emacs.scm | 1 |
7 files changed, 31 insertions, 27 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index c409bfb..6215b21 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -59,7 +59,6 @@ (tool-bar-mode -1) (tooltip-mode -1) - (keymap-global-set "C-c m" #'gnus) (setopt readmail-command 'gnus mail-user-agent 'gnus-user-agent @@ -78,7 +77,8 @@ package-enable-at-startup t) (add-to-list 'load-path (expand-file-name "~/.guix-home/profile/share/emacs/site-lisp")) -(require 'guix-autoloads) +(require 'guix-emacs) +(guix-emacs-autoload-packages) (guix-prettify-global-mode 1) diff --git a/.config/emacs/libraries/autoformat.el b/.config/emacs/libraries/autoformat.el index 5be5804..de17a0d 100644 --- a/.config/emacs/libraries/autoformat.el +++ b/.config/emacs/libraries/autoformat.el @@ -50,4 +50,4 @@ spaces with tabs." (provide 'autoformat) -;;; autoformat ends here +;;; autoformat.el ends here diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index 6f143ec..7c0698d 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -15,6 +15,21 @@ ;; skr (skribe) is a scheme extension (add-to-list 'auto-mode-alist '("\\.skr\\'" . scheme-mode)) +(defun bd/beginning-of-visual-line-dwim (&optional n) + (interactive "P") + (let ((pt (point))) + (back-to-indentation) + (when (or n (eq pt (point))) + (beginning-of-visual-line n)))) + +(define-minor-mode dwim-cursor-mode + "Toggle dwim-cursor-mode." + :init-value nil + :group 'quality + :light " SC" + :keymap (list + (cons (kbd "C-a") #'bd/beginning-of-visual-line-dwim))) + (use-package prog-mode :hook ((js-mode . (lambda () @@ -22,7 +37,8 @@ (prog-mode . (lambda () (font-lock-add-keywords nil '(("\\<\\(FIX\\(ME\\)?\\|TODO\\)" - 1 font-lock-warning-face t)))))) + 1 font-lock-warning-face t))))) + (prog-mode . dwim-cursor-mode)) :config (global-prettify-symbols-mode 1)) @@ -100,11 +116,6 @@ (require 'geiser-mode) (require 'geiser-guile) -(use-package yasnippet - :hook ((text-mode - prog-mode) . yas-minor-mode-on) - :bind (("H-s" . yas-insert-snippet))) - (use-package rainbow-mode :hook css-mode) diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el index f29383d..84d99e7 100644 --- a/.config/emacs/modules/bd--files.el +++ b/.config/emacs/modules/bd--files.el @@ -68,11 +68,6 @@ `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout") (,(regexp-opt '(".html")) "icecat &")))) -(use-package transmission - :bind - (:map transmission-mode-map - ("R" . #'transmission-move))) - (provide 'bd--files) ;;; bd--files.el ends here diff --git a/.config/emacs/modules/bd--rss.el b/.config/emacs/modules/bd--rss.el index ca45065..1030a1f 100644 --- a/.config/emacs/modules/bd--rss.el +++ b/.config/emacs/modules/bd--rss.el @@ -7,18 +7,17 @@ :bind (("C-z C-n" . newsticker-show-news)) :config (setopt newsticker-url-list-defaults nil - newsticker-retrieval-interval (* 60 60 24) - newsticker-automatically-mark-items-as-old nil + newsticker-retrieval-interval (* 60 60 24) + newsticker-automatically-mark-items-as-old nil - newsticker-url-list '(("James Enge Mastodon" "https://mastodon.sdf.org/@jamesenge.rss" nil nil nil) - ("operationnull blog" "https://operationnull.com/atom.xml" nil nil nil) - ("Parabola GNU/Linux-libre" "https://www.parabola.nu/feeds/news/" nil nil nil) - ("suckless.org news" "https://suckless.org/atom.xml" nil nil nil) - ("Protesilaos Stravrou" "https://vid.puffyan.us/feed/channel/UC0uTPqBCFIpZxlz_Lv1tk_g" nil nil nil)) - newsticker-groups '("Feeds" - ("READING" "James Enge Mastodon") - ("TECH" "Parabola GNU/Linux-libre" "suckless.org news" "operationnull blog") - ("VIDEO" "Protesilaos Stravrou")))) + newsticker-url-list '(("James Enge Mastodon" "https://mastodon.sdf.org/@jamesenge.rss" nil nil nil) + ("Parabola GNU/Linux-libre" "https://www.parabola.nu/feeds/news/" nil nil nil) + ("suckless.org news" "https://suckless.org/atom.xml" nil nil nil) + ("Protesilaos Stravrou" "https://vid.puffyan.us/feed/channel/UC0uTPqBCFIpZxlz_Lv1tk_g" nil nil nil)) + newsticker-groups '("Feeds" + ("READING" "James Enge Mastodon") + ("TECH" "Parabola GNU/Linux-libre" "suckless.org news") + ("VIDEO" "Protesilaos Stravrou")))) (provide 'bd--rss) diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el index 06e2752..3fe3b64 100644 --- a/.config/emacs/modules/bd--shells.el +++ b/.config/emacs/modules/bd--shells.el @@ -50,7 +50,7 @@ (set-text-properties (point-min) (point-max) nil) (erase-buffer) (eval eshell-banner-message))) - (defun eshell/open (file) + (defun eshell/o (file) (interactive) (find-file file)) (setopt eshell-buffer-maximum-lines 7500)) diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm index dab2d85..6867ebf 100644 --- a/.config/guix/modules/emacs.scm +++ b/.config/guix/modules/emacs.scm @@ -38,7 +38,6 @@ emacs-pinentry emacs-rainbow-delimiters emacs-rainbow-mode - emacs-transmission aspell |