Mercurial > emacs
view leim/quail/sisheng.el @ 96975:60149c696033
2008-07-24 Carsten Dominik <dominik@science.uva.nl>
* org-exp.el (org-export-region-as-html, org-export-as-html): Make
sure that calls from `org-export-region-as-html' do not do the
special check for a subtree.
* org-agenda.el (org-batch-store-agenda-views): Fix parsing bug.
* org.el (org-open-file): Use
`org-open-directory-means-index-dot-org'.
(org-open-directory-means-index-dot-org): New option.
* org.el (org-make-link-string): Remove link attributes from
description.
(org-open-at-point): Remove link attributes bevore using the path.
* org-exp.el (org-export-as-html): Handle link attributes.
* org.el (org-extract-attributes, org-attributes-to-string): New functions.
* org-table.el (org-table-to-lisp): New function.
* org.el (org-narrow-to-subtree): Do not include the final newline
into the narrowed region.
* org-agenda.el (org-agenda-custom-commands-local-options): Fixed
bug with user-define skipping condition.
* org-agenda.el (org-agenda-get-restriction-and-command): Fixed typo.
* org-exp.el (org-export-html-style-default): Automatic overflow
handling for pre fields.
(org-export-as-ascii, org-export-as-html): Change default format
for time stamp.
* org-table.el (org-table-export): Offer completion for translator
functions, and do not require a heading above the table.
* org.el (org-renumber-ordered-list, org-beginning-of-item-list):
Cater for the case of a list starting in the first line of the
buffer.
* org-publish.el (org-publish-find-title): Bug fix.
(org-publish-org-index): Implement new :index-style option.
* org-publish.el (org-publish-timestamp-filename): Use
SHA1-encoded file names in the timestamp directory.
* org-publish.el (org-publish-needed-p): Be verbose about files
published and files skipped.
* org-exp.el (org-export-preprocess-string): Swap link
normalization and inernal link targeting.
* org-publish.el (org-publish-needed-p): Create timestamp
directory when it does not exist.
* org-clock.el (org-clock-out-when-done): Doc fix.
* org.el (org-agenda-skip-unavailable-files): Doc fix.
* org-exp.el (org-export-remove-comment-blocks-and-subtrees):
Ignore case when searching for the COMMENT cookie at export time.
* org-exp.el (org-get-file-contents)
(org-get-and-remove-property): New functions.
(org-export-handle-include-files): Handle the new prefix options.
(org-export-as-html): Fix the verse environment.
* org.el (org-time=, org-time<, org-time<=, org-time>)
(org-time>=, org-time<>, org-2ft): New functions.
(org-op-to-function): Also provide for the time testing fucntions.
* org-exp.el (org-export-html-style-default): New constant.
* org-exp.el (org-export-html-style-extra): New variable.
(org-export-splice-style): New function.
* org-exp.el (org-export-plist-vars, org-export-as-html):
Implement `org-export-creator-info'.
(org-export-creator-info): New option.
* org.el (org-clock-drawer-start-re, org-clock-drawer-end-re)
(org-property-drawer-re, org-clock-drawer-re): New constants.
* org-exp.el (org-icalendar-use-deadline)
(org-icalendar-use-scheduled): New options.
(org-icalendar-include-todo): Default changed to t.
(org-print-icalendar-entries): Implement better utilization of
scheduling and deadline time stamps.
(org-export-target-internal-links, org-export-as-html): Allow file
lines without the "file:" prefix if the file path is an absolute
path or starts with ".".
* org-clock.el (org-clocktable-shift): Also undertand yesterday,
lastweek etc.
(org-clock-special-range): Also undertand yesterday, lastweek etc.
* org.el (org-agenda-skip-archived-trees): Docstring now
discourages using this.
(org-scan-tags): Check for org-agenda-archives-mode.
(org-map-entries): Make sure org-agenda-archives-mode is nil.
(org-agenda-files): Functionality of second arg changed.
* org-agenda.el (org-agenda-archives-mode): New variable
(org-write-agenda, org-prepare-agenda, org-agenda-list)
(org-search-view, org-todo-list, org-tags-view)
(org-agenda-list-stuck-projects): Call `org-agenda-files' with
`ifmode' argument.
(org-agenda-quit): Reset the archives mode.
(org-agenda-archives-mode): New command.
(org-agenda-set-mode-name): Include archives info.
* org.el (org-paste-subtree): Make sure the yanked headline is
visible if it was yanked at a visible point.
(org-move-item-up): Fix the bug with moving white space at the end
of the item.
(org-show-empty-lines-in-parent): New function.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Thu, 24 Jul 2008 13:59:56 +0000 |
parents | 4f1fd208c354 |
children | 0d2e4142fb60 |
line wrap: on
line source
;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration ;; Copyright (C) 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Werner LEMBERG <wl@gnu.org> ;; Keywords: multilingual, input method, Chinese, pinyin, sisheng ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;;; Code: (require 'quail) (defconst sisheng-regexp "[āēīōūǖ]\\|üē") ;; First element is the key, ;; second element is the vowel used for the input sequence, ;; last four elements are the resulting tones. ;; (defconst sisheng-vowel-table '(("ā" "a" "ā" "á" "ǎ" "à") ("ē" "e" "ē" "é" "ě" "è") ("ī" "i" "ī" "í" "ǐ" "ì") ("ō" "o" "ō" "ó" "ǒ" "ò") ("ū" "u" "ū" "ú" "ǔ" "ù") ("ǖ" "v" "ǖ" "ǘ" "ǚ" "ǜ") ("üē" "ve" "üē" "üé" "üě" "üè"))) ;; All possible syllables in Mandarin Chinese, presented in the first ;; tone. Note that make-sisheng-rules always constructs rules for all ;; four tones even if some of those tones aren't used in Mandarin. ;; (defconst sisheng-syllable-table '("ā" "āi" "ān" "āng" "āo" "bā" "bāi" "bān" "bāng" "bāo" "bēi" "bēn" "bēng" "bī" "biān" "biāo" "biē" "bīn" "bīng" "bō" "bū" "cā" "cāi" "cān" "cāng" "cāo" "cē" "cēn" "cēng" "cī" "cōng" "cōu" "cū" "cuān" "cuī" "cūn" "cuō" "chā" "chāi" "chān" "chāng" "chāo" "chē" "chēn" "chēng" "chī" "chōng" "chōu" "chū" "chuā" "chuāi" "chuān" "chuāng" "chuī" "chūn" "chuō" "dā" "dāi" "dān" "dāng" "dāo" "dē" "dēi" "dēn" "dēng" "dī" "diān" "diāo" "diē" "dīng" "diū" "dōng" "dōu" "dū" "duān" "duī" "dūn" "duō" "ē" "ēi" "ēn" "ēng" "ēr" "fā" "fān" "fāng" "fēi" "fēn" "fēng" "fiāo" "fō" "fōu" "fū" "gā" "gāi" "gān" "gāng" "gāo" "gē" "gēi" "gēn" "gēng" "gōng" "gōu" "gū" "guā" "guāi" "guān" "guāng" "guī" "gūn" "guō" "hā" "hāi" "hān" "hāng" "hāo" "hē" "hēi" "hēn" "hēng" "hōng" "hōu" "hū" "huā" "huāi" "huān" "huāng" "huī" "hūn" "huō" "jī" "jiā" "jiān" "jiāng" "jiāo" "jiē" "jīn" "jīng" "jiōng" "jiū" "jū" "juān" "juē" "jūn" "kā" "kāi" "kān" "kāng" "kāo" "kē" "kēi" "kēn" "kēng" "kōng" "kōu" "kū" "kuā" "kuāi" "kuān" "kuāng" "kuī" "kūn" "kuō" "lā" "lāi" "lān" "lāng" "lāo" "lē" "lēi" "lēng" "lī" "liā" "liān" "liāng" "liāo" "liē" "līn" "līng" "liū" "lōng" "lōu" "lū" "luān" "lūn" "luō" "lǖ" "lüē" "mā" "māi" "mān" "māng" "māo" "mē" "mēi" "mēn" "mēng" "mī" "miān" "miāo" "miē" "mīn" "mīng" "miū" "mō" "mōu" "mū" "nā" "nāi" "nān" "nāng" "nāo" "nē" "nēi" "nēn" "nēng" "nī" "niān" "niāng" "niāo" "niē" "nīn" "nīng" "niū" "nōng" "nōu" "nū" "nuān" "nuō" "nǖ" "nüē" "ō" "ōu" "pā" "pāi" "pān" "pāng" "pāo" "pēi" "pēn" "pēng" "pī" "piān" "piāo" "piē" "pīn" "pīng" "pō" "pōu" "pū" "qī" "qiā" "qiān" "qiāng" "qiāo" "qiē" "qīn" "qīng" "qiōng" "qiū" "qū" "quān" "quē" "qūn" "rān" "rāng" "rāo" "rē" "rēn" "rēng" "rī" "rōng" "rōu" "rū" "ruā" "ruān" "ruī" "rūn" "ruō" "sā" "sāi" "sān" "sāng" "sāo" "sē" "sēn" "sēng" "sī" "sōng" "sōu" "sū" "suān" "suī" "sūn" "suō" "shā" "shāi" "shān" "shāng" "shāo" "shē" "shēi" "shēn" "shēng" "shī" "shōu" "shū" "shuā" "shuāi" "shuān" "shuāng" "shuī" "shūn" "shuō" "tā" "tāi" "tān" "tāng" "tāo" "tē" "tēi" "tēng" "tī" "tiān" "tiāo" "tiē" "tīng" "tōng" "tōu" "tū" "tuān" "tuī" "tūn" "tuō" "wā" "wāi" "wān" "wāng" "wēi" "wēn" "wēng" "wō" "wū" "xī" "xiā" "xiān" "xiāng" "xiāo" "xiē" "xīn" "xīng" "xiōng" "xiū" "xū" "xuān" "xuē" "xūn" "yā" "yān" "yāng" "yāo" "yē" "yī" "yīn" "yīng" "yō" "yōng" "yōu" "yū" "yuān" "yuē" "yūn" "zā" "zāi" "zān" "zāng" "zāo" "zē" "zēi" "zēn" "zēng" "zī" "zōng" "zōu" "zū" "zuān" "zuī" "zūn" "zuō" "zhā" "zhāi" "zhān" "zhāng" "zhāo" "zhē" "zhēi" "zhēn" "zhēng" "zhī" "zhōng" "zhōu" "zhū" "zhuā" "zhuāi" "zhuān" "zhuāng" "zhuī" "zhūn" "zhuō")) ;; This function converts e.g. ;; ;; "zhuō" ;; ;; into ;; ;; (("zhuo4" ["zhuò"]) ;; ("zhuo3" ["zhuǒ"]) ;; ("zhuo2" ["zhuó"]) ;; ("zhuo1" ["zhuō"])) ;; (defun quail-make-sisheng-rules (syllable) (let ((case-fold-search t) vowel-match vowel-list input-vowel base-key key value key-value-list (i 1)) (string-match sisheng-regexp syllable) (setq vowel-match (downcase (match-string 0 syllable))) (setq vowel-list (cdr (assoc-string vowel-match sisheng-vowel-table))) (setq input-vowel (car vowel-list)) (setq base-key (replace-match input-vowel nil nil syllable)) (while (<= i 4) (setq key (concat base-key (number-to-string i))) (setq value (vector (replace-match (nth i vowel-list) nil nil syllable))) (push (list key value) key-value-list) (setq i (1+ i))) key-value-list)) ;; Set up sisheng input method. ;; (quail-define-package "chinese-sisheng" ; name "Chinese" ; language "ǚ" ; title t ; guidance "Sìshēng input method for pīnyīn transliteration of Chinese. Examples: shuang1 -> shuāng Lv3 -> Lǚ AN4 -> ÀN Use the fifth (unstressed) tone for syllables containing `ü' without a tone mark. Example: nve5 -> nüe " ; docstring nil ; translation-keys t ; forget-last-selection nil ; deterministic nil ; kbd-translate nil ; show-layout nil ; create-decode-map nil ; maximum-shortest nil ; overlay-plist nil ; update-translation-function nil ; conversion-keys t ; simple ) ;; Call quail-make-sisheng-rules for all syllables in sisheng-syllable-table. ;; (let ((case-table-save (current-case-table)) sisheng-list) (set-case-table (standard-case-table)) (dolist (syllable sisheng-syllable-table) (setq sisheng-list (append (quail-make-sisheng-rules syllable) sisheng-list))) (dolist (syllable sisheng-syllable-table) (setq sisheng-list (append (quail-make-sisheng-rules (upcase-initials syllable)) sisheng-list))) (dolist (syllable sisheng-syllable-table) (setq sisheng-list (append (quail-make-sisheng-rules (upcase syllable)) sisheng-list))) (eval `(quail-define-rules ,@sisheng-list ("lv5" ["lü"]) ("lve5" ["lüe"]) ("nv5" ["nü"]) ("nve5" ["nüe"]) ("Lv5" ["Lü"]) ("Lve5" ["Lüe"]) ("Nv5" ["Nü"]) ("Nve5" ["Nüe"]) ("LV5" ["LÜ"]) ("LVE5" ["LÜE"]) ("NV5" ["NÜ"]) ("NVE5" ["NÜE"]))) (set-case-table case-table-save)) ;; Local Variables: ;; coding: utf-8 ;; End: ;; arch-tag: 1fa6ba5f-6747-44bc-bf12-30628ad3e8ad ;;; sisheng.el ends here