summary refs log tree commit diff
path: root/emacs
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2022-03-22 08:02:38 -0700
committerFranck Cuny <franck@fcuny.net>2022-03-22 08:02:38 -0700
commitecb174b17a28caf7f5d570ee461c73902f61e309 (patch)
treed9183a14ee17a9ee10d1cc5fcce8bb5743cce00a /emacs
parentinit: load custom commands last (diff)
downloademacs.d-ecb174b17a28caf7f5d570ee461c73902f61e309.tar.gz
work: manage work related functions
Diffstat (limited to 'emacs')
-rw-r--r--emacs/custom/fcuny-defuns.el4
-rw-r--r--emacs/init.el3
-rw-r--r--emacs/lisp/my-work.el10
3 files changed, 12 insertions, 5 deletions
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