guo
3
我记得org-mode中可以给headline增加某个标记,可以在导出时忽略这个headline
这样,给草稿状态的D打上这样的标记就应该可以实现你的目标了。
塊註釋文中提到了會有高亮或排版的問題,用tag則可以處理subtree的部分。不過塊的#+BEGIN和#+END還是會有點妨礙閱讀,雖然可以將其隱藏,但行註釋有辦法不破壞高亮和排版嗎?
或是退而求其次全部都以一行為單位進行註釋 ![:smiling_face_with_tear: :smiling_face_with_tear:](https://emacs-china.org/images/emoji/apple/smiling_face_with_tear.png?v=12)
對,tag可以做到,但會有非headline不行的問題 ![:confounded: :confounded:](https://emacs-china.org/images/emoji/apple/confounded.png?v=12)
如果能用markup標記的話還可以省略org-mode的依賴,雖然我暫時沒有需求,但感覺能在其他mode底下使用是挺不錯的。
簡單寫了一個可以highlight comment,並隱藏#+begin/end_comment的mode。
寫的有點醜,但目前還堪用就懶得改了。
- 如果有用其他overlay會衝突到。
- highlight顯示錯誤就關掉重開 <M-p>。
因為都是用org-mode的註釋,所以輸出直接用org export就行,highlight的部分不會被輸出。
效果
code
(require 'org)
(defface publish-mode-publish-face '((t :background "gray22"))
"Face for published content.")
(defun publish-mode-sensitive-region-hide (begin end)
"Hide the text in the region between BEGIN and END."
(interactive "r")
(let ((inhibit-read-only t))
(add-text-properties begin end '(proprietary-bolp t invisible t display ""))
(font-lock-fontify-region begin end)))
(defun publish-mode-sensitive-region-reveal (begin end)
"Reveal the hidden text in the region between BEGIN and END."
(interactive "r")
(let ((inhibit-read-only t))
(remove-text-properties begin end '(proprietary-bolp invisible display))
(font-lock-fontify-region begin end)))
(defun publish-mode-highlight-and-hide-comment-block ()
"Highlight and hide the region between begin_comment and end_comment."
(interactive)
(save-excursion
(goto-char (point-min))
(let ((points '()))
(while (re-search-forward "#\\+begin_comment" nil t)
(let* ((begin-pos (match-beginning 0))
(begin-pos-end (line-end-position))
(end-pos-end (re-search-forward "#\\+end_comment" nil t))
(end-pos (match-beginning 0)))
(push (list begin-pos begin-pos-end end-pos end-pos-end) points)))
(dolist (p points)
(let ((begin-pos (nth 0 p))
(begin-pos-end (nth 1 p))
(end-pos (nth 2 p))
(end-pos-end (nth 3 p)))
(overlay-put (make-overlay begin-pos end-pos-end) 'face 'publish-mode-publish-face)
(publish-mode-sensitive-region-hide begin-pos (1+ begin-pos-end))
(publish-mode-sensitive-region-hide end-pos (1+ end-pos-end)))))
(message "Highlighted comment regions.")))
(defun publish-mode-remove-comment-highlights ()
"Remove highlight from all comment regions."
(interactive)
(remove-overlays (point-min) (point-max)))
(defun publish-mode-highlight-commented-headlines ()
"Highlight 'org-mode' commented headlines."
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^\\*+.*$" nil t)
(when (org-in-commented-heading-p)
(let ((begin-pos (match-beginning 0))
(end-pos (org-end-of-subtree)))
(overlay-put (make-overlay begin-pos end-pos) 'face 'publish-mode-publish-face))))))
(define-minor-mode publish-mode ()
"Minor mode for highlighting draft and publish lines"
:init-value nil
(if publish-mode
(progn
(publish-mode-highlight-and-hide-comment-block)
(publish-mode-highlight-commented-headlines))
(save-excursion
(publish-mode-remove-comment-highlights)
(publish-mode-sensitive-region-reveal (point-min) (point-max)))))
(global-set-key (kbd "M-p") 'publish-mode)
(defun publish-mode-un-draft-block ()
"Remove comment block when current mark is in comment block."
(interactive)
(when (org-between-regexps-p "#\\+begin_comment" "#\\+end_comment")
(save-excursion
(let ((begin (progn
(re-search-backward "#\\+begin_comment" nil t)
(delete-line)
(match-beginning 0)))
(end (progn
(re-search-forward "#\\+end_comment" nil t)
(delete-line)
(forward-line -1)
(line-end-position))))
(unless (org-in-commented-heading-p)
(remove-overlays begin (1+ end)))))))