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

䷹ The Joyous Lake
Some checks failed
melpazoid-i-ching / build (push) Has been cancelled
Details

Browse source
This commit is contained in:
nik gaffney 2024-07-29 12:54:56 +02:00
parent 2f1e8393b0
commit 0870cb1fa5
Signed by: nik
GPG key ID: 989F5E6EDB478160
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
i-ching.el
View file

@ -190,7 +190,7 @@ c.f. `The Superior man’ (Legge, Wilhem), `Noble young one’ (Hatcher),
(5 "䷄"
"Hexagram 5 is named 需 (xū), “Attending”. Other variations include “waiting”, “moistened”, and “arriving”. Its inner (lower) trigram is ☰ (乾 qián) force = (天) heaven, and its outer (upper) trigram is ☵ (坎 kǎn) gorge = (水) water."
"WAITING. If you are sincere, you have light and success. Perseverance brings good fortune. It furthers one to cross the great water."
"Clouds rise up to heaven: The image of WAITING. Thus, you should eats and drink, be joyous and of good cheer."
"Clouds rise up to heaven: The image of WAITING. Thus, you should eat and drink, be joyous and of good cheer."
"HEXAGRAM FOR WAITING")
(6 "䷅"
"Hexagram 6 is named 訟 (sòng), “Arguing”. Other variations include “conflict” and “lawsuit”. Its inner (lower) trigram is ☵ (坎 kǎn) gorge = (水) water, and its outer (upper) trigram is ☰ (乾 qián) force = (天) heaven."
@ -868,7 +868,8 @@ The hexagram can be entered as a string, or by number."
(pcase hexagram
((pred numberp) hexagram)
((pred i-ching-hexagram-p)
(i-ching-hexagram-to-number hexagram)))))
(i-ching-hexagram-to-number hexagram))
(_ (error "Not a hexagram symbol or number")))))
(format "%s\n\n%s\n\nJudgment: %s\n\nImage: %s\n\n"
(i-ching-number-to-hexagram hexagram-number)
(i-ching-number-to-description hexagram-number)