diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 01:51:35 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 01:51:35 +0000 |
commit | 54529104cd7a7b9205fc0c57182e5ee0413b5af7 (patch) | |
tree | b4a4fc39a9b352d9c9f006d3e0a5e1ee756becec /sample-question-unauthenticated.el | |
parent | 11595a7f7fdbda8a7b710ec675c38ad7996ccf36 (diff) |
Delete obsolete files.
Diffstat (limited to 'sample-question-unauthenticated.el')
-rw-r--r-- | sample-question-unauthenticated.el | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/sample-question-unauthenticated.el b/sample-question-unauthenticated.el deleted file mode 100644 index 6adc9bb..0000000 --- a/sample-question-unauthenticated.el +++ /dev/null @@ -1,42 +0,0 @@ -(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) - - |