ahyatt

;;; 5e-llm.el --- LLM functions for D&D 5e -*- lexical-binding: t -*-

(require 'llm)

(defvar 5e-llm-provider nil
  "The LLM provider to use for 5e-llm.")

(defvar 5e-llm-small-provider nil
  "The LLM provider to use for small models.")

ahyatt

(require 'llm)
(require 'llm-prompt)

(defvar llm-provider nil
  "The LLM provider to use for misc functionality")

(llm-defprompt llm-context
  "The user is currently in Emacs.  The following is part of the buffer they are looking at, which is a {{mode}} buffer.  Their cursor is marked with '{{cursor}}':
{{context}}")

ahyatt

;; To be used with llm-flows in https://github.com/ahyatt/llm/tree/flows.

(require 'llm)
(require 'llm-flows)

(defun ash/llm-correct-text (start end arg)
  (interactive "r\np")
  (let* ((initial-context "You are an experienced editor that specializes in clear and correct communication.  You will be given a passage of text.  Return only a rewrite of that passage,  correct in both grammar and spelling, and clearer in meaning.  Do not return any other commentary other than the rewrite of the passage, which will be replacing the original text.  Keep the formatting style of the original text.  For example, if the text is in org-mode format, keep the formatting in the org-mode style instead of using markdown.")
         (edited-context
          (if (> arg 1)

ahyatt

;;; llm-flows.el --- Utilities for LLM workflows -*- lexical-binding: t -*-

;; Copyright (c) 2023  Free Software Foundation, Inc.

;; Author: Andrew Hyatt <[email protected]>
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 3 of the

ahyatt

(setq lexical-binding t)
(defun sleep-sort (numbers)
  (let ((sorted-list))
    (dolist (n numbers)  
      (async-start (lambda ()
                     (sleep-for n))
                   (lambda (val)
                     (add-to-list 'sorted-list n)
                     (when (= (length numbers)
                              (length sorted-list))

ahyatt

(with-open-file (stream "/foo/bar/baz")
  ;; perform some actions with the file

ahyatt

(let ((stream (open "/foo/bar/baz")))
  (unwind-protect
    (progn
     ;; perform some actions with the file
      )
    (close stream)))

ahyatt

(defun ash-term-hooks ()
  ;; dabbrev-expand in term
  (define-key term-raw-escape-map "/"
    (lambda ()
      (interactive)
      (let ((beg (point)))
        (dabbrev-expand nil)
        (kill-region beg (point)))
      (term-send-raw-string (substring-no-properties (current-kill 0)))))
  ;; yank in term (bound to C-c C-y)