Add eca-open-global-config

Author: ericdallo

README.md

@@ -51,10 +51,12 @@ M-x package-install eca
 
 - `eca-chat-add-context-at-point`: Add the current function or selected lines to chat as context.
 - `eca-chat-add-file-context`: Add the current file to chat as context.
-- `eca-keep-all-suggested-changes`: Accept planned edit changes on file.
-- `eca-discard-all-suggested-changes`: Reject planned edit changes on file.
+- `eca-chat-tool-call-accept-all`: Acceppt all pending tool calls in chat.
+- `eca-chat-tool-call-accept-next`: Acceppt next pending tool call in chat.
+- `eca-chat-tool-call-reject-next`: Reject next pending tool call in chat.
 - `eca-chat-send-prompt`: In case you wanna send prompts programatically in elisp.
 - `eca-chat-toggle-window`: toggle chat window.
+- `eca-open-global-config`: Open ECA global config file.
 
 ### Variables
 

eca.el

@@ -225,24 +225,19 @@ When ARG is current prefix, ask for workspace roots to use."
   (eca-info "Workspaces: %s" (eca--session-workspace-folders (eca-session))))
 
 ;;;###autoload
-(defun eca-keep-all-suggested-changes ()
-  "Keep all of the ECA file change suggestion."
+(defun eca-open-global-config ()
+  "Open global ECA config file.
+If the file does not exist, create the directory if needed and open a new
+buffer visiting that path with `{}` pre-filled."
   (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (ignore-errors (funcall #'smerge-keep-lower))
-    (while (ignore-errors (not (smerge-next)))
-      (funcall #'smerge-keep-lower))))
-
-;;;###autoload
-(defun eca-discard-all-suggested-changes ()
-  "Discard all of the ECA file change suggestion."
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (ignore-errors (funcall #'smerge-keep-upper))
-    (while (ignore-errors (not (smerge-next)))
-      (funcall #'smerge-keep-upper))))
+  (let* ((file (if-let (xdg (getenv "XDG_CONFIG_HOME"))
+                   (f-join xdg "eca" "config.json")
+                 (f-join (f-expand "~") ".config" "eca" "config.json")))
+         (dir (file-name-directory file)))
+    (make-directory dir t)
+    (find-file file)
+    (when (= (buffer-size) 0)
+      (insert "{}\n"))))
 
 (provide 'eca)
 ;;; eca.el ends here