diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 01:52:12 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 01:52:12 +0000 |
| commit | 5b61e791b0e68ec1ab045bba391b4b4d2054e006 (patch) | |
| tree | 809fa6be64f4b407183fae8a7ee34c2c67b7a30d | |
| parent | 54529104cd7a7b9205fc0c57182e5ee0413b5af7 (diff) | |
Rename a varialbe
| -rw-r--r-- | stack-lto.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stack-lto.el b/stack-lto.el index 776e4bb..c44ad9a 100644 --- a/stack-lto.el +++ b/stack-lto.el @@ -54,10 +54,10 @@ by the API and read by `json-read'." "Process and return the elements of DATA which questions and answers have in common." (let ((comments (mapcar #'stack-lto--comment (cdr (assoc 'comments data))))) - `(,(if stack-lto-body-src-block + `(,(if stack-lto--body-src-block ;; Body as a src block (really NOT nice). `(src-block (:value ,(stack-lto--body data) - . ,stack-lto-body-src-block)) + . ,stack-lto--body-src-block)) ;; Body as html. Nicer... (list 'paragraph () (stack-lto--body-rendered data))) ;; Comments as descriptive lists. If there are no comments, an @@ -66,9 +66,9 @@ by the API and read by `json-read'." ;;; Body rendering -(defvar stack-lto-body-src-block +(defvar stack-lto--body-src-block '(:language "markdown" :switches nil :parameters nil :hiddenp nil) - "Properties used on the src-block which represents the body. + "Properties used on the markdown src-block which represents the body. If this is nil, rendered html is used for the body instead.") (defface stack-lto-body |