toki/emacs-winum
1
0
Fork 0
Code Issues Pull requests Activity

unfold select-window-* macro, new function select-window-0-or-10

Browse source
This commit is contained in:
deb0ch 2016-12-04 09:38:04 +01:00
parent 87aaccbc70
commit 2152fa48d3
2 changed files with 63 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
window-numbering.el
View file

@ -26,6 +26,7 @@
(require 'winum) (require 'winum)
(defalias 'select-window-0 'select-window-0-or-10)
(defalias 'window-numbering-get-number-string 'winum-get-number-string) (defalias 'window-numbering-get-number-string 'winum-get-number-string)
(defalias 'window-numbering-get-window-by-number 'winum-get-window-by-number) (defalias 'window-numbering-get-window-by-number 'winum-get-window-by-number)
(defalias 'window-numbering-get-number 'winum-get-number) (defalias 'window-numbering-get-number 'winum-get-number)

71
winum.el
View file

@ -122,18 +122,69 @@ return a number to have it assigned to the current-window, nil otherwise."
(winum--init) (winum--init)
(winum--deinit))) (winum--deinit)))
;; define interactive functions winum-select-window-[0..n] ;; TODO test select-window-0-or-10
(dotimes (i winum-window-number-max) (defun select-window-0-or-10 (&optional arg)
(eval `(defun ,(intern (format "select-window-%s" i)) (&optional arg) "Jump to window 0 if assigned or 10 if exists.
,(format "Jump to window %d.\nIf prefix ARG is given, delete the\ If prefix ARG is given, delete the window instead of selecting it."
window instead of selecting it." i)
(interactive "P") (interactive "P")
(let ((n (if arg (- ,i) ,i))) (let ((n (if (winum-get-number 0)
(select-window-by-number n))))) (if arg '- 0)
(if arg -10 10))))
(select-window-by-number n)))
;; TODO figure out a way of deleting window 0 (defun select-window-1 (&optional arg)
;; -> maybe the negative argument alone could delete window 0 instead of "Jump to window 1.
;; the current window ? If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -1 1)))
(defun select-window-2 (&optional arg)
"Jump to window 2.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -2 2)))
(defun select-window-3 (&optional arg)
"Jump to window 3.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -3 3)))
(defun select-window-4 (&optional arg)
"Jump to window 4.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -4 4)))
(defun select-window-5 (&optional arg)
"Jump to window 5.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -5 5)))
(defun select-window-6 (&optional arg)
"Jump to window 6.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -6 6)))
(defun select-window-7 (&optional arg)
"Jump to window 7.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -7 7)))
(defun select-window-8 (&optional arg)
"Jump to window 8.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -8 8)))
(defun select-window-9 (&optional arg)
"Jump to window 9.
If prefix ARG is given, delete the window instead of selecting it."
(interactive "P")
(select-window-by-number (if arg -9 9)))
;; TODO test negative argument should delete window 0 ;; TODO test negative argument should delete window 0
(defun select-window-by-number (&optional arg) (defun select-window-by-number (&optional arg)