diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/seam-export.el | 12 | ||||
| -rw-r--r-- | lisp/seam-test.el | 4 | 
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/seam-export.el b/lisp/seam-export.el index 8be9404..6f75a21 100644 --- a/lisp/seam-export.el +++ b/lisp/seam-export.el @@ -113,7 +113,7 @@ See `seam-export-alist' for more information about specifying templates."  <body>  <main>  <header> -<h1>{{title}}</h1> +<h1>{{{raw-title}}}</h1>  <p class=\"modified\">Last modified: <time datetime=\"{{modified-dt}}\">{{modified}}</time></p>  </header>  {{{contents}}} @@ -137,7 +137,12 @@ interpolate it as-is.    `title' -   The note's title (HTML-escaped). +   The note's title, in a plain text format suitable for a +   <title> tag. + +  `raw-title' + +   The note's title, in an HTML format suitable for an <h1> tag.    `backlinks' @@ -272,6 +277,9 @@ notes)."          `(("title" .             ,(seam-export--smartquotize-string               (seam-get-title-from-file note-file))) +          ("raw-title" . +           ,(seam-export--escape-string +             (seam-get-title-from-file note-file)))            ("modified" .             ,(format-time-string               seam-export-time-format diff --git a/lisp/seam-test.el b/lisp/seam-test.el index a546319..47d4fbb 100644 --- a/lisp/seam-test.el +++ b/lisp/seam-test.el @@ -509,8 +509,8 @@ it."  (ert-deftest seam-test-escape-title ()    (should     (equal -    "“quotes” & <symbols>\n" -    (seam-test-with-notes ((seam-export-template-string "{{{title}}}")) +    "“quotes” & <symbols>\n“quotes” & <symbols>\n" +    (seam-test-with-notes ((seam-export-template-string "{{title}}\n{{{raw-title}}}"))          ((note "\"quotes\" & <symbols>" "public"))        (seam-export--file-string "html/quotes-symbols.html")))))  | 
