;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/ll/ll-ai.el
;;
;; -----------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(cl-pushnew (file-name-concat package-user-dir "ellama-1.8.1") load-path :test #'string=)
(-> 'ellama)
(-> 'ellama-context)
(-> 'ellama-transient)
(-> 'llm)

;; -----------------------------------------------------------------------------

(setq ellama-providers '(("llama2ul" .
                          (make-llm-ollama :chat-model "llama2-uncensored:latest"))))

;; -----------------------------------------------------------------------------

(setq ellama-enable-keymap t)
(define-prefix-command 'C-semicolon)
(setq ellama-keymap-prefix 'C-semicolon)
(keymap-set ellama-session-mode-map "C-;" 'C-semicolon)
(keymap-set ellama-session-mode-map "M-;" #'ellama-chat-send-last-message)

;; -----------------------------------------------------------------------------

(setq ellama-assistant-nick "screen")
(setq ellama-auto-scroll     t)
(setq ellama-fill-paragraphs t)
(setq ellama-spinner-enabled nil) ; TODO: bug?

;; -----------------------------------------------------------------------------

(setq ellama-user-nick "manny")
(setq ellama-sessions-directory (file-name-concat (getenv "HOME") "ellama"))

;; -----------------------------------------------------------------------------

(setq ellama-context-header-line-global-mode t)
(setq ellama-session-header-line-global-mode t)

;; -----------------------------------------------------------------------------

(<- 'll-ai)