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

@@ -33,15 +33,10 @@
 
 (run-shell-command "autostart")
 
-;;; workspaces
+;;; load window placement rules
-(when *initializing*
+(load "~/.stumpwm.d/placement.lisp")
-  (grename "term")
-  (gnewbg  "emacs")
-  (gnewbg  "browser")
-  (gnewbg  "files")
-  (gnewbg  "discord")
-  (gnewbg  "private"))
 
+;;; 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")
 

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"