default fullscreen at work

config.org

@@ -99,17 +99,17 @@
   ;; pm should be fullscreen, too
   
 #+BEGIN_SRC emacs-lisp
-  (if (display-graphic-p)
-      (progn
-        (setq initial-frame-alist
-              '(
-                (width . 165)
-                (height . 70)))
-        (setq default-frame-alist
-              '(
-                (width . 165)
-                (height . 70))))
-    )   
+(if (display-graphic-p)
+    (pcase my/whoami
+      ("home" (progn
+                       (setq initial-frame-alist
+                             '((width . 165)
+                               (height . 70)))
+                       (setq default-frame-alist
+                             '((width . 165)
+                               (height . 70)))))
+      ("work_remote" (add-to-list 'initial-frame-alist '(fullscreen . maximized)))
+      ("work_hyperv" (add-to-list 'initial-frame-alist '(fullscreen . maximized)))))
 #+END_SRC
   
 * Visuals