Add atwork variable

init.el

@@ -23,6 +23,11 @@
   (string-equal system-type "darwin")
   )
 
+(defun atwork ()
+  "Return true if at work"
+  (string-equal user-login-name "3055822")
+  )
+
 ;; it's not 1986
 
 (prefer-coding-system 'utf-8)
@@ -298,7 +303,7 @@
           cfw:display-calendar-holidays nil
           calendar-week-start-day 1))
 
-(when (islin)
+(unless (atwork)
   (defun org-journal-file-header-func (time)
     (concat "<" (format-time-string "%Y-%m-%d %a") ">\n\n"))
   (use-package org-journal
@@ -334,12 +339,14 @@
 
 (setq calendar-week-start-day 1)
 (setq org-agenda-start-on-weekday nil)
-(when (islin)
+(unless (atwork)
   (setq org-agenda-files (list "~/Documents/drive/org/calendar"
 			       "~/Documents/drive/org/period.org"
 			       "~/Documents/drive/org/habit.org")))
-(when (iswin)
-  (setq org-agenda-files '("~/Documents/drive/org/calendar")))
+(when (atwork)
+  (setq org-agenda-files (list "~/Documents/drive/org/calendar"
+			       "~/Documents/drive/org/period.org"
+			       "~/Documents/drive/org/acwri.org")))
 (setq org-agenda-prefix-format
       '((todo . "%-2c %b")
 	(tags . "%-2c %b")
@@ -472,16 +479,7 @@
 
 (setq initial-major-mode 'org-mode)
 
-(unless (iswin)
-(setq initial-scratch-message "\
-# ｏｔｔａ  ｎｅｉ  ｇｅｎ  ｅｍａｃｓ
-
-"))
-
-(when (iswin)
-(setq initial-scratch-message "\
-# obma emacs war microsoft beistry
-
-"))
+(setq initial-scratch-message
+      (concat "# emacs " (number-to-string emacs-major-version) " on " (symbol-name system-type) "\n\n"))
 
 (org-reload)