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

䷒ Approach

Browse source 
Thus become inexhaustible in your instruction and unflagging in your nourishing support of people.
This commit is contained in:
nik gaffney 2021-02-08 13:51:52 +01:00
parent 8c1d7f9bbf
commit 706052ba19
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
i-ching.el
View file

@ -631,13 +631,23 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
;;;###autoload ;;;###autoload
(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)
(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) (interactive)
(let ((hexagram (if number (let ((hexagram (if number
number number
(i-ching-random 64)))) (i-ching-random 64))))
(insert (format "%s %s" (format "%s %s"
(i-ching-number-to-hexagram hexagram) (i-ching-number-to-hexagram hexagram)
(i-ching-number-to-name 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 ;; (0 1) is yin changing to yang
;; (1 1) is yang ;; (1 1) is yang
;; (0 0) is yin ;; (0 0) is yin
;; (1 0) is yang changing to yinn ;; (1 0) is yang changing to yin
;; ;;
;;;;;;; ; ; ; ;;;;;;; ; ; ;