diff options
author | JSDurand <mmemmew@gmail.com> | 2021-01-23 00:23:05 +0800 |
---|---|---|
committer | JSDurand <mmemmew@gmail.com> | 2021-01-24 00:49:45 +0800 |
commit | 2066e827155ae2893097360024ffd975166a44ef (patch) | |
tree | e15bb118a4a0e622575847c05ef1dcfae30e58ef /basic.el | |
parent | 588b6031e152b031be1dee04c7b38938ea7eb706 (diff) |
More custom functions and adjust for custom completion framework
* LICENSE: Add GPLv3.
* basic.el (durand-enlarge-window):
(durand-shrink-window):
(durand-enlarge-window-horizontally):
(durand-shrink-window-horizontally): Now I can easily maximize or
minimize windows.
* comb/orderless-conf.el ("orderless"): Now I try to use my own
completion framework.
* common.el (durand-embark-scroll-down-or-go-to-completions):
(durand-embark-scroll-up-or-go-to-completions):
(durand-completion-scroll-down-or-go-to-minibuffer):
(durand-completion-scroll-up-or-go-to-minibuffer): Move these
functions here since they do not belong to the completion framework in
my opinion.
(register):
(register-val-jump-to): Rewrite this method so that it does not have
to ask me if I want to open a file while jumping.
* completion-conf.el: My intended completion framework, which is still
work in progress.
* init.el ("comb/orderless-conf.el"):
("completion-conf.el"): Adjust things accordingly.
("durand-simple"): My custom functions for viewing and for opening
things.
* modeline.el (modeline-propertize):
(modeline-format-minor-modes):
(modeline-format-major-mode): Now the macro `modeline-propertize'
won't override properties that it does not intend to define. This has
the effect that the properties of the original constructs will go
through and have effect.
(modeline-format-main): Make sure the space has a positive length.
(modeline-format-buffer-name): Make sure the length does not exceed
half the width of the window.
Diffstat (limited to 'basic.el')
-rw-r--r-- | basic.el | 79 |
1 files changed, 78 insertions, 1 deletions
@@ -246,6 +246,80 @@ See `display-line-numbers' for details." ;;; Windows +;;;###autoload +(defun durand-enlarge-window (&optional delta horizontal) + "Make the seleted window DELTA lines taller. + +This is a thin wrapper around the default `enlarge-window'. + +If DELTA is nil, it defaults to 1. + +If HORIZONTAL is non-nil, this will make the seleted window DELTA +lines wider instead. + +If DELTA is negative, shrink instead of enlarge. + +Also, if DELTA is 0, then maximize the selected window." + (interactive "P") + (cond + ((eq delta 0) + (enlarge-window (cond + (horizontal (frame-width)) + ((frame-height))) + horizontal)) + ((enlarge-window (prefix-numeric-value delta) horizontal)))) + +;;;###autoload +(defun durand-shrink-window (&optional delta horizontal) + "Make the seleted window DELTA lines smaller. + +This is a thin wrapper around the default `shrink-window'. + +If DELTA is nil, it defaults to 1. + +If HORIZONTAL is non-nil, this will make the seleted window DELTA +lines smaller instead. + +If DELTA is negative, enlarge instead of shrink. + +Also, if DELTA is 0, then minimize the selected window." + (interactive "p") + (cond + ((eq delta 0) + (shrink-window (cond + (horizontal (frame-width)) + ((frame-height))) + horizontal)) + ((shrink-window (prefix-numeric-value delta) horizontal)))) + +;;;###autoload +(defun durand-enlarge-window-horizontally (&optional delta) + "Make selected window DELTA columns wider. + +This is a thin wrapper around the default `enlarge-window-horizontally'. + +DELTA defaults to 1. If DELTA is 0, then maximize the selected +window horizontally." + (interactive "p") + (cond + ((eq delta 0) + (enlarge-window-horizontally (frame-width))) + ((enlarge-window-horizontally (prefix-numeric-value delta))))) + +;;;###autoload +(defun durand-shrink-window-horizontally (&optional delta) + "Make selected window DELTA columns wider. + +This is a thin wrapper around the default `shrink-window-horizontally'. + +DELTA defaults to 1. If DELTA is 0, then maximize the selected +window horizontally." + (interactive "p") + (cond + ((eq delta 0) + (shrink-window-horizontally (frame-width))) + ((shrink-window-horizontally (prefix-numeric-value delta))))) + (define-key global-map (vector ?\s-o) #'other-window) (define-key global-map (vector ?\s-&) #'delete-other-windows) (define-key global-map (vector ?\s-é) #'split-window-below) @@ -253,7 +327,10 @@ See `display-line-numbers' for details." ;; otherwise it would be interpreted as a string quote. (define-key global-map (vector 8388642) #'split-window-right) (define-key global-map (vector ?\s-à) #'delete-window) -(define-key global-map (vector ?\C-+) #'enlarge-window) +(define-key global-map (vector ?\C-+) #'durand-enlarge-window) +(define-key global-map (vector ?\C-=) #'durand-shrink-window) +(define-key global-map (vector ?\C-x ?\{) #'durand-shrink-window-horizontally) +(define-key global-map (vector ?\C-x ?\}) #'durand-enlarge-window-horizontally) (define-key global-map (vector ?\s-f) #'find-file) (define-key global-map (vector ?\s-F) #'find-file-other-window) (define-key global-map (vector ?\s-d) #'dired) |