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

TODOs and comments

Browse source
This commit is contained in:
deb0ch 2016-12-08 19:42:43 +01:00
parent a5e049ebc5
commit 9d887c538f
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
window-numbering.el
View file

@ -85,6 +85,9 @@ return a number to have it assigned to the current-window, nil otherwise."
(defconst window-numbering-mode-line-position 1 (defconst window-numbering-mode-line-position 1
"The position in the mode-line `window-numbering-mode' displays the number.") "The position in the mode-line `window-numbering-mode' displays the number.")
;; TODO when changed from frame-local to non-local in customize, need to force
;; update, or `window-numbering-get-number' fails and crashes the modeline
;; until next update.
(defcustom window-numbering-frame-scope 'global (defcustom window-numbering-frame-scope 'global
"The scope of number sets." "The scope of number sets."
:group 'window-numbering :group 'window-numbering
@ -141,7 +144,7 @@ If prefix ARG is given, delete the window instead of selecting it."
(delete-window w) (delete-window w)
(window-numbering-switch-to-window w)))) (window-numbering-switch-to-window w))))
;; define interactive functions for keymap ;; (defun window-numbering-select-window-[0-9] ())
(dotimes (i 10) (dotimes (i 10)
(eval `(defun ,(intern (format "select-window-%s" i)) (&optional arg) (eval `(defun ,(intern (format "select-window-%s" i)) (&optional arg)
,(format "Select the window with number %i." i) ,(format "Select the window with number %i." i)
@ -191,6 +194,7 @@ Returns the assigned number, or nil on error."
(let ((number (car window-numbering--left))) (let ((number (car window-numbering--left)))
(window-numbering-assign window number)))))) (window-numbering-assign window number))))))
;; TODO update mode-line in all frames
(defun window-numbering-update () (defun window-numbering-update ()
"Update window numbers." "Update window numbers."
(setq window-numbering--windows (make-vector 10 nil) (setq window-numbering--windows (make-vector 10 nil)
@ -348,6 +352,10 @@ POSITION: position in the mode-line."
(setq-default mode-line-format (nreverse res))) (setq-default mode-line-format (nreverse res)))
(force-mode-line-update t)) (force-mode-line-update t))
;; TODO select window of unlimited input number:
;; - prefix argument
;; - read-from-minibuffer
(provide 'window-numbering) (provide 'window-numbering)
;;; window-numbering.el ends here ;;; window-numbering.el ends here