summary refs log tree commit diff
path: root/emacs/lisp/my-work.el
blob: a9a4e39959cad50eaf8bd89c66708c6a269f7fc4 (plain) (blame)
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