(add-webpage "images")

(defun images-fun ()
  (let* ((dir-list (directory-files "/www:public_html/photos" nil))
         (relevant-files (remove-if 'backup-file-name-p (cddr dir-list))))
    (append
     (html-h1 "Photos")
     (html-p
      (mapcar (lambda (x)
                (html-a :href (concat "photos/" x)
                        (html-img :width "32%" :src (concat "photos/" x))))
              relevant-files))
     (let* ((dir-list (directory-files "/www:public_html/images" nil))
            (relevant-files (remove-if 'backup-file-name-p (cddr dir-list))))
       (append 
        (html-p (html-h2 "Files placed randomly at the top left of the page"))
        (html-p
         (mapcar (lambda (x)
                   (html-a :href (concat "images/" x)
                           (html-img :width "32%" :src (concat "images/" x))))
                 relevant-files)))))))