zzkt/i-ching
1
0
Fork 0
Code Issues 3 Pull requests Activity Actions

䷴ Development

Browse source 
On the mountain, a tree
This commit is contained in:
nik gaffney 2021-01-09 14:03:04 +01:00
parent c7e681f013
commit 0f492e3823
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
i-ching.el
View file

@ -507,12 +507,12 @@ c.f. ‘The Superior man’ (Legge, Wilhem), ‘Noble young one’ (Hatcher), 't
(nth 1 (alist-get number hexagrams)))) (nth 1 (alist-get number hexagrams))))
(defun i-ching-number-to-judgment (number) (defun i-ching-number-to-judgment (number)
"Present an interpretation of Hexagram NUMBER." "Present an interpretation (judgment) of Hexagram NUMBER."
(let ((hexagrams i-ching-hexagram-summary)) (let ((hexagrams i-ching-hexagram-summary))
(nth 2 (alist-get number hexagrams)))) (nth 2 (alist-get number hexagrams))))
(defun i-ching-number-to-image (number) (defun i-ching-number-to-image (number)
"Present an interpretation of Hexagram NUMBER." "Present an interpretation (image) of Hexagram NUMBER."
(let ((hexagrams i-ching-hexagram-summary)) (let ((hexagrams i-ching-hexagram-summary))
(nth 3 (alist-get number hexagrams)))) (nth 3 (alist-get number hexagrams))))
@ -521,6 +521,11 @@ c.f. ‘The Superior man’ (Legge, Wilhem), ‘Noble young one’ (Hatcher), 't
(let ((hexagrams i-ching-hexagram-summary)) (let ((hexagrams i-ching-hexagram-summary))
(nth 4 (alist-get number hexagrams)))) (nth 4 (alist-get number hexagrams))))
(defun i-ching-number-to-name (number)
"The name of Hexagram NUMBER based on it's unicode name."
(let* ((hexagrams i-ching-hexagram-summary)
(unicode-name (nth 4 (alist-get number hexagrams))))
(capitalize (seq-drop unicode-name 13))))
(defun i-ching-describe-hexagram (point mark) (defun i-ching-describe-hexagram (point mark)
"Show the name of a HEXAGRAM (between POINT and MARK) based on it's unicode name." "Show the name of a HEXAGRAM (between POINT and MARK) based on it's unicode name."
@ -558,6 +563,7 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
;; the casting method should return a hexagram (or changing hexagram) ;; the casting method should return a hexagram (or changing hexagram)
('3-coins #'i-ching--three-coins) ('3-coins #'i-ching--three-coins)
('yarrow-stalks #'i-ching--yarrow-stalks) ('yarrow-stalks #'i-ching--yarrow-stalks)
('6-bit #'i-ching--random-number)
('4-coins (message "unimplemented")) ('4-coins (message "unimplemented"))
('bagua (message "unimplemented")) ('bagua (message "unimplemented"))
('cheezburger (message "LOL")) ('cheezburger (message "LOL"))