0

（我不知道 lisp，所以我怀疑这真的很简单。）

我想编写一个函数来简化我的 org-mode 和 GTD 设置。

我的 org-mode 设置基于此处的文字：http: //doc.norang.ca/org-mode.html#CustomAgendaViewSetup

我想为多个标签使用“NEXT”设置（见下文） - 我可以简单地一遍又一遍地剪切和粘贴相同的代码，但是编写一个函数会更干净，所以而不是这样：

            (tags-todo "-WAITING-CANCELLED/!NEXT"
                       ((org-agenda-overriding-header "Next Tasks")
                        (org-agenda-skip-function 'bh/skip-projects-and-habits-and-single-tasks)
                        (org-agenda-todo-ignore-scheduled 'future)
                        (org-agenda-todo-ignore-deadlines 'future)
                        (org-tags-match-list-sublevels t)
                        (org-agenda-sorting-strategy
                         '(todo-state-down effort-up category-keep))))

我更喜欢这样的东西：

            (MyFunction "@work")
            (MyFunction "@computer")

函数的参数将上述代码块中的过滤更改为：

            (tags-todo "-WAITING-CANCELLED+<XXX>/!NEXT"

IE

            (tags-todo "-WAITING-CANCELLED+@work/!NEXT"

有人可以帮我指出正确的方向吗？

4

1 回答 1

1

以下应该可以解决问题（它还包括一个变量来测试是否使用+或-在标记之前，默认为-）。

(defun zin/agenda-test (tag &optional signp)
  "Simplify agenda coding, only require TAG to create new block.

SIGNP determines whether to use `+' or `-' when adding the tag.
Defaulting to `-'."
  (let ((sign (if signp "+" "-")))
    `(tags-todo ,(format "-WAITING-CANCELLED%s%s/!NEXT" sign tag)
        ((org-agenda-overriding-header "Next Tasks")
         (org-agenda-skip-function 'bh/skip-projects-and-habits-and-single-tasks)
         (org-agenda-todo-ignore-scheduled 'future)
         (org-agenda-todo-ignore-deadlines 'future)
         (org-tags-match-list-sublevels t)
         (org-agenda-sorting-strategy
          '(todo-state-down effort-up category-keep))))))

(setq org-agenda-custom-commands `(("t" "Test"
                                (,(zin/agenda-test "@tag")
                                 ,(zin/agenda-test "@test" '+)))))

您必须确保org-agenda-custom-commands使用反引号语法 ( `) 而不是(quote ...)，否则命令将无法正确展开。

于 2013-06-26T13:23:12.343 回答