Org-Agenda:显示周末(仅限)

Question

我想在我的组织议程中有一个自定义的议程视图，它只显示周末。

例如，当我打开月份视图(M-x agenda a v m)时，我看到的是当前月份。我想隐藏工作日，只显示周末。我该怎么做呢？

Answer 1

这是一个交互式功能，可以显示当前或即将到来的周末的议程：

(defun org-next-weekend-agenda ()
  "Produce an agenda view for the current or upcoming weekend from all files in variable `org-agenda-files'."
  (interactive)
  (let*
      ((day (string-to-number (format-time-string "%w")))
       (offset
    (cond ((zerop day) -1)      ; it's Sunday
          (t (- 6 day))))       ; any other day
       (offset-string
    (cond ((>= offset 0) (concat "+" (number-to-string offset)))
          (t (number-to-string offset)))))
    (org-agenda-list nil offset-string 2)))

也许有一种方法可以作为自定义议程来实现这一点……但我没看到。