add gitswitch and git repo list to consult-buffer, do: g SPC

.gitignore

@@ -24,3 +24,8 @@ emms
 macros.el
 forge-database.sqlite
 forge-database*
+.cache
+cache
+*history*
+tree-sitter
+warnings

lisp/init-magit.el

@@ -161,5 +161,34 @@
 (use-package sqlite3
   :defer nil)
 
+;; git helpers
+(defun tvd-list-git-repos()
+  "Returns a list of all available git repositories in dev and fits/git"
+  (interactive)
+  (setq repos (list))
+  (let ((bases (list "~/dev" "~/fits/git")))
+    (dolist (base bases)
+      (dolist (dir (directory-files base nil "^[^\\.]"))
+        (if (and (file-accessible-directory-p (concat base "/" dir "/.git"))
+                 (not (s-suffix? "bak" dir) ))
+            (push dir repos)))))
+  repos)
+
+(defun tvd-switch-to-repo(repo)
+  "calls magit-status with <repo>, switches to and changes dir to it"
+  (interactive)
+  (let* ((devdir (concat "~/dev/" repo))
+         (fitsdir (concat "~/fits/git/" repo)))
+    (cond
+     ((file-accessible-directory-p (concat devdir "/.git"))
+      (magit-status devdir))
+     ((file-accessible-directory-p (concat fitsdir "/.git"))
+      (magit-status fitsdir)))))
+
+(defun gitswitch()
+  "select a git repo from a list and switch to it"
+  (interactive)
+  (tvd-switch-to-repo (completing-read "select git repo> " (tvd-list-git-repos))))
+
 (provide 'init-magit)
 ;;; init-magit.el ends here

lisp/init-smarter-than-emacs.el

@@ -212,7 +212,6 @@ targets."
   (consult-widen-key ">")
 
   :config
-
   (when (fboundp 'persp-new)
     (consult-customize consult--source-buffer :hidden t :default nil)
 
@@ -224,7 +223,21 @@ targets."
             :default  t
             :items    #'persp-get-buffer-names))
 
-    (push consult--source-perspective consult-buffer-sources)))
+    (push consult--source-perspective consult-buffer-sources))
+
+
+  (defvar git-source
+    (list :name     "Git Repo"
+          :category 'consult-location
+          :narrow   ?g
+          :face     'consult-buffer
+          :history  'buffer-name-history
+          :state    #'consult--buffer-state
+          :sort     t
+          :action   #'tvd-switch-to-repo
+          :items    #'tvd-list-git-repos))
+
+  (add-to-list 'consult-buffer-sources 'git-source 'append))
 
 ;; needs to be defined outside
 (defalias 'rg 'consult-ripgrep)
@@ -273,7 +286,7 @@ targets."
         ([backtab] . corfu-previous)))
 
 
-;; much better  experience to seach current  buffer consult-line would
+;; much better experience to  seach current buffer, consult-line would
 ;; do the job  as well and looks  similar, but I'm used  to swiper, so
 ;; stick with it.
 (use-package swiper

lisp/init-smartparens.el

@@ -146,7 +146,7 @@ _k_: kill (C-k)  _s_: split                   _{_: wrap with { }
 
     (define-key smartparens-mode-map (kbd "C-x (")         'hydra-smartparens/body))
 
-  :bind (:map smartparens-mode-map
+  :bind (;:map smartparens-mode-map
               ;; auto wrapping w/o region
               ( "C-c (" .  'wrap-with-parens)
               ( "C-c [" .  'wrap-with-brackets)