diff options
author | Arun Isaac | 2022-07-09 11:08:20 +0530 |
---|---|---|
committer | Arun Isaac | 2022-07-09 16:41:01 +0530 |
commit | 2f5578be4545af1dd530bfc7a1ef235620ba9519 (patch) | |
tree | 1bcfd29d243320a95c544187351c38b82f9bf01b /tissue/issue.scm | |
parent | a132df19eabf5d77b0eac7e870178803f1b0dd07 (diff) | |
download | tissue-2f5578be4545af1dd530bfc7a1ef235620ba9519.tar.gz tissue-2f5578be4545af1dd530bfc7a1ef235620ba9519.tar.lz tissue-2f5578be4545af1dd530bfc7a1ef235620ba9519.zip |
issue: Move person related functions to (tissue person).
* bin/tissue: Import (tissue person).
* tissue/issue.scm: Import (tissue person).
(%aliases, resolve-alias, index-person!): Move to (tissue person).
* tissue/person.scm: New file.
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r-- | tissue/issue.scm | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index bbfe2cf..a77e57a 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -32,9 +32,9 @@ #:use-module (xapian xapian) #:use-module (tissue document) #:use-module (tissue git) + #:use-module (tissue person) #:use-module (tissue utils) - #:export (%aliases - <issue> + #:export (<issue> issue-creator issue-created-date issue-last-updater @@ -58,9 +58,6 @@ read-gemtext-issue index-issue)) -(define %aliases - (make-parameter #f)) - (define-class <issue> (<file-document>) (creator #:accessor issue-creator #:init-keyword #:creator) (created-date #:accessor issue-created-date #:init-keyword #:created-date) @@ -300,18 +297,6 @@ return #f." '() (comma-split (string-remove-prefix "* " line))))) -(define (resolve-alias name aliases) - "Resolve NAME against ALIASES, a list of aliases. ALIASES should be -in the form of the argument of the same name to `tissue-configuration' -in (tissue tissue). If no alias is found, NAME is returned as such." - (cond - ((find (cut member name <>) - aliases) - => (match-lambda - ((canonical-name _ ...) canonical-name) - (() name))) - (else name))) - (define (file-details port) "Return a hashtable of details extracted from input PORT reading a gemtext file." @@ -413,10 +398,3 @@ gemtext file." #:date (commit-date commit))) commits commit-authors)))) - -(define (index-person! term-generator name prefix) - "Index all aliases of person of canonical NAME using TERM-GENERATOR -with PREFIX." - (for-each (cut index-text! term-generator <> #:prefix prefix) - (or (assoc name (%aliases)) - (list)))) |