Question

我希望在我的组织议程中有一个自定义议程视图，仅显示周末日。

例如，当我在视图上打开[m]（M-x org-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)))

可能有办法将此作为自定义议程...但我没有看到它。

Answer 2

可能是扩展主要组织议程调度的最佳途径，而不是功能较弱的视图调度。这将允许您向主org-agenda菜单添加更多命令。通过org-agenda-custom-commands变量可以自定义此调度，您可以自定义或设置该变量。这将允许您添加自定义命令。例如，下周末的视图：

(add-to-list 'org-agenda-custom-commands
           '("W" "Weekend"
             ((agenda "" ))
             (
              (org-agenda-overriding-header "WEEKEND")
              (org-agenda-span 2)
              (org-agenda-start-day "saturday")    
              )) t)

那么

M-x org-agenda S-w

下周末给你。将org-agenda绑定到 C-c a 是非常典型的。所以这变成 C-c a W 。

组织议程：显示周末日（仅限）

2 个答案: