Add recursive mode to ellama-context-add-directory.

Also, add ellama-context-add-directory-recursive for interactive use.

Author: 813gan

ellama-context.el

@@ -723,13 +723,24 @@ the context."
     (ellama-context-element-add element)))
 
 ;;;###autoload
-(defun ellama-context-add-directory (dir)
-  "Add all files in DIR to the context."
+(defun ellama-context-add-directory (dir &optional recursive)
+  "Add all files in DIR to the context.
+Exclude dot-files.  Include subdirs if RECURSIVE is 't."
   (interactive "DSelect directory: ")
   (dolist (file-name (directory-files dir t "^[^\.].*"))
-    (unless (file-directory-p file-name)
+    (cond
+     ((file-regular-p file-name)
       (let ((element (ellama-context-element-file :name file-name)))
-	(ellama-context-element-add element)))))
+	(ellama-context-element-add element)))
+     ((and (file-directory-p file-name) recursive)
+      (ellama-context-add-directory file-name 't)))))
+
+;;;###autoload
+(defun ellama-context-add-directory-recursive (dir)
+  "Add all files in DIR to the context.
+Exclude dot-files.  Include all subdirs."
+  (interactive "DSelect directory: ")
+  (ellama-context-add-directory dir 't))
 
 ;;;###autoload
 (defun ellama-context-add-selection ()