emacs - move functions to utilities file

diff --git a/emacs.d/config.org b/emacs.d/config.org
index e62f388..e75f209 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -2950,20 +2950,7 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (winner-mode 1)
 
-  (defun sd/delete-current-window ()
-    (interactive)
-    (if (> (length (window-list)) 1)
-        (delete-window)
-      (message "Only one Windows now!")))
-
-  (defun sd/toggle-max-windows ()
-    "Set maximize current if there are multiple windows, if only
-  one window, window undo"
-    (interactive)
-    (if (equal  (length (window-list)) 1)
-        (winner-undo)
-      (delete-other-windows)))
-
+  (require 'utilities)
   (defhydra sd/hydra-window (:color red :columns nil)
     "C-o"
     ;; windows switch
@@ -3473,12 +3460,7 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d
 Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]]
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (defun sd/kill-region-or-backward-kill-word ()
-    (interactive)
-    (if (region-active-p)
-        (kill-region (point) (mark))
-      (backward-kill-word 1)))
-
+  (require 'utilities)
   (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word)
 #+END_SRC
 

diff --git a/emacs.d/elisp/utilities.el b/emacs.d/elisp/utilities.el
index 3f4fcd1..aeb5a5d 100644 (file)
--- a/emacs.d/elisp/utilities.el
+++ b/emacs.d/elisp/utilities.el
@@ -33,7 +33,28 @@
     (delete-region (point-min) (point))
     (goto-char (- (point-max) current-point))))
 
+(defun sd/delete-current-window ()
+  (interactive)
+  (if (> (length (window-list)) 1)
+      (delete-window)
+    (message "Only one Windows now!")))
+
+
+(defun sd/toggle-max-windows ()
+  "Set maximize current if there are multiple windows, if only
+one window, window undo"
+  (interactive)
+  (if (equal  (length (window-list)) 1)
+      (winner-undo)
+    (delete-other-windows)))
+
 
+(defun sd/kill-region-or-backward-kill-word ()
+  "Delete the region if it exists, otherwise kill a word backward."
+  (interactive)
+  (if (region-active-p)
+      (kill-region (point) (mark))
+    (backward-kill-word 1)))