䷁ The Receptive Earth

Quiet perseverance brings good fortune.
2021-01-19 15:03:14 +01:00 · 2021-01-19 15:03:14 +01:00 · 729131ee04
parent c1391edcda
commit 729131ee04
1 changed files with 5 additions and 3 deletions
--- a/i-ching.el
+++ b/i-ching.el
@ -632,10 +632,12 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
 (defun i-ching-insert-hexagram-and-name (&optional number)
  "Insert a hexagram either by casting or it's NUMBER in the King Wen sequence."
  (interactive)
-  (let ((hxn (i-ching-random 64)))
+  (let ((hexagram (if number
+                      number
+                    (i-ching-random 64))))
    (insert (format "%s %s"
-                    (i-ching-number-to-hexagram hxn)
-                    (i-ching-number-to-name hxn)))))
+                    (i-ching-number-to-hexagram hexagram)
+                    (i-ching-number-to-name hexagram)))))


 ;;;; ;    ; ;;;;; ;  ;     ;