1 files changed, 42 insertions, 0 deletions
diff --git a/sample-question-unauthenticated.el b/sample-question-unauthenticated.el
new file mode 100644
index 0000000..6adc9bb
--- /dev/null
+++ b/sample-question-unauthenticated.el
@@ -0,0 +1,42 @@
+(defvar sample-question-unauthenticated
+  (json-read-file "sample-question-unauthenticated.json"))
+(defvar sample-frontpage
+  (json-read-file "sample-frontpage.json"))
+
+;;; A sample of data offered by the question object, without authentication.
+;; (pp sample-question-unauthenticated (current-buffer))
+
+(defun sample-question-markdown ()
+  "Renders the question list usiong markdown for the content.
+Doesn't seem like markdown gets fontified. Which is disapointing. :-("
+  (interactive)
+  (find-file "sample.org")
+  (setf (buffer-string)
+        (org-element-interpret-data
+         (stack-lto--question sample-question-unauthenticated))))
+
+(defun sample-frontpage-markdown ()
+  "Renders the question list usiong markdown for the content.
+Doesn't seem like markdown gets fontified. Which is disapointing. :-("
+  (interactive)
+  (find-file "sample.org")
+  (erase-buffer)
+  (mapcar
+   (lambda (x) 
+     (insert 
+      (org-element-interpret-data
+       (stack-lto--question x))))
+   (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)
+
+