master
Jonas Bernoulli 6 years ago
parent 91f961d5d5
commit 49bef08465
  1. 2
      doc/Changelog.org
  2. 6
      hydra-test.el
  3. 10
      hydra.el
  4. 2
      lv.el

@ -4,7 +4,7 @@
*** defhydra
**** New :base-map option in body plist
In case your hydra conficts with el:hydra-base-map, you can now override it.
In case your hydra conflicts with el:hydra-base-map, you can now override it.
Example:
#+begin_src elisp

@ -1549,7 +1549,7 @@ y: back | b: up
;; checked:
;; basic rendering
;; column compatibility with ruby style and no colum specified
;; column compatibility with ruby style and no column specified
;; column declared several time
;; nil column
(ert-deftest hydra-column-basic ()
@ -1632,7 +1632,7 @@ o: ok | s: string
("s" split-window-below "split window" :color blue :column "Split Management")
("v" split-window-right "split window vertically" :color blue)
("d" delete-window "delete current window")
("f" follow-mode "toogle follow mode")
("f" follow-mode "toggle follow mode")
("u" winner-undo "undo window conf" :column "Undo/Redo")
("r" winner-redo "redo window conf")
("b" balance-windows "balance window height" :column "1-Sizing")
@ -1645,7 +1645,7 @@ o: ok | s: string
z: ace | s: split window | u: undo window conf | b: balance window height
h: window | v: split window vertically | r: redo window conf | m: maximize current window
j: window | d: delete current window | | M: minimize current window
l: window | f: toogle follow mode | |
l: window | f: toggle follow mode | |
k: window | | |
[q]: quit menu."
173 174 (face hydra-face-blue)

@ -33,7 +33,7 @@
;; heads can be called in succession with only a short extension.
;; The Hydra is vanquished once Hercules, any binding that isn't the
;; Hydra's head, arrives. Note that Hercules, besides vanquishing the
;; Hydra, will still serve his orignal purpose, calling his proper
;; Hydra, will still serve his original purpose, calling his proper
;; command. This makes the Hydra very seamless, it's like a minor
;; mode that disables itself automagically.
;;
@ -327,7 +327,7 @@ Exitable only through a blue head.")
"Navigate to hydras with `find-function-search-for-symbol'."
(prog1 ad-do-it
(when (symbolp symbol)
;; The orignial function returns (cons (current-buffer) (point))
;; The original function returns (cons (current-buffer) (point))
;; if it found the point.
(unless (cdr ad-return-value)
(with-current-buffer (find-file-noselect library)
@ -1072,7 +1072,7 @@ If CELL-FORMATS is nil, `hydra-cell-format' is used for all columns."
(mapconcat #'identity x " "))))
(defun hydra-reset-radios (names)
"Set varibles NAMES to their defaults.
"Set variables NAMES to their defaults.
NAMES should be defined by `defhydradio' or similar."
(dolist (n names)
(set n (aref (get n 'range) 0))))
@ -1123,7 +1123,7 @@ Each head of NORMALIZED-HEADS must have a column property."
finally return balanced-heads-groups))
(defun hydra--generate-matrix (heads-groups)
"Return a copy of HEADS-GROUPS decorated with table formating information.
"Return a copy of HEADS-GROUPS decorated with table formatting information.
Details of modification:
2 virtual heads acting as table header were added to each heads-group.
Each head is decorated with 2 new properties max-doc-len and max-key-len
@ -1174,7 +1174,7 @@ representing the maximum dimension of their owning group.
(defun hydra--hint-from-matrix (body heads-matrix)
"Generate a formated table-style docstring according to BODY and HEADS-MATRIX.
"Generate a formatted table-style docstring according to BODY and HEADS-MATRIX.
HEADS-MATRIX is expected to be a list of heads with following features:
Each heads must have the same length
Each head must have a property max-key-len and max-doc-len."

@ -44,7 +44,7 @@
:type 'boolean)
(defcustom lv-use-padding nil
"Wheter to use horizontal padding in the LV window."
"Whether to use horizontal padding in the LV window."
:group 'lv
:type 'boolean)

Loading…
Cancel
Save