平衡点


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/10/09
    • 1. Mastodon でのメール通知, というか Exim4 と Apparmor
  • 2024/06/19
    • 1. WSL2 での gpg-agent, ssh-agent
  • 2024/06/18
    • 1. WSL で Windows 側のフォントを利用する
  • 2024/06/17
    • 1. WSLとWindowsの時刻同期
  • 2024/06/12
    • 1. wsl2 で systemd
    • 2. wslg の設定
一覧
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|06|10|
Back to Top ▲