From c2206132f53103c23b4ca0fdbac4fc3cf5101587 Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Wed, 26 Feb 2025 00:11:31 +0100
Subject: [PATCH] add docker support

---
 init.org | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 46 insertions(+), 1 deletion(-)

diff --git a/init.org b/init.org
index 804d4c0..7b17e04 100644
--- a/init.org
+++ b/init.org
@@ -39,6 +39,7 @@ one to use.
 
 #+BEGIN_SRC emacs-lisp
   (setq snm-enable-evil t)  ;; enable evil bindings
+  (setq snm-docker-executable 'podman) ;; use docker or podman
 #+END_SRC
 
 * First Things First
@@ -426,6 +427,28 @@ up, which a totally different can of worms). A function
 #+RESULTS:
 : [nil 26557 35507 493630 nil elpaca-process-queues nil nil 948000 nil]
 
+** Docker Integration
+
+#+BEGIN_SRC emacs-lisp
+(use-package docker
+	:defer t
+	:ensure t
+	:bind ("C-c d" . docker)
+	:config
+	(pcase snm-docker-executable
+	  ('docker
+	   (setf docker-command "docker"
+			 docker-compose-command "docker-compose"
+			 docker-container-tramp-method "docker"))
+	  ('podman
+	   (setf docker-command "podman"
+			 docker-compose-command "podman-compose"
+			 docker-container-tramp-method "podman"))))
+#+END_SRC
+
+#+RESULTS:
+: [nil 26557 44955 396008 nil elpaca-process-queues nil nil 436000 nil]
+
 * Editor Features
 
 #+BEGIN_SRC emacs-lisp
@@ -1706,6 +1729,23 @@ Map the keymap consistently to the eglot mappings.
         (python-ts-mode . pyvenv-mode))
 #+END_SRC
 
+*** Docker Support
+
+#+BEGIN_SRC emacs-lisp
+(use-package dockerfile-mode
+  :defer t
+  :ensure t
+  :config
+  (pcase snm-docker-executable
+	('docker
+	 (setq dockerfile-mode-command "docker"))
+	('podman
+	 (setq dockerfile-docker-command "podman"))))
+#+END_SRC
+
+#+RESULTS:
+: [nil 26557 44943 649 nil elpaca-process-queues nil nil 729000 nil]
+
 ** Debugger Support
 #+BEGIN_SRC emacs-lisp
 (report-time-since-load "Programming - Debugger Support")
@@ -2709,7 +2749,7 @@ integration in Emacs.
     :ensure t
     :commands (gptel)
     :config
-    (setq gptel-default-mode 'org-mode)
+    ;;(setq gptel-default-mode 'org-mode)
     (setq gptel-api-key openai-api-key)
     (gptel-make-gemini "Gemini" :key gemini-api-key :stream t)
     (gptel-make-anthropic "Claude" :stream t :key anthropic-api-key)
@@ -2834,6 +2874,11 @@ integration in Emacs.
   		       :type "string"
   		       :description "Path to the file to read.  Supports relative paths and ~."))
      :category "filesystem")
+
+    ;; follow output
+    (add-hook 'gptel-post-stream-hook 'gptel-auto-scroll)
+    ;; move to next prompt after response
+    (add-hook 'gptel-post-response-functions 'gptel-end-of-response)
     )
 #+END_SRC