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

䷼ Inner Truth

Browse source
This commit is contained in:
nik gaffney 2022-06-19 10:17:54 +02:00
parent 992f53ae2b
commit 54f19e2dcb
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
i-ching.el
View file

@ -570,6 +570,9 @@ Depending on the context and circumstance some methods may be more suitable.
see: `i-ching-divination-method' & `i-ching-randomness-source' for details." see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
(interactive) (interactive)
(let ((method-function (let ((method-function
(when (not method)
(let ((method i-ching-divination-method))
(message "casting hexagram using: %s" method)
(pcase method (pcase method
;; 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)
@ -579,7 +582,7 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
('bagua (message "unimplemented")) ('bagua (message "unimplemented"))
('cheezburger (message "LOL")) ('cheezburger (message "LOL"))
(_ (_
#'i-ching--random-number)))) #'i-ching--random-number))))))
(when method-function (when method-function
(let* ((line-1 (funcall method-function)) (let* ((line-1 (funcall method-function))
(line-2 (funcall method-function)) (line-2 (funcall method-function))
@ -668,7 +671,7 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
(defun i-ching-random (n &optional source) (defun i-ching-random (n &optional source)
"Return a random integer from 1 to N inclusive (possibly with a specific SOURCE of randomness)." "Return a random integer from 1 to N inclusive (possibly with a specific SOURCE of randomness)."
(when (not source) (setq source i-ching-randomness-source)) (when (not source) (setq source i-ching-randomness-source))
(message "using: %s" source) (message "randomness source: %s" source)
(pcase source (pcase source
('quantum (pcase n ('quantum (pcase n
(64 (i-ching-q64)) (64 (i-ching-q64))