diff options
Diffstat (limited to '.config/emacs/modules/bd--devel.el')
| -rw-r--r-- | .config/emacs/modules/bd--devel.el | 23 |
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) |