From 12c7a6c078f01bfb33f1f4285a3b558b32ed860f Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Sun, 25 Jul 2021 10:55:58 +0200
Subject: [PATCH] Move some code out of init into placement

It makes more sense to delegate to `placement.lisp' the creation of
workspaces since it is also this file that sets my preferences in
terms of workspaces per window.
---
 init.lisp      | 14 +++-----------
 placement.lisp | 10 ++++++++++
 2 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/init.lisp b/init.lisp
index 224dd99..5c1767d 100644
--- a/init.lisp
+++ b/init.lisp
@@ -33,15 +33,10 @@
 
 (run-shell-command "autostart")
 
-;;; workspaces
-(when *initializing*
-  (grename "term")
-  (gnewbg  "emacs")
-  (gnewbg  "browser")
-  (gnewbg  "files")
-  (gnewbg  "discord")
-  (gnewbg  "private"))
+;;; load window placement rules
+(load "~/.stumpwm.d/placement.lisp")
 
+;;; load keybindings
 (load "~/.stumpwm.d/keybindings.lisp")
 
 ;;; load ttf
@@ -96,9 +91,6 @@
 (load-module "swm-ssh")
 (setq swm-ssh:*swm-ssh-default-term* "kitty")
 
-;;; load window placement rules
-(load "~/.stumpwm.d/placement.lisp")
-
 ;;; alert module
 (load-module "alert-me")
 
diff --git a/placement.lisp b/placement.lisp
index 5587288..7367006 100644
--- a/placement.lisp
+++ b/placement.lisp
@@ -1,3 +1,13 @@
+;;; workspaces
+(when *initializing*
+  (grename "term")
+  (gnewbg  "emacs")
+  (gnewbg  "browser")
+  (gnewbg  "files")
+  (gnewbg  "discord")
+  (gnewbg  "media")
+  (gnewbg  "private"))
+
 (clear-window-placement-rules)
 
 (define-frame-preference "browser"