平衡点


2019/04/01

_ 元号が「令和」との事で.

ddskk 使いとしては, 例えば

(setq skk-gengo-alist
      '((reiwa "令和" "R")
        (heisei "平成" "H")
        (showa "昭和" "S")
        (taisho "大正" "T")
        (meiji "明治" "M")))
(defun my:skk-ad-to-gengo-1 (ad &optional not-gannen)
  ;; Add "reiwa"
  (when (>= 1866 ad)
    (skk-error "分りません" "Unknown year"))
  (cons (cond ((>= 1911 ad)
               (setq ad (- ad 1867))
               (cdr (assq 'meiji skk-gengo-alist)))
              ((>= 1925 ad)
               (setq ad (- ad 1911))
               (cdr (assq 'taisho skk-gengo-alist)))
              ((>= 1988 ad)
               (setq ad (- ad 1925))
               (cdr (assq 'showa skk-gengo-alist)))
              ((>= 2018 ad)
               (setq ad (- ad 1988))
               (cdr (assq 'heisei skk-gengo-alist)))
              (t
               (setq ad (- ad 2018))
               (cdr (assq 'reiwa skk-gengo-alist))))
        (cond (not-gannen ad)
              ((= ad 1) "元")
              (t ad))))
(advice-add 'skk-ad-to-gengo-1 :override 'my:skk-ad-to-gengo-1)

…こんな塩梅だろうか, とか?(雑)


連絡先など
最近の日記
  • 2024/05/21
    • 1. GnuPG が 2.2.43 に更新されて, Emacs の EasyPG でファイルが保存できなくなりました
    • 2. 久々に esup を走らせたら
  • 2024/05/10
    • 1. 特定の文字列を含むRubyスクリプトをEmacsで開くと CPU100% で止まります
  • 2024/04/28
    • 1. CF-SR3 での生活環境構築 (できてない)
  • 2024/03/29
    • 1. Debian GNU/Linux on CF-SR3
  • 2024/03/25
    • 1. org-mode → beamer でのリスト記号の一時変更
一覧
2006|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|02|03|04|08|09|10|11|12|
2013|01|02|03|04|05|06|08|09|10|11|12|
2014|01|02|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|09|10|
2016|02|03|
2017|01|02|03|05|06|07|09|11|12|
2018|03|06|07|10|11|12|
2019|01|02|03|04|05|07|10|12|
2020|01|02|03|04|05|08|09|10|11|12|
2021|01|02|03|05|06|07|08|09|11|12|
2022|01|02|03|04|05|06|08|10|11|12|
2023|02|03|04|06|08|09|11|12|
2024|01|02|03|04|05|
Back to Top ▲