diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-01 15:48:30 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-01 15:48:30 +0000 |
| commit | c260bacd501a99bd68c6db5354b536867af1c012 (patch) | |
| tree | 04c599ef998f945e5dcf88552170655c0bf19b91 /sample-question-unauthenticated.el | |
| parent | 7244bbfdbcbef29054a1f6035a6acc1983a23bd0 (diff) | |
Implement an example with the html renderer
Diffstat (limited to 'sample-question-unauthenticated.el')
| -rw-r--r-- | sample-question-unauthenticated.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/sample-question-unauthenticated.el b/sample-question-unauthenticated.el index b448b73..6adc9bb 100644 --- a/sample-question-unauthenticated.el +++ b/sample-question-unauthenticated.el @@ -26,8 +26,16 @@ Doesn't seem like markdown gets fontified. Which is disapointing. :-(" (insert (org-element-interpret-data (stack-lto--question x)))) - (cdr (assoc 'items sample-frontpage))) - (org-global-cycle 1)) + (nthcdr 25 (mapcar #'identity (cdr (assoc 'items sample-frontpage))))) + (org-global-cycle 1) + (stack-navigation-mode)) + +(defun sample-frontpage-html () + "Renders the question list usiong markdown for the content. +Doesn't seem like markdown gets fontified. Which is disapointing. :-(" + (interactive) + (let ((stack-lto-body-src-block nil)) + (sample-frontpage-markdown))) (provide 'sample-question-unauthenticated) |