6 files changed, 31 insertions, 26 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))