commit f9f58f5b3b5c0a8f2cb1b69c0ebf905c89411ed0
from: benni <benni@openbased-t480.my.domain>
date: Sat Dec 23 01:01:51 2023 UTC

Add workspaces

Signed-off-by: benni <benni@openbased-t480.my.domain>

commit - 207936f2fb996ed18eb7a8bcac3e8a471ec11b38
commit + f9f58f5b3b5c0a8f2cb1b69c0ebf905c89411ed0
blob - 42cfbd7fa9d25fb8f2c5886582e76085d4c4c0d8
blob + 66054be50adc243791e52afc04c9e8806135a822
--- config.org
+++ config.org
@@ -7,8 +7,9 @@
 #+begin_src emacs-lisp
   (set-face-attribute 'default nil :height 64)
   (add-to-list 'bdf-directory-list (expand-file-name "~/.local/share/fonts"))
-  ;(add-to-list 'bdf-directory-list "a")
+                                          ;(add-to-list 'bdf-directory-list "a")
 
+  (setq max-lisp-eval-depth 2000)
   ;;(defalias 'yes-or-no-p 'y-or-no-p)
 #+end_src
 
@@ -273,7 +274,21 @@
     :config
     (setq vterm-max-scrollback 10000))
 #+end_src
+
+** Perspective
+#+begin_src emacs-lisp
+    (use-package perspective
+      :custom
+      (persp-mode-prefix-key (kbd "C-c TAB"))
+      :init
+      (persp-mode))
 
+  (use-package treemacs-perspective
+    :after (treemacs perspective)
+    :config
+    (treemacs-set-scope-type 'Perspectives))
+
+#+end_src
 ** General
 #+begin_src emacs-lisp
   (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
@@ -285,7 +300,9 @@
      :keymaps '(normal insert visual emacs)
      :prefix "SPC"
      :global-prefix "C-SPC"))
-
+#+end_src
+** Hydra
+#+begin_src emacs-lisp
   (use-package hydra
     :defer t)
 
@@ -294,7 +311,7 @@
    "V"	'(vterm-other-window :which-key "vterm-other-window")
    "b"	'(:ignore t :which-key "buffer")
    "bK"	'(kill-buffer :which-key "kill buffer")
-   "bb"	'(counsel-switch-buffer :which-key "switch buffer")
+   "bb"	'(persp-counsel-switch-buffer :which-key "switch buffer")
    "bk"	'(kill-current-buffer :which-key "kill current buffer")
    "c"	'(counsel-compile :which-key "compile")
    "g"	'(magit-status :which-key "magit")
@@ -305,7 +322,11 @@
    "tm"	'(treemacs :which-key "treemacs")
    "ts"	'(hydra-text-scale/body :which-key "scale text")
    "tt"	'(counsel-load-theme :which-key "choose theme")
-   "v"	'(vterm :which-key "vterm"))
+   "v"	'(vterm :which-key "vterm")
+   "w"	'(:ignore t :which-key "workspace")
+   "ww"	'(persp-switch :which-key "switch")
+   "wl"	'(persp-switch-last :which-key "switch last")
+   "wk"	'(persp-kill :which-key "kill"))
 
   (defhydra hydra-text-scale
     (:timeout 5)