diff options
| -rw-r--r-- | src/guile/skribilo/reader/outline.scm | 44 |
1 files changed, 35 insertions, 9 deletions
diff --git a/src/guile/skribilo/reader/outline.scm b/src/guile/skribilo/reader/outline.scm index 1e64d01..27ec05f 100644 --- a/src/guile/skribilo/reader/outline.scm +++ b/src/guile/skribilo/reader/outline.scm @@ -1,6 +1,6 @@ ;;; outline.scm -- A reader for Emacs' outline syntax. ;;; -;;; Copyright 2006 Ludovic Courtès <ludovic.courtes@laas.fr> +;;; Copyright 2006, 2008 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -118,37 +118,60 @@ line or a line comment." (define %inline-markup ;; Note: the order matters because, for instance, URLs must be searched for ;; _before_ italics (`/italic/'). - `(("_([^_]+)_" . + ;; XXX: This is much less efficient that a lexer as produced by, e.g., SILex. + + `(("_([^_]+)_" . ;; emphasis ,(lambda (m) (values (match:prefix m) ;; before (match:substring m 1) ;; body (match:suffix m) ;; after (lambda (body) `(emph ,body))))) ;; process-body - ("(f|ht)tp://[a-zA-Z0-9\\._~%/-]+" . + + ("\\[\\[([^]]+)\\]\\[([^]]+)\\]\\]" . ;; Org-Mode hyperlink + ,(let ((file-rx (make-regexp "^file:(.*)$" regexp/extended))) + (lambda (m) + (values (match:prefix m) + (match:substring m 2) + (match:suffix m) + (let ((xref (match:substring m 1))) + (lambda (body) + (cond ((regexp-exec file-rx xref) + => + (lambda (m) + (let ((path (match:substring m 1))) + `(ref :url ,(string-append "file://" path) + :text ,body)))) + (else + ;; XXX: We assume that everything that's not a + ;; `file:' link is a URL. + `(ref :url ,xref + :text ,body))))))))) + ("(f|ht)tp://[a-zA-Z0-9\\._~%/-]+" . ;; URL ,(lambda (m) (values (match:prefix m) (match:substring m) (match:suffix m) (lambda (url) `(ref :url ,url))))) - ("\\/([^\\/]+)\\/" . + + ("\\/([^\\/]+)\\/" . ;; italic ,(lambda (m) (values (match:prefix m) (match:substring m 1) (match:suffix m) (lambda (body) `(it ,body))))) - ("\\*([^\\*]+)\\*" . + ("\\*([^\\*]+)\\*" . ;; bold ,(lambda (m) (values (match:prefix m) (match:substring m 1) (match:suffix m) (lambda (body) `(bold ,body))))) - ("``(([^`^'])+)''" . + ("``(([^`^'])+)''" . ;; quote ,(lambda (m) (values (match:prefix m) (match:substring m 1) (match:suffix m) (lambda (body) `(q ,body))))) - ("`(([^`^'])+)'" . + ("`(([^`^'])+)'" . ;; teletype ,(lambda (m) (values (match:prefix m) (match:substring m 1) @@ -445,12 +468,15 @@ to @var{node-type}." +;;; ;;; The reader specification. +;;; (define-reader outline "0.1" make-outline-reader) -;;; arch-tag: 53473e73-c811-4eed-a0b4-22ada4d6ef08 +;;; Local Variables: +;;; coding: latin-1 +;;; End: ;;; outline.scm ends here - |