Allow to choose the number of columns for pokemacs-restore-session

custom.el

@@ -42,6 +42,7 @@
  '(magit-diff-refine-hunk 'all)
  '(org-export-backends '(ascii html icalendar latex md odt pandoc))
  '(package-selected-packages nil)
+ '(pokemacs-columns 3)
  '(pokemacs-dict "en-GB")
  '(pokemacs-mono-font "Fira Code" t)
  '(pokemacs-repeat-timeout 0.5)

init.el

@@ -193,6 +193,17 @@
   :group 'pokemacs
   :tag "Appearance")
 
+(defcustom pokemacs-columns 3
+  "Number of columns for pokemacs-restore-session
+The n-1 first columns are unlocked vertical columns
+The last one is split in three locked horizontal windows:
+- magit
+- compilation
+- lsp"
+  :group 'pokemacs-appearance
+  :type 'int
+  :tag " Layout")
+
 (defcustom pokemacs-mono-font "Fira Code"
   "Mono font."
   :group 'pokemacs-appearance

init.org

@@ -497,6 +497,17 @@ This is a list of custom variables that allow to enable/disable features. If you
     :group 'pokemacs
     :tag "Appearance")
 
+  (defcustom pokemacs-columns 3
+    "Number of columns for pokemacs-restore-session
+  The n-1 first columns are unlocked vertical columns
+  The last one is split in three locked horizontal windows:
+  - magit
+  - compilation
+  - lsp"
+    :group 'pokemacs-appearance
+    :type 'int
+    :tag " Layout")
+
   (defcustom pokemacs-mono-font "Fira Code"
     "Mono font."
     :group 'pokemacs-appearance

lisp/pokemacs-functions.el

@@ -144,6 +144,10 @@ DOCSTRING and BODY are as in `defun'.
   (interactive)
   (visual-fill-column-mode -1)
   (setq middle-window (split-window-right))
+  (dotimes (_ (- pokemacs-columns 3))
+    (select-window middle-window)
+    (setq middle-window (split-window-right))
+    (balance-windows))
   (select-window middle-window)
   ;; Third window, start with magit
   (setq magit-window (split-window-right))