 
 
 
-(defun org-wiki/open-page (pagename)
-  (find-file  (org-wiki/page->file pagename)))
+
 
 (defun org-wiki/page-list ()
   (mapcar #'org-wiki/file->page (org-wiki/page-files)))

                      ))))


(defun org-wiki/helm-frame ()
  " Browser the wiki files using helm and opens it in a new frame 
  
  Usage: M-x org-wiki/helm-frame 
  "
  (interactive)

  (helm :sources `((
                      (name . "Wiki Pages")

                      (candidates . ,(org-wiki/page-list))

                      (action .

                              (lambda (act)
                                (with-selected-frame (make-frame)
                                  (org-wiki/open-page act)
                                )
                              )                    
                              )))))


;;  @TODO: Implement org-wiki/helm-html 
;;
(defun org-wiki/helm-html ()
  " Browser the wiki files using helm.

  Usage: M-x org-wiki/helm 
  "
  (interactive)  
    (helm :sources `((
                      (name . "Wiki Pages")

                      (candidates . ,(org-wiki/unique (org-wiki/page-list)))

                      (action . org-wiki/open-page)                    
                      ))))


(defun org-wiki/close ()

  "Close all opened wiki pages buffer and save them"

 
  "
  (interactive)
  (org-wiki/helm-selection  (lambda (page) (insert (org-wiki/make-link page)))))




