(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)))
+
+;; https://www.emacswiki.org/emacs/TransparentEmacs
+(defun sd/transparency (value)
+ "Sets the transparency of the frame window with a value from 0 to 100."
+ (interactive "nTransparency Value 0 - 100 opague:(default 80) ")
+ (set-frame-parameter (select-frame) 'alpha value))
+
+(defun sd/toggle-transparency ()
+ "Enable or disable transparency"
+ (interactive)
+ (let ((alpha (frame-parameter nil 'alpha)))
+ (set-frame-parameter nil 'alpha
+ (if (eql alpha 80)
+ 100
+ 80))))