emacs - Emacs 组织模式，次要细节

Question

我仍然可以找到一些小细节来优化我的工作流程，

给定 TODO 列表，其中包含以下元素：

- [ ] task1
- [ ] task2

我想引入一个新的“- []”行，但是“M - Enter”不会产生它（只是一个“-”）。

另一件事是如何产生一系列的东西。想想命令行扩展：{a..z} 或 {1..10}。如何生成所有元素：

 "a b c d ..." 

或者

 "1 2 3 4 ..."?

Answer 1

Org-mode 绑定org-insert-todo-heading到<M-S-return>它创建与上一个级别具有相同状态的新标题。

-[ ] foo <cursor>使用该命令扩展为

- [ ] foo
- [ ] <cursor>

自然也适用于其他标题类型，例如

** TODO heading1<cursor>使用该命令扩展为

** TODO heading1
** TODO <cursor>

Answer 2

请下次发布两个单独的问题。它更有生产力。

第一个问题

这在最新的 org-mode中不是问题

第二个问题

我一直在玩正是这样做的代码。我刚刚在https://github.com/abo-abo/tiny上发布了它。

该代码的默认全局绑定tiny-expand是C-;. 以下是一些可扩展的模板：

m10
m5 10
m5,10
m5 10*xx
m5 10*xx&x
m5 10*xx&0x&x
m25+x?a&c
m25+x?A&c
m97,122stringx
m97,122stringxx
m97;122stringxupcasex
m10+3*100x
m\n10expx

您只需输入这些（有时）几个字符，并将C-;光标放在表达式的末尾。表达式相应地替换为

0 1 2 3 4 5 6 7 8 9 10
5 6 7 8 9 10
5,6,7,8,9,10
25 36 49 64 81 100
19 24 31 40 51 64
0x19 0x24 0x31 0x40 0x51 0x64
a b c d e f g h i j k l m n o p q r s t u v w x y z
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn,oo,pp,qq,rr,ss,tt,uu,vv,ww,xx,yy,zz
aA;bB;cC;dD;eE;fF;gG;hH;iI;jJ;kK;lL;mM;nN;oO;pP;qQ;rR;sS;tT;uU;vV;wW;xX;yY;zZ
3 103 203 303 403 503 603 703 803 903 1003
1.0
2.718281828459045
7.38905609893065
20.085536923187668
54.598150033144236
148.4131591025766
403.4287934927351
1096.6331584284585
2980.9579870417283
8103.083927575384
22026.465794806718

我不知道你或其他人是否会觉得它有用，但它对我很有用，发布它只需 5 分钟。所以如果你想看看。

Answer 3

这是关于您的第二个问题（关于系列）：

(defun series (from to &optional delimit step formatter)
  (interactive "nSeries left bound: \nnSeries right bound: ")
  (let (delimiter step)
    (if (null current-prefix-arg)
        (setf delimiter " " step (if (< from to) 1 -1)
              formatter #'number-to-string)
      (setf delimiter (read-string "Delimit with: " ", ")
            step (read-number "Increment by: " 1)
            formatter
            (let ((minibuffer-completing-symbol t))
              (eval (read-from-minibuffer
                     "Number to string function: "
                      "#'char-to-string" read-expression-map t
                     'read-expression-history)))))
    (insert
     (mapconcat formatter
                (loop for i = from then (+ i step)
                      with tester = (if (< step 0) #'>= #'<=)
                      while (funcall tester i to)
                      collect i)
                delimiter))))

哦，我还没有看到 abo-abo 发布的内容。无论如何，将其留在这里作为替代方案。