               (with-current-buffer b
                 (save-buffer)
                 (kill-this-buffer)
-                )
-
-              ))
+                )))
 
 
           (buffer-list))

  "Open the asset directory of current wiki page."
  (interactive)
  
  (let (
        (pagename (file-name-base (buffer-file-name)))
        )

    (org-wiki--assets-make-dir pagename)

    (dired (org-wiki--assets-get-dir pagename))

    ))

(defun org-wiki--asset-page-files (pagename)
  "Get all asset files from a given PAGENAME."

  (replace-regexp-in-string
   "//"
   "/"
   (replace-regexp-in-string "/$" "" (expand-file-name path))))
       
(defun  org-wiki--path-equal (p1 p2)
  "Test if paths P1 and P2 are equal."
  (equal (org-wiki--normalize-path p1) (org-wiki--normalize-path p2)))


(defun org-wiki--file->page (filename)
