added function to identify machine

5 years ago · 7b24ac448b
1 changed files with 10 additions and 0 deletions
--- 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/"))