䷒ Approach
Thus become inexhaustible in your instruction and unflagging in your nourishing support of people.
This commit is contained in:
parent
8c1d7f9bbf
commit
706052ba19
1 changed files with 14 additions and 4 deletions
18
i-ching.el
18
i-ching.el
|
@ -631,13 +631,23 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
|
|||
;;;###autoload
|
||||
(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 ((hexagram (if number
|
||||
number
|
||||
(i-ching-random 64))))
|
||||
(insert (i-ching-hexagram-and-name-string hexagram))))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
(defun i-ching-hexagram-and-name-string (&optional number)
|
||||
"Return a hexagram either by casting or it's NUMBER in the King Wen sequence."
|
||||
(interactive)
|
||||
(let ((hexagram (if number
|
||||
number
|
||||
(i-ching-random 64))))
|
||||
(insert (format "%s %s"
|
||||
(i-ching-number-to-hexagram hexagram)
|
||||
(i-ching-number-to-name hexagram)))))
|
||||
(format "%s %s"
|
||||
(i-ching-number-to-hexagram hexagram)
|
||||
(i-ching-number-to-name hexagram))))
|
||||
|
||||
|
||||
;;;; ; ; ;;;;; ; ; ;
|
||||
|
@ -704,7 +714,7 @@ Provided by Randomness and Integrity Services Ltd. via https://www.random.org/"
|
|||
;; (0 1) is yin changing to yang
|
||||
;; (1 1) is yang
|
||||
;; (0 0) is yin
|
||||
;; (1 0) is yang changing to yinn
|
||||
;; (1 0) is yang changing to yin
|
||||
;;
|
||||
;;;;;;; ; ; ;
|
||||
|
||||
|
|
Loading…
Reference in a new issue