截断组织表中右对齐列的开头

我在包含长文件名的组织模式表中有一列。文件名中有趣的部分是后几个字符，而不是前几个。例如，给定以下文件：

/data/capture/abcd_spectrum_01292000.dat
/data/capture/abcd_spectrum_02251435.dat
/data/capture/abcd_spectrum_02251847.dat
/data/capture/abcd_spectrum_02251848.dat
/data/capture/abcd_spectrum_02251848.dat
/data/capture/abcd_spectrum_02251849.dat
/data/capture/abcd_spectrum_02251851.dat
/data/capture/abcd_spectrum_02251852.dat
/data/capture/abcd_spectrum_02251852.dat
/data/capture/abcd_spectrum_02270910.dat

我希望我的组织表如下所示：

|            File | TD | FD | MF | Notes:               |
|-----------------+----+----+----+----------------------|
|           <r15> |    |    |    | <l20>                |
| <=_01292000.dat |    |    |    |                      |
| <=_02251435.dat |    |    |    |                      |
| <=_02251847.dat |    |    |    |                      |
| <=_02251848.dat |    |    |    |                      |
| <=_02251848.dat |    |    |    |                      |
| <=_02251849.dat |    |    |    |                      |
| <=_02251851.dat |    |    |    |                      |
| <=_02251852.dat |    |    |    |                      |
| <=_02251852.dat |    |    |    |                      |
| <=_02270910.dat |    |    |    |                      |

但是它看起来像这样：

|            File | TD | FD | MF | Notes:               |
|-----------------+----+----+----+----------------------|
|           <r15> |    |    |    | <l20>                |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |
| /data/capture=> |    |    |    |                      |

是否可以使右对齐的列截断到左侧，以便我可以看到条目的最右边部分？

据我所知，没有内置支持自定义表列的截断。但是，您可以修改命令org-table-align以实现所需的功能：

1. 查找文件org-table.el。它位于您的org-mode安装目录中。打开它的最快方法是通过M-x find-library RET org-table RET。

2. 将的定义复制org-table-align到您的.emacs文件中。

3. 更换

   (add-text-properties f1 (length xx) (list 'org-cwidth t) xx)
   (add-text-properties (- f1 2) f1
                  (list 'display org-narrow-column-arrow)
                  xx)))))
   

   与

   (let (s1 e1 s2 e2 arrow-string)
     (if (and falign1 (equal (downcase falign1) "r"))
         (setq s1 0
               e1 (- (length xx) f1)
               s2 (- (length xx) f1)
               e2 (- (length xx) (- f1 2))
               arrow-string "<=")
       (setq s1 f1
             e1 (length xx)
             s2 (- f1 2)
             e2 f1
             arrow-string org-narrow-column-arrow))
     (add-text-properties s1 e1 (list 'org-cwidth t) xx)
     (add-text-properties s2 e2 (list 'display arrow-string) xx))))))
   

_{使用8.2.8版进行了测试org-mode。}