2001.12.05

1: 中指NICOLA on MS-IME 三日目

しかし「ほ」と「ね」が入っているとやはりとまどう。

それ以外のほとんどの運指はこれまでと同じなので、 入力効率はそれほど落ちていないように思う。

2: いつの間にか

3: MakingOfWikiTech

4: テーブルを使ってカレンダーを表示する。

(load-library "mhc-date.el")

(defun cake-cal (&optional year month)

  (interactive)

  (let*

      ((yy (or year (ddate-yy (ddate-now))))

       (mm (or month (ddate-mm (ddate-now))))

       (from (list yy mm 1))

       (to (ddate-mm-last-day from)))

    (concat "Su||Mo||Tu||We||Th||Fr||Sa\n"

            (let ((f

                   (lambda (n)

                     (if (> n 0)

                         (concat "　|"

                                 (funcall f (- n 1)))))))

              (funcall f (ddate-ww from)))

            (let ((fn

                   (lambda (d)

                     (if (ddate<= d to)

                         (concat

			  (if (emacs-wiki-page-file (ddate-to-s1 d "."))

                              (concat "[[" (ddate-to-s1 d ".") "]"

                                      "[ " (ddate-dd-s d) "]]")

                            (ddate-dd-s d))

                          (if (= 6 (ddate-ww d)) "\n" "|")

                          (funcall fn (ddate-inc d)))))))

              (funcall fn from)))))

追記

WikiName の実在チェックをする部分をemacs-wiki-page-file() を使うように変更。(2001.12.08)

例:

<lisp>(cake-cal)</lisp> とここに書くと、publish時には下のように展開される。

5: 実用になるか分かりませんが