Using chatgpt-shell from melpa instead of Github

.config/doom/config.el

@@ -446,9 +446,6 @@ text and copying to the killring."
 (beacon-mode t)
 
 ;; ChatGPT
-(require 'chatgpt-shell)
-(require 'ob-chatgpt-shell)
-(require 'ob-dall-e-shell)
 (setq chatgpt-shell-chatgpt-model-version "gpt-3.5-turbo")
 (setq chatgpt-shell-chatgpt-streaming "t")
 (setq chatgpt-shell-chatgpt-system-prompt "You are a senior Python developer in charge of maintaining a very big application")

.config/doom/custom-packages/ob-chatgpt-shell.el

@@ -1,76 +0,0 @@
-;;; ob-chatgpt-shell.el --- Org babel functions for ChatGPT evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) Alvaro Ramirez
-
-;; Author: Alvaro Ramirez
-;; URL: https://github.com/xenodium/chatgpt-shell
-
-;;; License:
-
-;; 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, 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 GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; Run and get responses from ChatGPT blocks using org babel.
-;;
-;; Install with:
-;;
-;;   (require 'ob-chatgpt-shell)
-;;   (ob-chatgpt-shell-setup)
-;;
-;; Usage:
-;;
-;;     #+begin_src chatgpt-shell
-;;       Hello
-;;     #+end_src
-
-;;; Requirements:
-
-;;; Code:
-(require 'ob)
-(require 'org)
-(require 'chatgpt-shell)
-(require 'map)
-
-;; Aliasing enables block syntax highlighting.
-(defalias 'chatgpt-shell-mode #'text-mode)
-
-(defvar org-babel-default-header-args:chatgpt-shell '((:results . "raw")
-                                                      (:version . nil)
-                                                      (:preface . nil)))
-
-(defun org-babel-execute:chatgpt-shell(body params)
-  "Execute a block of ChatGPT prompt in BODY with org-babel header PARAMS.
-This function is called by `org-babel-execute-src-block'"
-  (message "executing ChatGPT source code block")
-  (if (map-elt params :preface)
-      (chatgpt-shell-post-chatgpt-messages
-       (vconcat (map-elt params :preface)
-                `(((role . "user")
-                   (content . ,body))))
-       (map-elt params :version))
-      (chatgpt-shell-post-chatgpt-prompt body (map-elt params :version))))
-
-(defun ob-chatgpt-shell-setup ()
-  "Set up babel ChatGPT support."
-  (org-babel-do-load-languages 'org-babel-load-languages
-                               (append org-babel-load-languages
-                                       '((chatgpt-shell . t))))
-  (add-to-list 'org-src-lang-modes '("chatgpt-shell" . text)))
-
-(provide 'ob-chatgpt-shell)
-
-;;; ob-chatgpt-shell.el ends here

.config/doom/custom-packages/ob-dall-e-shell.el

@@ -1,68 +0,0 @@
-;;; ob-dall-e-shell.el --- Org babel functions for DALL-E evaluation -*- lexical-binding: t; -*-
-
-;; Copyright (C) Alvaro Ramirez
-
-;; Author: Alvaro Ramirez
-;; URL: https://github.com/xenodium/chatgpt-shell
-
-;;; License:
-
-;; 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, 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 GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; Run and render DALL-E blocks using org babel.
-;;
-;; Install with:
-;;
-;;   (require 'ob-dall-e-shell)
-;;   (ob-dall-e-shell-setup)
-;;
-;; Usage:
-;;
-;;     #+begin_src dall-e-shell
-;;       Hello
-;;     #+end_src
-
-;;; Requirements:
-
-;;; Code:
-(require 'ob)
-(require 'org)
-(require 'chatgpt-shell)
-(require 'map)
-
-(defalias 'dall-e-shell-mode #'text-mode)
-
-(defvar org-babel-default-header-args:dall-e-shell '((:results . "file")
-                                                     (:version . nil)))
-
-(defun org-babel-execute:dall-e-shell(body params)
-  "Execute a block of DALL-E prompt in BODY with org-babel header PARAMS.
-This function is called by `org-babel-execute-src-block'"
-  (message "executing DALL-E source code block")
-  (chatgpt-shell-post-dall-e-prompt body (map-elt params :version)))
-
-(defun ob-dall-e-shell-setup ()
-  "Set up babel DALL-E support."
-  (org-babel-do-load-languages 'org-babel-load-languages
-                               (append org-babel-load-languages
-                                       '((dall-e-shell . t))))
-  (add-to-list 'org-src-lang-modes '("dall-e-shell" . text)))
-
-(provide 'ob-dall-e-shell)
-
-;;; ob-dall-e-shell.el ends here

.config/doom/custom-packages/private.el.example

@@ -2,5 +2,6 @@
 
 
 (setq chatgpt-shell-openai-key "my-openai-key")
+(setq dall-e-shell-openai-key "my-openai-key")
 
 (provide 'private)

.config/doom/packages.el

@@ -65,3 +65,7 @@
   :recipe (:host github :repo "zerolfx/copilot.el" :files ("*.el" "dist")))
 (package! beacon)
 (package! plantuml-mode)
+(package! chatgpt-shell)
+(package! ob-chatgpt-shell)
+(package! dall-e-shell)
+(package! ob-dall-e-shell)