8

現在のサブツリーをより明確に認識できるようにするにはどうすればよいですか?

「行番号」を太字にするか、現在のサブツリーのテキスト全体に下線を引くだけでも問題ありません。

つまり、何かelispコードを教えてくれる人はいますか? これを達成するには (たとえば、サブツリー全体に下線を引く)?


下線を引くことができないので、例を太字にします:

* [1] これはサブツリーです

いくつかのテキスト

** [1.1] サブツリー n°2

そしてテキストも

*** [1.1.1]サブツリーこんにちは

** [2] 良い一日を

4

1 に答える 1

2

次の定義をロードします

(defun org-subtree-highlight-find-overlay (p1 p2)
  "Find an overlay with property 'org-subtree-highlight-overlay"
  (defun org-subtree-highlight-find-overlay01 (overlays)
    (if overlays
    (let ((ov (car overlays)))
      (if (overlay-get ov 'org-subtree-highlight-overlay)
          ov
        (org-subtree-highlight-find-overlay01 (cdr overlays))))
      nil))
  (org-subtree-highlight-find-overlay01 (overlays-in p1 p2)))

(defun org-subtree-highlight-toggle ()
  "Toggle subtree highlighting"
  (interactive)
  (save-excursion
    (let* ((p1 (progn (org-back-to-heading t) (point)))
       (p2 (progn (outline-next-visible-heading 1)
              (if (and (org-at-heading-p) (not (eobp))) (backward-char 1))
              (point)))
       (ov (org-subtree-highlight-find-overlay p1 p2)))
      (if ov
      (delete-overlay ov)
    (setq ov (make-overlay p1 p2))
    (overlay-put ov 'org-subtree-highlight-overlay t)
    ;; set a format for the subtree (can be also 'bold)
    (overlay-put ov 'font-lock-face 'underline)))))

;; keybindin example
(add-hook 'org-mode-hook
      (lambda ()
        (local-set-key "\C-c\C-h" 'org-subtree-highlight-toggle)))

結果はこのようになるはずです

emacsのスクリーンショット

于 2012-12-28T16:20:00.070 に答える