From ecb174b17a28caf7f5d570ee461c73902f61e309 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Tue, 22 Mar 2022 08:02:38 -0700
Subject: work: manage work related functions

---
 emacs/custom/fcuny-defuns.el |  4 ----
 emacs/init.el                |  3 ++-
 emacs/lisp/my-work.el        | 10 ++++++++++
 3 files changed, 12 insertions(+), 5 deletions(-)
 create mode 100644 emacs/lisp/my-work.el

(limited to 'emacs')

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
-- 
cgit 1.4.1