X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Felisp%2Futilities.el;h=aeb5a5d6192b086bde01ec002fe29e8ffd08c386;hb=7fc41824b31627f49aec686245e5b74a5f22d5ec;hp=3f4fcd124d7d383de1f50a61aa1fbfa613116784;hpb=310400593dce89e8463f1f32b944220717d32d4f;p=dotfiles.git

diff --git a/emacs.d/elisp/utilities.el b/emacs.d/elisp/utilities.el
index 3f4fcd1..aeb5a5d 100644
--- 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)))