diff options
| -rw-r--r-- | sx-question-print.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 4ab6cfd..0d694c6 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -212,6 +212,13 @@ type is not available, images won't work." :type 'integer :group 'sx-question-mode) +(defvar sx-question-mode-after-print-hook nil + "Hook run after the question has been printed. +The hook functions are called without arguments with +the `sx-question-mode' buffer current. +The special variable `inhibit-read-only' is t while the hook functions run. +This hook can be used for special formatting of parts of the question buffer.") + ;;; Functions ;;;; Printing the general structure @@ -240,6 +247,7 @@ QUESTION must be a data structure returned by `json-read'." (cl-sort .answers sx-question-mode-answer-sort-function)))) (insert "\n\n ") (insert-text-button "Write an Answer" :type 'sx-button-answer) + (run-hooks 'sx-question-mode-after-print-hook) ;; Go up (goto-char (point-min)) (sx-question-mode-next-section)) |