From 7b24ac448b65830a365aeb215ec93d16c9e756ca Mon Sep 17 00:00:00 2001
From: Marc Pohling <poh@PRIMEMEAT.DE>
Date: Tue, 3 Dec 2019 12:22:34 +0100
Subject: [PATCH] added function to identify machine

---
 init.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/init.org b/init.org
index a9a3449..a89432c 100644
--- a/init.org
+++ b/init.org
@@ -61,6 +61,16 @@
 #+END_SRC
 
 * Default settings
+#+BEGIN_SRC emacs-lisp
+  (defvar me/whoami
+    (if (string-equal system-name "PMTS01")
+	"work_remote"
+      (if (string-equal system-name "laptop")
+	  "home_laptop"
+	(if (string-equal system-name "PMPCNEU08")
+	    "work_local"
+	  "home_desktop"))))
+#+END_SRC
 
 #+BEGIN_SRC emacs-lisp
   (defvar MY--PATH_USER_LOCAL  (expand-file-name "~/.emacs.d/user-local/"))