2025-03-04の日報

今日やったこと

Emacs

org-modeにledgerを導入した。ledgerはテキストベースで複式帳簿を扱えるCLIツール。

Emacsでの連携方法は2種類ある。

1つめは普通にledgerファイルを読み書きする方法。

公式からledger-modeというプラグインが提供されているのでそれを使う。

2つめはorg-modeを使う方法。

org-modeは標準でledgerをサポートしているのでこんな感じで書けばorg-babelで実行できる。

gptelにコンテキストを加える関数が良い感じになった。

llm.txtとかはmarkitdownにかける必要がないからmarkitdownにかける関数とかけない関数に分離した。

(defun markitdown (html)
  (let ((proc (make-process
           :name "markitdown"
           :buffer (get-buffer-create "*markitdown*")
           :command '("markitdown")
           :connection-type 'pipe)))

    ;; Erase buffer contents
    (with-current-buffer (get-buffer "*markitdown*")
      (erase-buffer))

    (process-send-string proc html)
    (process-send-eof proc)))

(defun gptel-add-website (url)
  (interactive "s" "website? > ")
  (require 'request)

  (request url
    :success (cl-function
              (lambda (&key data &allow-other-keys)
        ;; Convert HTML to markdown
        (markitdown data)
        ;; Append to context for gptel
        (with-current-buffer (get-buffer "*markitdown*")
          (gptel-context--add-region (get-buffer "*markitdown*")
                         (point-max)
                         (point-min)))))))

(defun gptel-add-url (url)
  (interactive "s" "url? > ")
  (require 'request)

  (request url
    :parser 'buffer-string
    :success (cl-function
              (lambda (&key data &allow-other-keys)
        (when data
          (with-current-buffer (get-buffer-create "*request*")
            (insert data)
            (gptel-context--add-region (get-buffer "*request*")
                           (point-min)
                           (point-max))))))))

明日以降やりたいこと

Emacsのスニペットまわりが気になるので手を加えていきたい。