ELisp

(defun multiply-by-seven (number)       ; Interactive version.
  "Multiply NUMBER by seven."
  (interactive "p")
  (message "The result is %d" (* 7 number)))

(require 'subr-x)
(defun format-daily-link (pathName fileName)
  "format a daily notes link"
  (format "[[%s][%s]]" (concat pathName "/" fileName) (file-name-sans-extension fileName)))
(defun get-daily-description (pathName filePath)
  "Return a list of lines of a file at filePath."
  (with-temp-buffer
    (insert-file-contents (concat pathName "/" filePath))
    (mapconcat (lambda (x) (concat "-" (string-trim x "*+")) ) (cl-remove-if-not (lambda (x) (string-match "^\*" x)) (split-string (buffer-string) "\n" t)) "\n")))
(defun insert-daily-links ()
 "Insert a list of all daily notes with links. For some reason there needs to be text in the file when this is called. 
 I think that has something to do with it being interactive."
 (interactive)
 (let* ((path "/home/czw/org-roam/daily/lab")
         (dailies (cl-remove-if-not (lambda (x) (string-match "^[0-9].*\.org$" x)) (directory-files path))))
    (mapconcat (lambda (x) (concat (format-daily-link path x) 
                                   "\n"
                                   (get-daily-description path x)) dailies) "\n"))

(defun read-lines (filePath)
  "Return a list of lines of a file at filePath."
  (with-temp-buffer
    (insert-file-contents filePath)
    (split-string (buffer-string) "\n" t)))