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

update comments

Browse source
This commit is contained in:
deb0ch 2016-11-30 01:52:10 +01:00
parent 9db55dc5ea
commit ed2e4722a3
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
window-numbering.el
View file

@ -27,23 +27,25 @@
;;
;;; Commentary:
;;
;; An extended and actively maintained version of the window-numbering package
;; written by Nikolaj Schumacher
;; Window numbers for Emacs: Navigate your windows and frames using numbers.
;;
;; Bla bla bla disclaimer, links & credits to original project, ace-window
;; etc...
;; This package is an extended and actively maintained version of the
;; https://github.com/nschum/window-numbering.el package by Nikolaj Schumacher,
;; with some ideas and code taken from https://github.com/abo-abo/ace-window.
;;
;;; Code:
(eval-when-compile (require 'cl))
;; TODO rename to 'winum.el' and keep backward compatibility
(defgroup window-numbering nil
"Navigate and manage windows using numbers."
: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.
;; TODO bug: when changed from frame-local to non-local in customize, need to
;; force update or `window-numbering-get-number' fails and messes the
;; modeline until next update.
(defcustom window-numbering-scope 'global
"The scope of number sets."
:group 'window-numbering
@ -84,6 +86,7 @@ return a number to have it assigned to the current-window, nil otherwise."
:group 'window-numbering
:type 'integer)
(defface window-numbering-face '()
"Face used for the number in the mode-line."
:group 'window-numbering)
@ -105,9 +108,9 @@ return a number to have it assigned to the current-window, nil otherwise."
;;;###autoload
(define-minor-mode window-numbering-mode
"A minor mode that allows for managing windows based on window numbers."
nil ; initial value of the mode variable
nil ; lighter (appearance in mode-line)
window-numbering-keymap ; keymap
nil
nil
window-numbering-keymap
:global t
(if window-numbering-mode
(window-numbering--init)
@ -257,7 +260,6 @@ Such a structure allows for per-frame bidirectional fast access.")
'window-numbering--update)
(setq window-numbering--frames-table nil))
;; TODO bug: mode-line is sometimes not updated in all visible frames
(defun window-numbering--update ()
"Update window numbers."
(setq window-numbering--remaining (window-numbering--get-available-numbers))