วิธีซ่อนตัวคั่นบล็อก SRC

13

มีวิธีเก็บรักษาซอร์สโค้ดเฉพาะไว้ในซอร์สโค้ดหรือไม่ซึ่งทำให้ # + BEGIN_SRC และ # + END_SRC มองไม่เห็น? มันเป็นเครื่องสำอาง แต่มันทำให้สิ่งต่าง ๆ ชัดเจนขึ้นเมื่อเราต้องจัดการกับตัวอย่างรหัสย่อจำนวนมาก สำหรับตัวอย่าง:

(defun org-xor (a b)
          "Exclusive or."
          (if a (not b) b))

แทน :

  #+BEGIN_SRC emacs-lisp
       (defun org-xor (a b)
          "Exclusive or."
          (if a (not b) b))
  #+END_SRC

org-mode

— loukios
แหล่งที่มา

ความคิดเห็นของฉันภายใต้คำถามในเธรดที่เกี่ยวข้องกับกึ่งนี้แสดงวิธีซ่อนโปรแกรมส่วนหัว / ส่วนท้ายของโปรแกรมโดยทางโปรแกรม emacs.stackexchange.com/q/26163/2287 - เช่นการทุกอย่างยกเลิกการใช้

(save-excursion (goto-char (point-max)) (while (re-search-backward "#\\+BEGIN_SRC\\|#\\+END_SRC" nil t) (let ((ov (make-overlay (line-beginning-position) (1+ (line-end-position))))) (overlay-put ov 'invisible t))))

(remove-overlays)จำเป็นต้องทำงานเพิ่มเติมสำหรับแต่ละรายการและลบเฉพาะภาพซ้อนทับที่เลือก (แทนที่จะเป็นภาพซ้อนทับทั้งหมด) แต่นั่นเป็นแนวคิดทั่วไป

— ฏหมาย

ขอบคุณนี่น่าสนใจ ... ฉันจะลองเล่นดู

— loukios

5

ใบหน้าสำหรับทุกสายเริ่มต้นด้วยการที่เรียกว่า#+org-meta-line

คุณสามารถปรับหน้านี้ให้เล็กลงเข้มขึ้น ฯลฯ เพื่อให้มองเห็นได้น้อยลง

— Juancho
แหล่งที่มา

จริง (set-face-attribute 'org-meta-line nil :height 0.8 :slant 'normal)เป็นตัวอย่างที่ผมมีมันตั้งค่าการใช้ ฉันคิดว่ามันช่วยได้ไม่มาก

— Harald Hanche-Olsen

ขอบคุณสำหรับคำตอบของคุณมันช่วยได้ ฉันได้เปลี่ยนความสูงครับ แต่มันก็ไม่ได้มีผลกระทบใด ๆ ...

— loukios

ดูเอกสาร Emacs Lisp เกี่ยวกับตัวเลือกที่คุณสามารถกำหนดให้กับorg-meta-line gnu.org/software/emacs/manual/html_node/elisp/ …

— salotz

4

ฉันใช้โค้ดต่อไปนี้ซึ่งไปตามทาง มันไม่สมบูรณ์แบบ บางทีมันอาจจะกลายเป็นminor-modeวันที่เหมาะสม ( แหล่งที่มา )

(with-eval-after-load 'org
  (defvar-local rasmus/org-at-src-begin -1
    "Variable that holds whether last position was a ")

  (defvar rasmus/ob-header-symbol ?☰
    "Symbol used for babel headers")

  (defun rasmus/org-prettify-src--update ()
    (let ((case-fold-search t)
          (re "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*")
          found)
      (save-excursion
        (goto-char (point-min))
        (while (re-search-forward re nil t)
          (goto-char (match-end 0))
          (let ((args (org-trim
                       (buffer-substring-no-properties (point)
                                                       (line-end-position)))))
            (when (org-string-nw-p args)
              (let ((new-cell (cons args rasmus/ob-header-symbol)))
                (cl-pushnew new-cell prettify-symbols-alist :test #'equal)
                (cl-pushnew new-cell found :test #'equal)))))
        (setq prettify-symbols-alist
              (cl-set-difference prettify-symbols-alist
                                 (cl-set-difference
                                  (cl-remove-if-not
                                   (lambda (elm)
                                     (eq (cdr elm) rasmus/ob-header-symbol))
                                   prettify-symbols-alist)
                                  found :test #'equal)))
        ;; Clean up old font-lock-keywords.
        (font-lock-remove-keywords nil prettify-symbols--keywords)
        (setq prettify-symbols--keywords (prettify-symbols--make-keywords))
        (font-lock-add-keywords nil prettify-symbols--keywords)
        (while (re-search-forward re nil t)
          (font-lock-flush (line-beginning-position) (line-end-position))))))

  (defun rasmus/org-prettify-src ()
    "Hide src options via `prettify-symbols-mode'.

  `prettify-symbols-mode' is used because it has uncollpasing. It's
  may not be efficient."
    (let* ((case-fold-search t)
           (at-src-block (save-excursion
                           (beginning-of-line)
                           (looking-at "^[ \t]*#\\+begin_src[ \t]+[^ \f\t\n\r\v]+[ \t]*"))))
      ;; Test if we moved out of a block.
      (when (or (and rasmus/org-at-src-begin
                     (not at-src-block))
                ;; File was just opened.
                (eq rasmus/org-at-src-begin -1))
        (rasmus/org-prettify-src--update))
      ;; Remove composition if at line; doesn't work properly.
      ;; (when at-src-block
      ;;   (with-silent-modifications
      ;;     (remove-text-properties (match-end 0)
      ;;                             (1+ (line-end-position))
      ;;                             '(composition))))
      (setq rasmus/org-at-src-begin at-src-block)))

  (defun rasmus/org-prettify-symbols ()
    (mapc (apply-partially 'add-to-list 'prettify-symbols-alist)
          (cl-reduce 'append
                     (mapcar (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
                             `(("#+begin_src" . ?✎) ;; ➤ 🖝 ➟ ➤ ✎
                               ("#+end_src"   . ?□) ;; ⏹
                               ("#+header:" . ,rasmus/ob-header-symbol)
                               ("#+begin_quote" . ?»)
                               ("#+end_quote" . ?«)))))
    (turn-on-prettify-symbols-mode)
    (add-hook 'post-command-hook 'rasmus/org-prettify-src t t))
  (add-hook 'org-mode-hook #'rasmus/org-prettify-symbols))

— ราสมูส
แหล่งที่มา