如题.
平常自己做的时候,一般是,输入时间后,左移光标,然后手动输入 +1w
,总体大概就是
C-c . RET C-b SPC +1w
问题就是如何在 C-c . 的时候,同时输入 +1w
,而不用左移光标什么的。
------- Edit -----
这儿有一个 prompt 的 manual,如果需要的话。另外里面也没有 +1m 这种东西的写法(很遗憾
如题.
平常自己做的时候,一般是,输入时间后,左移光标,然后手动输入 +1w
,总体大概就是
C-c . RET C-b SPC +1w
问题就是如何在 C-c . 的时候,同时输入 +1w
,而不用左移光标什么的。
------- Edit -----
这儿有一个 prompt 的 manual,如果需要的话。另外里面也没有 +1m 这种东西的写法(很遗憾
Emacs 内置的《Intro to Emacs Lisp》里有答案
别,请指出来
同求。以前也问过,没找到答案。
最近加上了 org-display-custom-times 导致手动输入也失效了(不得不 text-mode 改再 org-mode 回去
等 我 找 找 啊
好奇学姐用 org-display-custom-times
魔改了些啥?
也没什么,主要是看上去习惯一些,然后导致没办法手动输入(
'("<%a, %b %d, %Y>" . "<%a, %b %d, %Y at %H:%M>")
我看了一下 org-time-stamp
的实现,它原本就支持插入 repeater
:
(when repeater (backward-char) (insert " " repeater)
但是它有前提条件,我不知道如何操作才能使 ts
为 t。似乎需要把光标置于一个日期的区间,感觉有点复杂(不知有没有理解错,望各位大佬指出):
(let* ((ts (cond ((org-at-date-range-p t) (match-string (if (< (point) (- (match-beginning 2) 2)) 1 2))) ((org-at-timestamp-p 'lax) (match-string 0)))) ..... (repeater (and ts (string-match "\\([.+-]+[0-9]+[hdwmy] ?\\)+" ts) (match-string 0 ts)))
所以我写了一个 advice 来实现相同的效果:
(define-advice org-time-stamp (:around (fn &rest args) insert-escaped-repeater)
;;---------------------------
;; C-c . \+1w RET ;; => <2020-05-23 Sat +1w>
;; C-c . \-1w RET ;; => <2020-05-23 Sat -1w>
;;---------------------------
(apply fn args)
(when (string-match "^\\\\\\([\\+\\-].*\\)" org-read-date-final-answer)
(save-excursion
(backward-char)
(insert " "
(string-trim-right
(match-string 1 org-read-date-final-answer))))))
只需输入 repeater 的时候前面加一个“转义符”,例如:\+1w
搜遍网络,居然没有人提到过这个间隔输入的方式,难道搜索方式不对?
原来是 金星人 吗?
那我态度得端正一点,一定给你找到啊!
(defun hello ()
(interactive)
(let((org-time-stamp-formats
'("<%Y-%m-%d %a +1w>" . "<%Y-%m-%d %a %H:%M +1w>"))
)
(call-interactively 'org-time-stamp)
))
这个应该不是你想要的 他不能在C-c dot 中输入
应该看一下 org-read-date 但是人家并没有提供自定义格式的机制
看来这个问题有点难喔
这段我也看到了,就是试了半天,各种姿势都试不出来。
总之先膜了
让ts成为t的条件是
或者在时间区间 或者位于一个时间之后
repeater依赖于ts 也就是说你得先输入 1w 才能得到
对这个问题没有意义
喔 找到了
给 org-read-date-analyze 加advice
动态的改变org-time-stamp-formats
这样就可以只输入 w 就能输出 +1w 了
可以用后缀实现 -1w
这样就可以做到在 read-date的时候显示最终的效果
我不给答案 代码你们来
膜了,不知道乃有没有亲自改变过 org-time-stamp-formats ? 这东西改了以后,会导致 org-mode 不识别时间区域(乃大概不知道吧
那乃看org-at-date-range-p和format有关系吗
我一般是添加 schedule 或者 deadline 有这个需求, 所以看了下这个函数 org--deadline-or-schedule
,找到 repeater 那段
(repeater
(or
(and
(org-string-nw-p time)
(string-match org-repeat-re time)
(match-string 1 time))
(and
(org-string-nw-p old-date)
(string-match "\\([.+-]+[0-9]+[hdwmy]\\(?:[/ ][-+]?[0-9]+[hdwmy]\\)?\\)" old-date)
(match-string 1 old-date))))
(xr org-repeat-re)
得到
(seq "<" (= 4 (any "0-9")) "-" (any "0-9") (any "0-9") "-" (any "0-9") (any "0-9") " " (*\? (not (any "
>"))) (group (opt (any "+.")) "+" (one-or-more (any "0-9")) (any "dhmwy") (opt (group "/" (one-or-more (any "0-9")) (any "dhmwy")))))
需要给时间左右两边加上 “<>”,然而试了下还是不行。
接着找到这篇文章 使用elisp创建repeated-schedule-time,发现 (org-schedule 0 "<2020-05-20 +1m>")
这样确实可以,才反应过来有 calendar 那个读时间是通过 org-add-planning-info → org-read-date 这个函数,又进去看了看,貌似没有 repeater 的处理