From d2aa408869fe2d284ec276fff604d9ec8c4a3a38 Mon Sep 17 00:00:00 2001 From: Jesus E Date: Sat, 13 May 2023 00:49:58 -0400 Subject: refactoring and remove init-indent-guides --- lisp/lib/sachachua.el | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 lisp/lib/sachachua.el (limited to 'lisp/lib') diff --git a/lisp/lib/sachachua.el b/lisp/lib/sachachua.el deleted file mode 100644 index c862223..0000000 --- a/lisp/lib/sachachua.el +++ /dev/null @@ -1,39 +0,0 @@ -;; Increase-decrease functions from Sacha Chua -(defun sacha/increase-font-size () - (interactive) - (set-face-attribute 'default - nil - :height - (ceiling (* 1.10 - (face-attribute 'default :height))))) -(defun sacha/decrease-font-size () - (interactive) - (set-face-attribute 'default - nil - :height - (floor (* 0.9 - (face-attribute 'default :height))))) - -;; Not original from Sacha. Taken from: http://emacsredux.com/blog/2013/05/22/smarter-navigation-to-the-beginning-of-a-line/ -(defun sacha/smarter-move-beginning-of-line (arg) - "Move point back to indentation of beginning of line. - -Move point to the first non-whitespace character on this line. -If point is already there, move to the beginning of the line. -Effectively toggle between the first non-whitespace character and -the beginning of the line. - -If ARG is not nil or 1, move forward ARG - 1 lines first. If -point reaches the beginning or end of the buffer, stop there." - (interactive "^p") - (setq arg (or arg 1)) - - ;; Move lines first - (when (/= arg 1) - (let ((line-move-visual nil)) - (forward-line (1- arg)))) - - (let ((orig-point (point))) - (back-to-indentation) - (when (= orig-point (point)) - (move-beginning-of-line 1)))) -- cgit v1.2.3