August 8, 2023 (Tue)
- 出汁巻き玉子。焼き器の手入れが効いて、くっつかずにうまく焼けた。
- お盆シーズンで、通常業務から解放された方々から別方面の用件メールがいくつか舞い込む。
- 息子一家が明日から来る予定だが、来るときと帰るときと、二つの別の台風が影響しそうで、先行きが不透明。
- 昼はスーパーのお寿司。
- 久しぶりにスンマの翻訳に手を付ける。なぜかGithubのトークンが無効になっていて作り直したりする。
- 夕食は、春雨と卵とピーマンの炒めもの。
今週の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連敗。まだ収支はプラスだが、そろそろ勝たないとまずい。
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" )
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))))))