diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-13 02:11:50 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-13 02:11:50 +0000 |
| commit | dfd74ac0b3671d44451cb128980cdf3b4638eaf0 (patch) | |
| tree | 2ce102fad37307751be2a8110e5068a1c183c882 /sx-question-mode.el | |
| parent | 6355c676f48506ecb730acb200085f7b211e08c4 (diff) | |
Fix for new assoc-let
Diffstat (limited to 'sx-question-mode.el')
| -rw-r--r-- | sx-question-mode.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/sx-question-mode.el b/sx-question-mode.el index 2c72bba..fbafc0b 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -141,31 +141,31 @@ editor's name." QUESTION must be a data structure returned by `json-read'." (sx-assoc-let question (insert sx-question-mode-header-title - (propertize title + (propertize .title 'font-lock-face 'sx-question-mode-title 'sx-question-mode--section 1)) (sx-question-mode--wrap-in-overlay (sx-question-mode--insert-header sx-question-mode-header-author - (cdr (assoc 'display_name owner)) + (cdr (assoc 'display_name .owner)) 'sx-question-mode-author ;; Date sx-question-mode-header-date (concat (sx-time-seconds-to-date creation_date) - (when last_edit_date + (when .last_edit_date (format sx-question-mode-last-edit-format - (sx-time-since last_edit_date) - (cdr (assoc 'display_name last_editor))))) + (sx-time-since .last_edit_date) + (cdr (assoc 'display_name .last_editor))))) 'sx-question-mode-date ;; Tags sx-question-mode-header-tags - (concat "(" (mapconcat 'identity tags ") (") ")") + (concat "(" (mapconcat 'identity .tags ") (") ")") 'sx-question-mode-tags) (insert sx-question-mode-separator ;; @TODO: This is temporary, of course. It prevents ;; errors while the filters aren't setup yet. - (or body "BODY"))))) + (or .body "BODY"))))) (defmacro sx-question-mode--wrap-in-overlay (&rest body) "Execute BODY and wrap any inserted text in an overlay. @@ -273,7 +273,8 @@ comments, and redisplays it." (error "Not in `sx-question-mode'")) (sx-assoc-let sx-question-mode--data (sx-question-mode--display - (sx-question-get-question sx-question-list--current-site question_id) + (sx-question-get-question + sx-question-list--current-site .question_id) (selected-window)))) (defconst stack-question-list--mode-line-format |