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

䷽ Small Preponderance

Browse source 
There will be progress and attainment in small affairs, but not in great affairs.
This commit is contained in:
nik gaffney 2021-01-02 17:12:54 +01:00
parent 7358f64dac
commit 01d8b1d57e
1 changed files with 19 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
i-ching.el
View file

@ -521,16 +521,21 @@ c.f. ‘The Superior man’ (Legge, Wilhem), ‘Noble young one’ (Hatcher), 't
(let ((hexagrams i-ching-hexagram-summary)) (let ((hexagrams i-ching-hexagram-summary))
(nth 4 (alist-get number hexagrams)))) (nth 4 (alist-get number hexagrams))))
(defun i-ching-describe-hexagram (point)
"Show the name of a HEXAGRAM at (before) POINT based on it's unicode name." (defun i-ching-describe-hexagram (point mark)
(interactive "d") "Show the name of a HEXAGRAM (between POINT and MARK) based on it's unicode name."
(let* ((hexagrams i-ching-hexagram-summary) (interactive "r")
(hexagram (if (use-region-p)
(nth 4 (alist-get (char-before point) hexagrams)))) (let* ((hexagrams i-ching-hexagram-summary)
(message "%s" (selection (buffer-substring point mark))
(if hexagram (hexagram
(capitalize (seq-drop hexagram 13)) (nth 4 (alist-get
"Not a hexagram")))) (i-ching-hexagram-to-number selection)
hexagrams))))
(message "%s" (if hexagram
(capitalize (seq-drop hexagram 13))
"Not a hexagram")))
(message "Nothing selected")))
;;;;; ; ; ; ; ;;;;; ; ; ; ;
@ -677,10 +682,10 @@ Provided by Randomness and Integrity Services Ltd. via https://www.random.org/"
;; Each function should produce a binary pair corresponding to a line of a hexagram ;; Each function should produce a binary pair corresponding to a line of a hexagram
;; as follows... ;; as follows...
;; ;;
;; (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 yinn
;; ;;
;;;;;;; ; ; ; ;;;;;;; ; ; ;