标签:orgmode

以下是与标签 “orgmode” 相关联的文章

orgmode 导出 html 的换行处理

我之前还奇怪,在 org2blog 中设置保留换行符时,为什么可以正确处理中文的自动换行 ,今天查看了 orgmode 配置,才发现有个 advice

;;;###autoload
(defadvice org-html-paragraph (before fsh-org-html-paragraph-advice
                                      (paragraph contents info) activate)
  "Join consecutive Chinese lines into a single long line without
unwanted space when exporting org-mode to html."
  (let*
      ((orig-contents (ad-get-arg 1))
       (reg-han "[[:multibyte:]]")
       (fixed-contents (replace-regexp-in-string
                        (concat "\\(" reg-han "\\) *\n *\\(" reg-han "\\)")
                        "\\1\\2" orig-contents)))
    (ad-set-arg 1 fixed-contents)))

这段代码是从 水木 emacs 版 抄过来的,作用是修改 html 导出函数 org-html-paragraph 的第一个参数,将两个汉字中间的换行符去掉。

org2blog 的使用

当初建立这个博客就是为了试一试 org2blog ,使用一段时间后,建立了一套使用方法。把所有博客写在文件 blog.org 中,级别 1 用于区分文章,级别 1 标题是文章标题,属性是文章属性。从级别 2 开始,是文章的子标题。下面列出了一些功能点需要花时间配置的。

自动登陆

每次启动 emacs 后,需要执行一次 org2blog/wp-login 命令登陆。登录信息在 emacs 关闭后不会记录,下次启动 emacs 后,还需要再次登录,次数多了会觉得不方便。org2blog 可以通过配置实现自动登陆,具体配置可参考官方网站。

subtree 的 post-and-publish 功能

不知道出于哪方面考虑,org2blog 不提供 subtree 的 post-and-publish 功能,只有 post 接口。在配置文件中加入下面函数,可实现 post-and-publish 功能。

;;;###autoload
(defun org2blog/wp-post-subtree-and-publish ()
  "Publish the current subtree as a page."
  (interactive)
  (org2blog/wp-post-subtree t))

多余窗口处理

每次发布文章后,org2blog 会弹出一个新窗口,可能是临时 buffer,没什么意义,总要手动关闭。下面这段代码可以在发布文章后取消弹出窗口。

(defadvice org2blog/wp-upload-files-replace-urls
    (after fj/org2blog/wp-upload-files-replace-urls (text) activate)
  (delete-window))

换行处理

使用 org2blog 过程中,发现对换行处理不太好:如果将 org2blog/wp-keep-new-lines 设置成 t ,中文换行处理基本没有问题,能识别自动换行还是硬换行,对于自动换行会在转换后连接成一行。而英文处理会有问题,所有的自动换行都被识别成了段硬换行。如果将 org2blog/wp-keep-new-lines 设置成 nil , 中文处理会有问题,列表中后必要的换行会被删除。

麻烦是的, org2blog/wp-keep-new-lines 是全局配置,无法根据一篇文章进行换行调整。我设计了一个解决方法,如果在属性中添加了 ENGLISH 描述,则不保留换行符,适用于英文文章。如果没有这个属性,则保留换行符,适用于中文文章。这需要通过写代码来实现,修改代码的方法不可取,因为库会经常升级,覆盖这些修改。较好的方法是用 defadvice

(defadvice org2blog/wp--parse-subtree-entry
    (before fj/org2blog/wp--parse-subtree-entry () activate)
  (let* ((keep-new-lines (org-entry-get (point) "ENGLISH")))
    (if keep-new-lines
  (setq keep-new-lines nil)
      (setq keep-new-lines org2blog/wp-keep-new-lines))
    (plist-put org2blog/wp-export-options :wp-keep-new-lines keep-new-lines)))