Elisp: Chinese Character Reference Linkify

By Xah Lee. Date: . Last updated: .

We need a command to change the character under cursor into several HTML links.

For example, this

becomes:

<div class="x23394">
<b class="w"></b>
<span class="en">
<a href="…">Translate</a> •
<a href="…">Wiktionary</a> •
<a href="…">history</a>
</span>
</div>

Appears in browser like this:

chinese char link 6a017

This is useful for writing blog on languages and linguistics.

Solution

Here's the code:

(defun xah-words-chinese-linkify ()
  "Make the Chinese character before cursor into Chinese dictionary reference links.
URL `http://ergoemacs.org/emacs/elisp_chinese_char_linkify.html'
Version 2019-01-03"
  (interactive)
  (let (
        ($template
         "<div class=\"chinese-etymology-96656\"><b class=\"w\">▮</b> <span class=\"en\"><a href=\"http://translate.google.com/#zh-CN|en|▮\">Translate</a> • <a href=\"http://en.wiktionary.org/wiki/▮\">Wiktionary</a> • <a href=\"http://hanziyuan.net/#▮\">history</a></div>"
         )
        ($char (buffer-substring-no-properties (- (point) 1) (point))))
    (delete-char -1)
    (insert (replace-regexp-in-string "▮" $char $template))))

This is truely a time saver.

URL Encoding of Chinese

Note: technically, Chinese chars in a URL should be URL Encoded.

For example:

http://en.wiktionary.org/wiki/中

should be:

http://en.wiktionary.org/wiki/%E4%B8%AD

(A Chinese character should become bytes in hex from the char's UTF-8 encoding. The char 中's UTF-8 encoding is 3 bytes of the following hexadecimal: E4 B8 AD.)

However, i think the situation of percent encoding is a abomination. [see Problems of Symbol Congestion in Computer Languages; ASCII Jam vs Unicode] I decided to not botch my Chinese chars in URL. This does not cause practical problems.

If you want to do that, see: Elisp: URL Percent Decode/Encode

Elisp HTML Commands

  1. wrap-url
  2. Make URL links
  3. Make Image Links
  4. Extract URL
  5. Word to Wikipedia Linkify
  6. Wikipedia URL Linkify
  7. URL Percent Decode/Encode
  8. Lines to HTML Table
  9. Markup Function Names
  10. Color Source Code
  11. Transform Text Under Cursor
  12. Chinese Char Reference Linkify
  13. HTML make-citation
  14. update-title
  15. Google Map Linkify 🌐
  16. CSS Compressor
  17. Make Ruby Annotation
  18. Move Image File

If you have a question, put $5 at patreon and message me.
Or Buy Xah Emacs Tutorial
Or buy a nice keyboard: Best Keyboards for Emacs

Emacs

Emacs Lisp

Misc