diff options
Diffstat (limited to 'html-wysiwyg.el')
-rw-r--r-- | html-wysiwyg.el | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/html-wysiwyg.el b/html-wysiwyg.el index 1a069fe..f5cab97 100644 --- a/html-wysiwyg.el +++ b/html-wysiwyg.el @@ -36,17 +36,15 @@ (define-minor-mode html-wysiwyg-mode "A minor mode for partial WYSIWYG editing of HTML, akin to org." - :after-hook (html-wysiwyg-initialise) - :keymap `((,(kbd "C-c , e") . html-wysiwyg-edit-link-at-point) - (,(kbd "C-c , h") . html-wysiwyg-hide-links) - (,(kbd "C-c , s") . html-wysiwyg-show-links))) - -(defun html-wysiwyg-initialise () - "Initialises html-wysiwyg-mode." - (interactive) - (add-to-list 'font-lock-extra-managed-props 'invisible) - (add-to-list 'font-lock-extra-managed-props 'help-echo) - (html-wysiwyg-hide-links)) + :keymap `((,(kbd "C-c , e") . html-wysiwyg-edit-link-at-point)) + (if html-wysiwyg-mode + ;; Enabled + (progn + (add-to-list 'font-lock-extra-managed-props 'invisible) + (add-to-list 'font-lock-extra-managed-props 'help-echo) + (html-wysiwyg-hide-links)) + ;; Disabled + (html-wysiwyg-show-links))) (defvar html-wysiwyg-link-match (rx (group "<a" (+? (not (any "<" ">"))) "href=" (syntax string-quote)) |