From 2728472416bf842a8246d5a95bae3335e3d4efaf Mon Sep 17 00:00:00 2001
From: Marc Pohling <marc.pohling@googlemail.com>
Date: Mon, 7 May 2018 08:30:09 +0200
Subject: [PATCH] default fullscreen at work

---
 config.org | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/config.org b/config.org
index 99e7e46..7f410ec 100644
--- a/config.org
+++ b/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