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

move some code and update comments

Browse source
This commit is contained in:
deb0ch 2016-11-29 16:12:56 +01:00
parent 99e2c92f96
commit 9db55dc5ea
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
window-numbering.el
View file

@ -27,8 +27,8 @@
;; ;;
;;; Commentary: ;;; Commentary:
;; ;;
;; This project is an extended and actively maintained version of ;; An extended and actively maintained version of the window-numbering package
;; window-numbering.el ;; written by Nikolaj Schumacher
;; ;;
;; Bla bla bla disclaimer, links & credits to original project, ace-window ;; Bla bla bla disclaimer, links & credits to original project, ace-window
;; etc... ;; etc...
@ -41,6 +41,23 @@
"Navigate and manage windows using numbers." "Navigate and manage windows using numbers."
:group 'convenience) :group 'convenience)
;; 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-scope 'global
"The scope of number sets."
:group 'window-numbering
:type '(choice
(const :tag "frame local" frame-local)
(const :tag "visible frames" visible)
(const :tag "global" global)))
(defcustom window-numbering-reverse-frame-list nil
"If t, order frames by reverse order of creation.
Has effect only when `window-numbering-scope' is not 'frame-local."
:group 'window-numbering
:type 'boolean)
(defcustom window-numbering-auto-assign-0-to-minibuffer t (defcustom window-numbering-auto-assign-0-to-minibuffer t
"If non-nil, `window-numbering-mode' assigns 0 to the minibuffer if active." "If non-nil, `window-numbering-mode' assigns 0 to the minibuffer if active."
:group 'window-numbering :group 'window-numbering
@ -67,23 +84,6 @@ return a number to have it assigned to the current-window, nil otherwise."
:group 'window-numbering :group 'window-numbering
:type 'integer) :type 'integer)
;; 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-scope 'global
"The scope of number sets."
:group 'window-numbering
:type '(choice
(const :tag "frame local" frame-local)
(const :tag "visible frames" visible)
(const :tag "global" global)))
(defcustom window-numbering-reverse-frame-list nil
"If t, order frames by reverse order of creation.
Has effect only when `window-numbering-scope' is not 'frame-local."
:group 'window-numbering
:type 'boolean)
(defface window-numbering-face '() (defface window-numbering-face '()
"Face used for the number in the mode-line." "Face used for the number in the mode-line."
:group 'window-numbering) :group 'window-numbering)
@ -106,7 +106,7 @@ Has effect only when `window-numbering-scope' is not 'frame-local."
(define-minor-mode window-numbering-mode (define-minor-mode window-numbering-mode
"A minor mode that allows for managing windows based on window numbers." "A minor mode that allows for managing windows based on window numbers."
nil ; initial value of the mode variable nil ; initial value of the mode variable
nil ; lighter (name in mode-line) nil ; lighter (appearance in mode-line)
window-numbering-keymap ; keymap window-numbering-keymap ; keymap
:global t :global t
(if window-numbering-mode (if window-numbering-mode