aboutsummaryrefslogtreecommitdiffstats
path: root/modules/init-utils.el
diff options
context:
space:
mode:
authorJesús <heckyel@hyperbola.info>2019-05-14 16:37:31 -0500
committerJesús <heckyel@hyperbola.info>2019-05-14 16:37:31 -0500
commite60a671ef6babdde580cec41dab6263efedb5764 (patch)
treedafeeadd50ebe4d08a0f1c5a31ac93e7d35ebfe3 /modules/init-utils.el
parentc043be9622008bc454c0e1259703705324949826 (diff)
downloademacs-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.el45
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)