Annotate code

This commit is contained in:
Vasilij Schneidermann
2014-09-01 09:52:30 +02:00
parent c29fdcdecf
commit 5621c96d24

View File

@ -187,8 +187,9 @@ If FRAME is nil, use current frame. TYPE can be any of
"Insert ELEMENT in the list of window configs. "Insert ELEMENT in the list of window configs.
This function keeps the sortedness intact." This function keeps the sortedness intact."
(eyebrowse-set 'window-configs (eyebrowse-set 'window-configs
(--sort (< (car it) (car other)) ;; TODO there must be a better way to do this with `-insert-at'
(cons element (eyebrowse-get 'window-configs))))) (--sort (< (car it) (car other))
(cons element (eyebrowse-get 'window-configs)))))
(defun eyebrowse-update-window-config-element (old-element new-element) (defun eyebrowse-update-window-config-element (old-element new-element)
"Replace OLD-ELEMENT with NEW-ELEMENT in the window config list." "Replace OLD-ELEMENT with NEW-ELEMENT in the window config list."
@ -248,6 +249,10 @@ last window config."
'face 'eyebrowse-mode-line-delimiters)) 'face 'eyebrowse-mode-line-delimiters))
(separator (propertize eyebrowse-mode-line-separator (separator (propertize eyebrowse-mode-line-separator
'face 'eyebrowse-mode-line-separator)) 'face 'eyebrowse-mode-line-separator))
;; `current-slot' is used differently than usual, this time
;; in a propertize context
;; TODO make this less surprising
(current-slot (number-to-string (eyebrowse-get 'current-slot))) (current-slot (number-to-string (eyebrowse-get 'current-slot)))
(active-item (propertize current-slot (active-item (propertize current-slot
'face 'eyebrowse-mode-line-active)) 'face 'eyebrowse-mode-line-active))
@ -423,8 +428,14 @@ behaviour of `ranger`, a file manager."
:lighter eyebrowse-lighter :lighter eyebrowse-lighter
:keymap eyebrowse-mode-map :keymap eyebrowse-mode-map
:global t :global t
;; the `define-minor-mode' macro apparently sets the mode variable
;; first, then runs the associated code, therefore if
;; `eyebrowse-mode' is t, code related to initialization is run
(if eyebrowse-mode (if eyebrowse-mode
(progn (progn
;; for some reason it's necessary to init both after emacs
;; started and after frame creation to make it work for both
;; emacs and emacsclient
(eyebrowse-init) (eyebrowse-init)
(add-hook 'after-make-frame-functions 'eyebrowse-init) (add-hook 'after-make-frame-functions 'eyebrowse-init)
(add-to-list 'mode-line-misc-info (add-to-list 'mode-line-misc-info