;;; 90-experimental.el --- Experimental packages -*- no-byte-compile: t; lexical-binding: t -*-

;; Author: iamtoaster

;; This file is not part of GNU Emacs

;; 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 License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:
;; This file contains experimental packages that may or may not make it to the
;; main configuration eventually.

;;; Code:

; Whisper should be available in path, so we overwrite the search function so
; that it takes the executable from there instead of the install directory.
(defun my-whisper--find-whispercpp-server ()
  (executable-find "whisper-server"))

(use-package whisper
  :defer t
  :straight (whisper :type git
                        :host github
                        :repo "natrys/whisper.el"
                        :branch "master")
  :init
  (setq whisper-install-whispercpp nil)
  :config
  (setq whisper-quantize "q8_0"
        whisper-model "large-v3-turbo"
        whisper-language "auto"
        whisper-server-mode 'local
        whisper-server-baseurl "http://127.0.0.1:8642"
        whisper-translate nil
        whisper-use-threads (/ (num-processors) 2))

  (advice-add 'whisper--find-whispercpp-server :override #'my-whisper--find-whispercpp-server))

(keymap-global-set "<f9>" #'whisper-run)

;;; 90-experimental.el ends here