From 729131ee04d4add1a0702e03893f1a5b9f3f8ec9 Mon Sep 17 00:00:00 2001 From: nik gaffney Date: Tue, 19 Jan 2021 15:03:14 +0100 Subject: [PATCH] =?UTF-8?q?=E4=B7=81=20The=20Receptive=20Earth?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Quiet perseverance brings good fortune. --- i-ching.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/i-ching.el b/i-ching.el index dcf23cc..42299d1 100644 --- 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))))) ;;;; ; ; ;;;;; ; ; ;