Commit eb186412 authored by Andy Stewart's avatar Andy Stewart
Browse files

Add eaf-dired-open-file to make pdf/video/image default binding eaf

parent 17f2c0cd

TODOLIST.md

+0 −1
Original line number Diff line number Diff line 
## Todo list

* Make pdf/video/image default binding eaf

* Core: draw framework about eaf, make hacker understand how eaf works.

* Core: sometime, press key no respsone, something wrong at function eaf-monitor-key-event

* Core: Make application can handle shortcut

eaf.el

+16 −0
Original line number Diff line number Diff line
@@ -552,6 +552,22 @@ We need calcuate render allocation to make sure no black border around render co 
  (interactive "DDirectory to save uploade file: ")

  (eaf-open dir "fileuploader"))



(defun eaf-dired-open-file ()

  "Open html/pdf/image/video file with eaf, other file use `find-file'"

  (interactive)

  (dolist (file (dired-get-marked-files))

    (setq extension-name (file-name-extension file))

    (cond ((member extension-name '("html"))

           (eaf-open (concat "file://" file) "browser"))

          ((member extension-name '("pdf" "xps" "oxps" "cbz" "epub" "fb2" "fbz"))

           (eaf-open file "pdfviewer"))

          ((member extension-name '("jpg" "png" "bmp"))

           (eaf-open file "imageviewer"))

          ((member extension-name '("avi" "rmvb" "ogg" "mp4"))

           (eaf-open file "videoplayer"))

          (t

           (find-file file)))))



;;;;;;;;;;;;;;;;;;;; Utils ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun eaf-get-view-info ()

  (let* ((window-allocation (eaf-get-window-allocation (selected-window)))