平衡点

_ 研究棟の忘年会

…でした.

たこ焼き準備完了なボスの絵. 腕まくりは小高さんです.

のっけから捻り鉢巻だったので, ちょっとツボ.

宴の途中からは, 小高さんによるフルート独奏がスタート.

…

そして, 年を忘れた後に勉強会…＿|‾|○

_ 天文台ミーティング

毎年恒例, ウチの研究グループの天文台ミーティングです. ミーティングの内容はともかくとして, 天文台に来たら必ず行かなければならない(と個人的に思っている)のは, 深大寺の蕎麦屋さん「多聞」です.

View Larger Map

寒い日だと, 冷たい蕎麦は辛かったりするのですが, 今日は良い感じに暖かくて, 迷わず「いつもの」を注文しました. つけとろ大盛り.

二年前より少ない気がしないでも無いが, 風のウワサ(?)によると, 最近裏メニューで「大盛りより多い」盛りがある, らしい.ちなみに二年前の盛りは...

ここは量もさることながら, 味も良い(好み)なので, あっというまに完食でした.

_ んー.

やること大杉 + 時間無い...という愚痴

_ CodeRay のバージョンを上げてみるテスト

lisp のシンタックスハイライトが聞くと良いんだけれど, どうかな?

# source: lisp
;;; ob-tangle より自分用に幾つか関数を設定
;;
;;; my:org-babel-tangle-and-compile-file
;;
;; 指定された org ファイルから emacs-lisp を export してbyte-compile する.
;; - Make から呼ぶ事も想定しているので load はしない.
;;
(defun my:org-babel-tangle-and-compile-file (file)
  "export emacs-lisp and byte-compile from org files (not load).
   originally ob-tangle.el"
  (interactive "fFile to load: ")
  (flet ((age (file)
              (float-time
               (time-subtract (current-time)
                              (nth 5 (or (file-attributes (file-truename file))
                                         (file-attributes file)))))))
    (let* ((base-name (file-name-sans-extension file))
           (exported-file (concat base-name ".el"))
           (compiled-file (concat base-name ".elc")))
      ;; tangle if the org-mode file is newer than the elisp file
      (unless (and (file-exists-p compiled-file)
                   (> (age file) (age compiled-file)))
        (org-babel-tangle-file file exported-file "emacs-lisp")
        (byte-compile-file exported-file)))))

...駄目か. やっぱそんなに簡単には書けないか.

Fortran と lisp に対応できたら文句無いんだけれどなぁ...