alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix up comments

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-04-25 22:00:12 +02:00
parent 44710e3ff9
commit 5214b824d9
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
eyebrowse.el
View File

@ -38,7 +38,8 @@
(require 'dash) (require 'dash)
;; --- variables -------------------------------------------------------------
;; variables
(defgroup eyebrowse nil (defgroup eyebrowse nil
"A window configuration switcher modeled after the ranger file "A window configuration switcher modeled after the ranger file
@ -155,7 +156,8 @@ If t, switching to the same window config as
map) map)
"Initial key map for `eyebrowse-mode'.") "Initial key map for `eyebrowse-mode'.")
;; --- internal functions ----------------------------------------------------
;; internal functions
(defun eyebrowse-get (type &optional frame) (defun eyebrowse-get (type &optional frame)
"Retrieve frame-specific value of TYPE. "Retrieve frame-specific value of TYPE.
@ -197,17 +199,17 @@ The old element is identified by the first element of NEW-ELEMENT."
(--replace-where (= (car it) (car new-element)) (--replace-where (= (car it) (car new-element))
new-element (eyebrowse-get 'window-configs)))) new-element (eyebrowse-get 'window-configs))))
;; window-configs are at the moment a list of a list containing the ;; NOTE: window configurations are at the moment a list of a list
;; numerical slot, window configuration and point. To add "tagging", ;; containing the numerical slot, window configuration and point. To
;; it would be useful to save a tag as fourth component and display it ;; add "tagging", it would be useful to save a tag as fourth component
;; if present, not only in the mode line, but when renaming and ;; and display it if present, not only in the mode line, but when
;; selecting a window configuration interactively, too. This ;; renaming and selecting a window configuration interactively, too.
;; obviously requires an interactive window switching command. ;; This obviously requires an interactive window switching command.
;; The display of the tag should be configurable via format string and ;; NOTE: The display of the tag should be configurable via format
;; that format string be able to resemble vim tabs, i3 workspaces, ;; string and that format string be able to resemble vim tabs, i3
;; tmux sessions, etc. Therefore it has to contain format codes for ;; workspaces, tmux sessions, etc. Therefore it has to contain format
;; slot, tag and buffer name. ;; codes for slot, tag and buffer name.
(defun eyebrowse-save-window-config (slot) (defun eyebrowse-save-window-config (slot)
"Save the current window config to SLOT." "Save the current window config to SLOT."
@ -269,7 +271,8 @@ The old element is identified by the first element of NEW-ELEMENT."
(unless (and (= slot 0) (not (string= selection "0"))) (unless (and (= slot 0) (not (string= selection "0")))
slot))) slot)))
;; --- public functions ------------------------------------------------------
;; public functions
(defun eyebrowse-init (&optional frame) (defun eyebrowse-init (&optional frame)
"Initialize Eyebrowse for the current frame." "Initialize Eyebrowse for the current frame."
@ -448,9 +451,6 @@ 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 ;; for some reason it's necessary to init both after emacs