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

䷁ The Receptive Earth

Browse source 
Quiet perseverance brings good fortune.
This commit is contained in:
nik gaffney 2021-01-19 15:03:14 +01:00
parent c1391edcda
commit 729131ee04
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
i-ching.el
View file

@ -632,10 +632,12 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
(defun i-ching-insert-hexagram-and-name (&optional number) (defun i-ching-insert-hexagram-and-name (&optional number)
"Insert a hexagram either by casting or it's NUMBER in the King Wen sequence." "Insert a hexagram either by casting or it's NUMBER in the King Wen sequence."
(interactive) (interactive)
(let ((hxn (i-ching-random 64))) (let ((hexagram (if number
number
(i-ching-random 64))))
(insert (format "%s %s" (insert (format "%s %s"
(i-ching-number-to-hexagram hxn) (i-ching-number-to-hexagram hexagram)
(i-ching-number-to-name hxn))))) (i-ching-number-to-name hexagram)))))
;;;; ; ; ;;;;; ; ; ; ;;;; ; ; ;;;;; ; ; ;