projects
/
mudsync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9a9bcb8
)
Add anchor tags to SCRUBL
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 2 Feb 2017 11:30:07 +0000
(
05:30
-0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 2 Feb 2017 11:30:07 +0000
(
05:30
-0600)
mudsync/scrubl.scm
patch
|
blob
|
history
diff --git
a/mudsync/scrubl.scm
b/mudsync/scrubl.scm
index 2fdd9227b71013309d264b532ee906524df46e19..de50108f72da4a41b576582e1bdad3bda5f74a3d 100644
(file)
--- a/
mudsync/scrubl.scm
+++ b/
mudsync/scrubl.scm
@@
-130,10
+130,22
@@
Pass in optional extra ARGS to the main META-WRITE"
(scrubl-write-obj scrubl arg))
args))))
(scrubl-write-obj scrubl arg))
args))))
-(define (scrubl-pre scrubl args)
+(define (scrubl-
sxml-
pre scrubl args)
`(span (@ (class "pre-ish"))
,args))
`(span (@ (class "pre-ish"))
,args))
+;; @@: For a text-only interface, we could put links at end of rendered
+;; text, similar to how orgmode does.
+(define (scrubl-sxml-anchor scrubl args)
+ (define (maybe-uri->string obj)
+ (if (uri? obj)
+ (uri->string obj)
+ obj))
+ (match args
+ (((= maybe-uri->string href) body1 body ...)
+ `(a (@ (href ,href))
+ ,body1 ,@body))))
+
(define scrubl-sxml
(make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))
(strong . ,(scrubl-sxml-simple-field 'strong))
(define scrubl-sxml
(make-scrubl `((p . ,(scrubl-sxml-simple-field 'p))
(strong . ,(scrubl-sxml-simple-field 'strong))
@@
-142,7
+154,9
@@
Pass in optional extra ARGS to the main META-WRITE"
(em . ,(scrubl-sxml-simple-field 'em))
(i . ,(scrubl-sxml-simple-field 'em))
(br . ,(scrubl-sxml-simple-field 'br))
(em . ,(scrubl-sxml-simple-field 'em))
(i . ,(scrubl-sxml-simple-field 'em))
(br . ,(scrubl-sxml-simple-field 'br))
- (pre . ,scrubl-pre) ;; "pre" style whitespace handling.
+ (anchor . ,scrubl-sxml-anchor)
+ (a . ,scrubl-sxml-anchor)
+ (pre . ,scrubl-sxml-pre) ;; "pre" style whitespace handling.
(ul . ,(scrubl-sxml-simple-field 'ul))
(li . ,(scrubl-sxml-simple-field 'li)))
scrubl-sxml-write))
(ul . ,(scrubl-sxml-simple-field 'ul))
(li . ,(scrubl-sxml-simple-field 'li)))
scrubl-sxml-write))