work: manage work related functions

1 files changed, 10 insertions, 0 deletions

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