From ecb174b17a28caf7f5d570ee461c73902f61e309 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Tue, 22 Mar 2022 08:02:38 -0700 Subject: work: manage work related functions --- emacs/lisp/my-work.el | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 emacs/lisp/my-work.el (limited to 'emacs/lisp') 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 -- cgit 1.4.1