forgot to commit ..

lisp/init-elget.el

@@ -71,10 +71,11 @@
                :type http
                :url "http://nschum.de/src/emacs/rotate-text/rotate-text.el")
 
-(el-get-bundle consult-emms
-  :type github
-  :pkgname "Hugo-Heagren/consult-emms"
-  :features consult-emms)
+;; doesn't work AND I don't use it anymore
+;; (el-get-bundle consult-emms
+;;   :type github
+;;   :pkgname "Hugo-Heagren/consult-emms"
+;;   :features consult-emms)
 
 ;; (el-get-bundle matcha
 ;;                :type github

lisp/init-go.el

@@ -1,37 +1,52 @@
 ;; *** Go Lang
 
 (use-package go-mode
-             :mode "\\.go\\'"
-             :mode "\\.mod\\'"
+  :mode "\\.go\\'"
+  :mode "\\.mod\\'"
 
-             :config
-             (setq gofmt-args '("-s"))
-             (setq tab-width 4)
-             ;; (setq indent-tabs-mode 1)
+  :config
+  (setq gofmt-args '("-s"))
+  (setq tab-width 4)
+  ;; (setq indent-tabs-mode 1)
 
-             :init
-             ;; disabled, I'm now trying lsp-mode, see below:
-             ;; (add-hook 'before-save-hook 'gofmt-before-save)
-             ;;   :hook (go-mode lsp-deferred)
+  :init
+  ;; disabled, I'm now trying lsp-mode, see below:
+  ;; (add-hook 'before-save-hook 'gofmt-before-save)
+  ;;   :hook (go-mode lsp-deferred)
 
-             (when (fboundp 'lsp-deferred)
-               (defun lsp-go-install-save-hooks ()
-                 (add-hook 'before-save-hook #'lsp-format-buffer t t)
-                 (add-hook 'before-save-hook #'lsp-organize-imports t t))
+  (when (fboundp 'lsp-deferred)
+    (defun lsp-go-install-save-hooks ()
+      (add-hook 'before-save-hook #'lsp-format-buffer t t)
+      (add-hook 'before-save-hook #'lsp-organize-imports t t))
 
-               (add-hook 'go-mode-hook #'lsp-deferred)
-               (add-hook 'go-mode-hook #'lsp-go-install-save-hooks)
-               ;; (add-hook 'go-mode-hook #'ivy-mode)
+    (add-hook 'go-mode-hook #'lsp-deferred)
+    (add-hook 'go-mode-hook #'lsp-go-install-save-hooks)
+    ;; (add-hook 'go-mode-hook #'ivy-mode)
 
-               ;; overwrite dump-jump settions here
-               ;; (bind-key*  (kbd "C-c j") #'lsp-find-definition)
-               ;; (bind-key*  (kbd "C-c b") #'xref-pop-marker-stack)
-               )
+    ;; overwrite dump-jump settions here
+    ;; (bind-key*  (kbd "C-c j") #'lsp-find-definition)
+    ;; (bind-key*  (kbd "C-c b") #'xref-pop-marker-stack)
+    )
 
-             :bind (:map go-mode-map
-                         ( "C-c j" . #'lsp-find-definition)
-                         ("C-c b" . #'xref-pop-marker-stack)))
+  :bind (:map go-mode-map
+              ( "C-c j" . #'lsp-find-definition)
+              ("C-c b" . #'xref-pop-marker-stack)))
 
+(use-package kage-mode
+  :ensure nil ;; installed in site-lisp
+  :defer nil
+  :mode "\\.kg\\'"
+  :commands kage-gofmt-before-save
+
+  :init
+  (defun tvd-kage-install-hooks()
+    (remove-hook 'before-save-hook #'lsp-format-buffer t)
+    (remove-hook 'before-save-hook #'lsp-organize-imports t)
+    (add-hook 'before-save-hook #'kage-gofmt-before-save t t))
+
+  :config
+  (add-hook 'kage-mode-hook #'tvd-kage-install-hooks)
+  (setq lsp-warn-no-matched-clients nil))
 
 (provide 'init-go)
 ;;; init-go.el ends here

lisp/init-smarter-than-emacs.el

@@ -133,31 +133,32 @@ a remote file  anytime and from everywhere I am  by just entering :"
 
 
 
-(use-package embark
-  :ensure t
+(when nil
+  (use-package embark
+           :ensure t
 
-  :bind
-  (("C-." . embark-act)         ;; pick some comfortable binding
-   ("C-," . embark-dwim))        ;; good alternative: M-.
+           :bind
+           (("C-." . embark-act)         ;; pick some comfortable binding
+            ("C-," . embark-dwim))        ;; good alternative: M-.
 
 
-  :init
+           :init
 
-  ;; Optionally replace the key help with a completing-read interface
-  (setq prefix-help-command #'embark-prefix-help-command)
+           ;; Optionally replace the key help with a completing-read interface
+           (setq prefix-help-command #'embark-prefix-help-command)
 
-  ;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc
-  ;; strategy, if you want to see the documentation from multiple providers.
-  (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
-  ;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
+           ;; Show the Embark target at point via Eldoc.  You may adjust the Eldoc
+           ;; strategy, if you want to see the documentation from multiple providers.
+           (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
+           ;; (setq eldoc-documentation-strategy #'eldoc-documentation-compose-eagerly)
 
-  :config
+           :config
 
-  ;; Hide the mode line of the Embark live/completions buffers
-  (add-to-list 'display-buffer-alist
-               '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
-                 nil
-                 (window-parameters (mode-line-format . none)))))
+           ;; Hide the mode line of the Embark live/completions buffers
+           (add-to-list 'display-buffer-alist
+                        '("\\`\\*Embark Collect \\(Live\\|Completions\\)\\*"
+                          nil
+                          (window-parameters (mode-line-format . none))))))
 
 
 (use-package consult
@@ -209,9 +210,10 @@ a remote file  anytime and from everywhere I am  by just entering :"
 
 
 
-(use-package
-  embark-consult
-  :after (embark consult))
+(when nil
+  (use-package
+    embark-consult
+    :after (embark consult)))