emacs/lisp/my-work.el


1
2
3
4
5
6
7
8
9
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