Emacs Org-mode 可否有方法隐藏 :PROPERTIES: drawer(HELP WANTED!)

Org-mode
1

深度截图_emacs_20201117152007
深度截图_emacs_202011171520071892×1020 290 KB

如图所示

在使用org-noter creat-skeleton 后满屏的PROPERTIES, 谷歌未找到方法, 特地来论坛求助各位大佬

2

可以用 overlay 隐藏

(save-excursion
  (goto-char (point-min))
  (while (re-search-forward "^ +:PROPERTIES:\n\\(.+\n\\)+ +:END:\n" nil t)
    (with-silent-modifications
      (overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'display ""))))
3

谢谢大佬的帮助, 我不是太懂overlay, 可否告知上述代码如何使用?

4

M-x eval-expression, 然后粘贴上面的代码，回车。

5

执行成功后并无变化呀

深度截图_emacs_20201117155224
深度截图_emacs_202011171552241892×1020 111 KB

6

上面的代码只是临时生效，要想每次打开时都隐藏，可以加到hook里。

(defun org-hide-properties ()
  "Hide org headline's properties using overlay."
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward
            "^ +:PROPERTIES:\n\\( +:.+?:.+\n\\)+ +:END:\n" nil t)
      (with-silent-modifications
        (overlay-put (make-overlay
                      (match-beginning 0) (match-end 0))
                     'display "")))))

(add-hook 'org-mode-hook #'org-hide-properties)
7

在 stackoverflow 找到一个帖子，亲测可用: https://stackoverflow.com/questions/17478260/completely-hide-the-properties-drawer-in-org-mode

我这也是 org-noter 的笔记

图片
图片860×1010 192 KB

8

执行后，什么信息都没有？也没报错？

9

啊 我昨天也试了的 可是不行诶 我是org 9.3 是因为这个原因吗 GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.22, cairo version 1.17.3) of 2020-08-29

10

返回了一个nil

11

Strange, It’s impossible.

你把光标放在开头，然后 eval-expression

(re-search-forward
            "^ +:PROPERTIES:\n\\( +:.+?:.+\n\\)+ +:END:\n" nil t)

看能不能搜索到properties？

12

我就把 org-cycle-hide-drawers 这个函数的定义 eval 了一下，然后重新打开文件，按 shift-tab （org-shifttab）隐藏再展开就会发现 properties 被隐藏了。但是只是定义了一个函数而已……咋起作用的我其实没太明白。

附我的环境: org-mode 9.4, emacs 26.1

13

仍然返回为nil诶

14

正则匹配是没有问题的，应该是你操作出了什么问题。

15

我复制粘贴后,以hook形式可是重启后还是无效诶

16

那我就不知道，最后再试一下把 with-silent-mo… 去掉的代码：

(defun org-hide-properties ()
  "Hide org headline's properties using overlay."
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward
            "^ +:PROPERTIES:\n\\( +:.+?:.*\n\\)+ +:END:\n" nil t)
      (overlay-put (make-overlay
                    (match-beginning 0) (match-end 0))
                   'display ""))))

(add-hook 'org-mode-hook #'org-hide-properties)
17

深度截图_emacs_20201117162252
深度截图_emacs_202011171622521892×1020 80 KB

18

正则匹配不成功，我不能理解。你把配置放在了加载路径里了吗，eval 配置了吗，kill掉buffer再重新打开文档了吗？

test-research

19 
(while (re-search-forward
          "^:PROPERTIES:\n\\(:.*:.*\n\\)+:END:" nil t)

换成这个后能够正常工作了,谢谢大佬

深度截图_emacs_20201117164845
深度截图_emacs_202011171648451892×1020 60.5 KB

20

我明白原因了，你应该用了 org-indent-mode .

改一下，无论是否开启 org-indent-mode 都兼容的代码：

(defun org-hide-properties ()
  "Hide org headline's properties using overlay."
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward
            "^ *:PROPERTIES:\n\\( *:.+?:.*\n\\)+ *:END:\n" nil t)
      (overlay-put (make-overlay
                    (match-beginning 0) (match-end 0))
                   'display ""))))

(add-hook 'org-mode-hook #'org-hide-properties)
6 个赞