Minor fixups, remove emacs-transmission, dwim-cursor-mode (C-a + M-m)

1 files changed, 17 insertions, 6 deletions

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)