diff options
Diffstat (limited to 'modules/init-utils.el')
-rw-r--r-- | modules/init-utils.el | 45 |
1 files changed, 43 insertions, 2 deletions
diff --git a/modules/init-utils.el b/modules/init-utils.el index c549250..45f582f 100644 --- a/modules/init-utils.el +++ b/modules/init-utils.el @@ -12,8 +12,49 @@ read the .el files" )) (mapc load-it (directory-files dir nil "\\.el$")))) -;; Load lib functions -(load-directory (concat user-emacs-directory "/modules/lib/")) +;;------------------------------------------------------------------------------ +;; Sachachua +;;------------------------------------------------------------------------------ +;; 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)))) +;;------------------------------------------------------------------------------ ;; This is borrowed from https://github.com/purcell/emacs.d/blob/master/lisp/init-utils.el by Steve Purcell but I have added some stuff. (if (fboundp 'with-eval-after-load) |