work: manage work related functions

3 files changed, 12 insertions, 5 deletions

diff --git a/emacs/custom/fcuny-defuns.el b/emacs/custom/fcuny-defuns.el
index 974d8c8..0c358ce 100644
--- a/emacs/custom/fcuny-defuns.el
+++ b/emacs/custom/fcuny-defuns.el
@@ -11,10 +11,6 @@
     (mark-whole-buffer)
     (copy-region-as-kill 1 (buffer-size))))
 
-(defun fcuny/check-work-machine-p ()
-  "Returns t if this is a work machine"
-  (string-match "HQ\\.*" (system-name)))
-
 ;; from https://karl-voit.at/2014/08/10/bookmarks-with-orgmode/
 (defun fcuny/string-replace (this withthat in)
   "replace THIS with WITHTHAT' in the string IN"
diff --git a/emacs/init.el b/emacs/init.el
index d22d942..f15ed96 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -40,7 +40,6 @@
 
 (require 'fcuny-settings)
 (require 'fcuny-ui)
-(require 'fcuny-defuns)
 (require 'fcuny-navigation)
 (require 'fcuny-edit)
 (require 'fcuny-text)
@@ -52,7 +51,9 @@
 (require 'fcuny-tramp)
 (require 'fcuny-notmuch)
 
+(require 'fcuny-defuns)
 (require 'fcuny-commands)
+(require 'my-work)
 
 ;; once we're done initializing the configuration, we start a shell
 ;; session with eshell.
diff --git a/emacs/lisp/my-work.el b/emacs/lisp/my-work.el
new file mode 100644
index 0000000..a9a4e39
--- /dev/null
+++ b/emacs/lisp/my-work.el
@@ -0,0 +1,10 @@
+;;; my-work.el --- Functions related to work
+;;; Commentary:
+;;; Code:
+
+(defun fcuny/check-work-machine-p ()
+  "Return t if this is a work machine."
+  (string-match "HQ\\.*" (system-name)))
+
+(provide 'my-work)
+;;; my-work.el ends here