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 "䷄" (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." "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." "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") "HEXAGRAM FOR WAITING")
(6 "䷅" (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." "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 (pcase hexagram
((pred numberp) hexagram) ((pred numberp) hexagram)
((pred i-ching-hexagram-p) ((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" (format "%s\n\n%s\n\nJudgment: %s\n\nImage: %s\n\n"
(i-ching-number-to-hexagram hexagram-number) (i-ching-number-to-hexagram hexagram-number)
(i-ching-number-to-description hexagram-number) (i-ching-number-to-description hexagram-number)