平衡点

2006/04/01

_ 帰札

しました. 毎日メシが旨すぎて, ブロイラー生活.

温泉の脱衣場にて,

初日に体重計に乗って… Orz
最終日に乗って… Orz

梅ちゃんの「こんだけ呑ませてもらってんだから頑張んなアカン」ってのは真理だと思います. ってか梅ちゃん勇者でした. 英会話の重要性, 得にリスニングの重要性を強く認識した一週間でしたよ.

ってか, 会話で関係代名詞バリバリ使われるのって始めてだ.

あと, 普通の文でも, 語尾を上げればそれだけで疑問形になって通じてくれるんですね.多分寛大なる大先生の心意気って奴だとは思いましたが.

そんな訳で, 先輩の T シャツ, おもしろかったんで写真とった. コレ欲しいかも.

_ Ruby-VTK

竹広さんに, グリグリと動いている絵を見せて頂く.

感動 …すげぇ, すげぇよ.

_ エイプリルフール

私はエイプリルフールネタが思いつきません, ので.

だから「サイト閉鎖宣言」とか「実は重病で死亡宣言」とかやっているのを見ると, すこし…だかなぁ, と思います.

[ツッコミを入れる]

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)