Add +concat and +file-string

1 files changed, 27 insertions, 1 deletions

@@ -28,7 +28,8 @@
   "Define a variable and function NAME expanding to DIRECTORY.
 DOCSTRING is applied to the variable.  Ensure DIRECTORY exists in
 the filesystem, unless INHIBIT-MKDIR is non-nil."
-  (declare (indent 2))
+  (declare (indent 2)
+           (doc-string 3))
   (unless inhibit-mkdir
     (make-directory (eval directory) :parents))
   `(progn
@@ -327,5 +328,30 @@ See `+forward-paragraph' for the behavior."
   (interactive "p")
   (+forward-paragraph (- arg)))
 
+(defun +concat (&rest strings)
+  "Concat STRINGS separated by SEPARATOR.
+Each item in STRINGS is either a string or a list or strings,
+which is concatenated without any separator.
+
+SEPARATOR defaults to the newline (\\n)."
+  (let (ret
+        ;; I don't know why a `cl-defun' with
+        ;; (&rest strings &key (separator "\n")) doesn't work
+        (separator (or (cl-loop for i from 0 upto (length strings)
+                                if (eq (nth i strings) :separator)
+                                return (nth (1+ i) strings))
+                       "\n")))
+    (while strings
+      (let ((string (pop strings)))
+        (cond ((eq string :separator) (pop strings))
+              ((listp string) (push (apply #'concat string) ret))
+              ((stringp string) (push string ret)))))
+    (mapconcat #'identity (nreverse ret) separator)))
+
+(defun +file-string (file)
+  "Fetch the contents of FILE and return its string."
+  (with-current-buffer (find-file-noselect file)
+    (buffer-string)))
+
 (provide 'acdw)
 ;;; acdw.el ends here