org-export-as-html したときに強調要素前後の半角空白が気になって仕方がない

org-mode emacs elisp

org-export-as-html するときに、

a *bcd* /efg/ =hij=

が

a <b>bcd</b> <i>efg</i> <code>hij</code>

のように出力されるが、前後の半角スペースもそのまま出力されてしまうのでなんかかっこ悪い。
気になる。困った。

org-export-html-final-hook という変数に、
エクスポートの最終段階で hook する関数を登録できるので、
以下のような関数を登録する。

(setq org-export-html-final-hook
      (lambda ()
        (let ((tag-name-list (list "i" "code" "b" "del")))
          (goto-char (point-min))
          (while (re-search-forward
                  (concat " <\\(" (implode tag-name-list "\\|") "\\)>")
                  nil t)
            (goto-char (match-beginning 0))
            (delete-char 1))
          (goto-char (point-min))
          (while (re-search-forward
                  (concat "</\\(" (implode tag-name-list "\\|") "\\)> ")
                  nil t)
            (goto-char (match-end 0))
            (delete-char -1)))))

バッファのあたまから見ていって、生成されたタグの前後の半角スペースを消していくだけの単純な関数…。

読む

php 
#ifdef ZTS
# define CG(v) TSRMG(compiler_globals_id, zend_compiler_globals *, v)
int zendparse(void *compiler_globals);
#else
# define CG(v) (compiler_globals.v)
extern ZEND_API struct _zend_compiler_globals compiler_globals;
int zendparse(void);
#endif
  • TSRM -> Thread Safe Resource Manager
  • LANG_SCNG -> Language Scanner Globals
typedef struct _znode {
	int op_type;
	union {
		zval constant;

		zend_uint var;
		zend_uint opline_num; /*  Needs to be signed */
		zend_op_array *op_array;
		zend_op *jmp_addr;
		struct {
			zend_uint var;	/* dummy */
			zend_uint type;
		} EA;
	} u;
} znode;
  • EG -> #define EG(v) (executor_globals.v)