diff options
| -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) |