config updates

bindings.el

@@ -203,13 +203,14 @@
 
 ;;; <leader> t --- toggle
       (:prefix-map ("t" . "toggle")
+       :desc "Artist mode" "a" #'artist-mode
+       :desc "Follow mode" "x" #'follow-mode
        :desc "Big mode"                     "b" #'doom-big-font-mode
        :desc "Fill Column Indicator"        "c" #'global-display-fill-column-indicator-mode
        :desc "Flymake"                      "f" #'flymake-mode
        (:when (modulep! :checkers syntax)
          :desc "Flycheck"                   "f" #'flycheck-mode)
        :desc "Frame fullscreen"             "F" #'toggle-frame-fullscreen
-       ;; :desc "Evil goggles"                 "g" #'evil-goggles-mode
        (:when (modulep! :ui indent-guides)
          :desc "Indent guides"              "i" #'highlight-indent-guides-mode)
        :desc "Indent style"                 "I" #'doom/toggle-indent-style
@@ -445,27 +446,46 @@
  "c" #'platformio-clean
  "m" #'platformio-device-monitor)
 
-(map!
- :map sclang-mode-map
- :localleader
- "b" 'sclang-server-boot
- "." 'sclang-server-free-all
- "k" 'sclang-kill
- "r" 'sclang-server-reboot
- "e" 'sclang-eval-region-or-line
- "h" 'sclang-find-help
- "H" 'sclang-open-help-gui
- "s" 'sclang-start)
+(defun sclang-show-scope ()
+  (interactive)
+  (sclang-eval-expression "s.scope"))
+
+(defun sclang-show-levels ()
+  (interactive)
+  (sclang-eval-expression "s.levels"))
+
+(defun sclang-show-gui ()
+  (interactive)
+  (sclang-eval-expression "s.makeGui"))
 
 (map!
  :map sclang-mode-map
  "M-C-x" 'sclang-eval-region-or-line
- "M-C-z" 'sclang-server-free-all)
+ "M-C-z" 'sclang-server-free-all
+ :localleader
+ "b" #'sclang-server-boot
+ "." #'sclang-main-stop
+ "l" #'sclang-show-levels
+ "R" #'sclang-recompile
+ "s" #'sclang-show-scope
+ "g" #'sclang-show-gui
+ "k" #'sclang-kill
+ "r" #'sclang-server-reboot
+ "e" #'sclang-eval-region-or-line
+ "h" #'sclang-find-help
+ "H" #'sclang-open-help-gui
+ "s" #'sclang-start)
 
 (map!
  :map web-mode-map
  "s-<" #'web-mode-element-wrap)
 
+(map!
+ :map chezmoi-mode-map
+ :localleader
+ "f" #'chezmoi-find
+ "w" #'chezmoi-write)
+
 (setq ns-alternate-modifier 'meta)
 (setq ns-right-alternate-modifier 'none)