diff options
author | Jesús <heckyel@hyperbola.info> | 2019-05-14 16:37:31 -0500 |
---|---|---|
committer | Jesús <heckyel@hyperbola.info> | 2019-05-14 16:37:31 -0500 |
commit | e60a671ef6babdde580cec41dab6263efedb5764 (patch) | |
tree | dafeeadd50ebe4d08a0f1c5a31ac93e7d35ebfe3 /modules/init-utils.el | |
parent | c043be9622008bc454c0e1259703705324949826 (diff) | |
download | emacs-personal-e60a671ef6babdde580cec41dab6263efedb5764.tar.lz emacs-personal-e60a671ef6babdde580cec41dab6263efedb5764.tar.xz emacs-personal-e60a671ef6babdde580cec41dab6263efedb5764.zip |
refactoring code
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) |