org-modeのagendaを月カレンダー形式で表示してくれるcalfw.elだが、以前から、数日間にわたるイベントの表示が乱れる。どうやらorg-modeの仕様変更に、calfwが対応していないことが原因らしい。Webを検索すると、calfw.elを修正するパッチがあるが、ソースを変更すると今後面倒なことになりそうなので、init.elに関数をオーバーライドする記述を加える方式を採用する。
;; the code is cited from https://github.com/kiwanami/emacs-calfw/issues/111 :config ;; hotfix: incorrect time range display ;; source: https://github.com/zemaye/emacs-calfw/commit/3d17649c545423d919fd3bb9de2efe6dfff210fe (defun cfw:org-get-timerange (text) "Return a range object (begin end text). If TEXT does not have a range, return nil." (let* ((dotime (cfw:org-tp text 'dotime))) (and (stringp dotime) (string-match org-ts-regexp dotime) (let* ((matches (s-match-strings-all org-ts-regexp dotime)) (start-date (nth 1 (car matches))) (end-date (nth 1 (nth 1 matches))) (extra (cfw:org-tp text 'extra))) (if (string-match "(\\([0-9]+\\)/\\([0-9]+\\)): " extra) ( list( calendar-gregorian-from-absolute (time-to-days (org-read-date nil t start-date)) ) (calendar-gregorian-from-absolute (time-to-days (org-read-date nil t end-date))) text))))))
emacsが29にバージョンアップされて、起動したときのフレームの位置や大きさが微妙に前と違うので、init.elで明示的に指定する。
(setq default-frame-alist '( (top . 100) (left . 100) (height . 60) (width . 120) (vertical-scroll-bars . nil) (horizontal-scroll-bars . nil) (tool-bar-lines . 0) ) initial-frame-alist '( (top . 1) (left . 1) (width . 120) (height . 60) ) frame-title-format "%f" )
今週のJRAはダートのGIIIが新潟と札幌で一つずつ。新潟のレパードステークスは、3才限定なのでこちらにする。出走馬で知っているのはダービーで大逃げを打って最後に抜かれたパクスオトマニカくらい。まったくわからないし、Gallopの予想も割れている。ここは観点を変えて、ダート1800の持ちタイム順の上位6頭で三連複ボックスにしよう。
持ちタイム順位 | 馬番 | 馬名 | オッズ | 人気順 |
---|---|---|---|---|
1 | 14 | クールミラボー | 6.4 | 4 |
2 | 5 | ライオットガール | 12.8 | 5 |
3 | 15 | ハッスルダンク | 19.0 | 9 |
4 | 9 | ミスティックロア | 3.4 | 1 |
5 | 4 | マオノアラシ | 59.7 | 13 |
6 | 8 | ベンダバリラビア | 99.8 | 15 |
大胆に人気上位を切っているので当たる気がしない。
結果は、
着順 | 馬番 | 馬名 | 人気順 |
---|---|---|---|
1 | 5 | ライオットガール | 5 |
2 | 6 | オメガギネス | 3 |
3 | 11 | ルクスフロンティア | 8 |
外したオメガギネスが入って、8番人気のルクスフロンティアも来て残念。このところ7連敗。まだ収支はプラスだが、そろそろ勝たないとまずい。
C-x C-q
)、さらに矩形編集モード( C-x SPC
)に入って、問題があるファイルの先頭のidentifier部分を削除する。m
でマークを付けて、 M-x denote-dired-rename-marked-files
を実行。少し時間がかかるが、新しく重複のないidentifierを付けてくれる。M-x denote-rename-file-using-front-matter
でファイル名を変更。こういう作業をしたかった。落ち着かないので、emacsのフォントの整備をする。まずはbrewを使って人気フォントのインストール。
$ brew tap homebrew/cask-fonts $ brew search /font/ --cask $ brew install font-dejavu --cask $ brew install font-ibm-plex --cask
本日のとりあえずの設定。デフォルトの日本語を明朝にしたのでかなり雰囲気が変わる。
(when (or (eq window-system 'mac) (eq window-system 'ns)) (set-face-attribute 'default nil :family "DejaVu Sans Mono" :height 140 ) (set-face-attribute 'fixed-pitch nil :family "DejaVu Sans Mono") (set-face-attribute 'variable-pitch nil :family "IBM Plex Serif") (set-fontset-font nil 'japanese-jisx0208 (font-spec :family "Hiragino Mincho ProN")) (setq face-font-rescale-alist '((".*Hiragino Mincho ProN.*" . 1.2))) )
JRAは札幌記念GII。人気馬が多く出走する華やかなレースとなったが、検討する時間がないので人気順の三連複ボックス。結果は、
着順 | 馬番 | 馬名 | 単勝人気 |
---|---|---|---|
1 | 13 | プログノーシス | 2 |
2 | 10 | トップナイフ | 9 |
3 | 1 | ソーヴァリアント | 4 |
2着に9番人気のトップナイフが入ってアウト。三連複は28,200円なのでかなり荒れたレースとなった。
結果は、2着に8番人気のシナモンスティックが入ってアウト。直前の豪雨で馬場が荒れたのが影響したか。
着順 | 馬番 | 馬名 | 単勝人気 |
---|---|---|---|
1 | 14 | ナムラクレア | 1 |
2 | 8 | シナモンスティック | 8 |
3 | 12 | トウシンマカオ | 2 |