Skip to content

Commit

Permalink
refactor(eaf): use a new strategy to disable
Browse files Browse the repository at this point in the history
  • Loading branch information
@abougouffa
abougouffa committed Jun 16, 2023
1 parent 8b5d2df commit c2a11c8
Showing 1 changed file with 74 additions and 71 deletions.
145 changes: 74 additions & 71 deletions modules/me-eaf.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,78 +8,81 @@

;;; Code:

(unless (+emacs-features-p 'lucid)
(use-package eaf
:straight (:host github :repo "emacs-eaf/emacs-application-framework" :files (:defaults "*"))
:init
(+map! "oo" #'eaf-open)
;; Evil integration doesn't work, start `eaf-mode' in `emacs-state'.
(with-eval-after-load 'evil
(evil-set-initial-state 'eaf-mode 'emacs))
(+register-build-function! eaf-install-and-update)
:commands eaf-file-sender-qrcode-in-dired +browse-url-eaf eaf-open-browser
:custom
;; Generic
(eaf-apps-to-install
'(browser mindmap jupyter file-sender video-player markdown-previewer))
(eaf-start-python-process-when-require t)
(eaf-kill-process-after-last-buffer-closed t)
(eaf-fullscreen-p nil)
(eaf-config-location (concat minemacs-local-dir "eaf/"))
;; Debug
(eaf-enable-debug nil)
;; Web engine
(eaf-webengine-font-family (plist-get minemacs-fonts :font-family))
(eaf-webengine-fixed-font-family (plist-get minemacs-fonts :font-family))
(eaf-webengine-serif-font-family (plist-get minemacs-fonts :variable-pitch-font-family))
(eaf-webengine-font-size 16)
(eaf-webengine-fixed-font-size 16)
(eaf-webengine-enable-scrollbar t)
(eaf-webengine-scroll-step 200)
(eaf-webengine-default-zoom 1.25)
(eaf-webengine-show-hover-link t)
(eaf-webengine-download-path "~/Downloads")
(eaf-webengine-enable-plugin t)
(eaf-webengine-enable-javascript t)
(eaf-webengine-enable-javascript-access-clipboard t)
;; Web browser
(eaf-browser-continue-where-left-off t)
(eaf-browser-enable-adblocker t)
(eaf-browser-ignore-history-list '("google.com/search" "file://"))
(eaf-browser-translate-language "en")
(eaf-browser-blank-page-url "https://www.duckduckgo.com")
(eaf-browser-chrome-history-file (concat minemacs-local-dir "eaf/browser/chrome-history"))
(eaf-browser-default-search-engine "duckduckgo")
(eaf-browser-continue-where-left-off t)
(eaf-browser-aria2-auto-file-renaming t)
;; Video player
(eaf-video-player-keybinding
'(("p" . "toggle_play")
("q" . "close_buffer")
("h" . "play_backward")
("l" . "play_forward")
("j" . "decrease_volume")
("k" . "increase_volume")
("f" . "toggle_fullscreen")
("R" . "restart")))
;; Jupyter
(eaf-jupyter-font-family (plist-get minemacs-fonts :font-family))
(eaf-jupyter-font-size 14)
;; PDF viewer
(eaf-pdf-outline-buffer-indent 2)
:config
;; Try to load enabled apps, and install them if they aren't installed
(let (not-installed-apps)
(dolist (app eaf-apps-to-install)
(unless (require (intern (format "eaf-%s" app)) nil t)
(push app not-installed-apps)))
(when not-installed-apps
(warn "Some apps are not installed: %s" not-installed-apps)))
(when (+emacs-features-p 'lucid)
;; EAF don't work on LUCID, a.k.a. XEmacs.
(add-to-list 'minemacs-disabled-packages 'eaf))

(defun +browse-url-eaf (url &rest args)
"Open URL in EAF Browser."
(interactive (browse-url-interactive-arg "URL: "))
(eaf-open-browser (browse-url-encode-url url) args))))
(use-package eaf
:straight (:host github :repo "emacs-eaf/emacs-application-framework" :files (:defaults "*"))
:init
(+map! "oo" #'eaf-open)
;; Evil integration doesn't work, start `eaf-mode' in `emacs-state'.
(with-eval-after-load 'evil
(evil-set-initial-state 'eaf-mode 'emacs))
(+register-build-function! eaf-install-and-update)
:commands eaf-file-sender-qrcode-in-dired +browse-url-eaf eaf-open-browser
:custom
;; Generic
(eaf-apps-to-install
'(browser mindmap jupyter file-sender video-player markdown-previewer))
(eaf-start-python-process-when-require t)
(eaf-kill-process-after-last-buffer-closed t)
(eaf-fullscreen-p nil)
(eaf-config-location (concat minemacs-local-dir "eaf/"))
;; Debug
(eaf-enable-debug nil)
;; Web engine
(eaf-webengine-font-family (plist-get minemacs-fonts :font-family))
(eaf-webengine-fixed-font-family (plist-get minemacs-fonts :font-family))
(eaf-webengine-serif-font-family (plist-get minemacs-fonts :variable-pitch-font-family))
(eaf-webengine-font-size 16)
(eaf-webengine-fixed-font-size 16)
(eaf-webengine-enable-scrollbar t)
(eaf-webengine-scroll-step 200)
(eaf-webengine-default-zoom 1.25)
(eaf-webengine-show-hover-link t)
(eaf-webengine-download-path "~/Downloads")
(eaf-webengine-enable-plugin t)
(eaf-webengine-enable-javascript t)
(eaf-webengine-enable-javascript-access-clipboard t)
;; Web browser
(eaf-browser-continue-where-left-off t)
(eaf-browser-enable-adblocker t)
(eaf-browser-ignore-history-list '("google.com/search" "file://"))
(eaf-browser-translate-language "en")
(eaf-browser-blank-page-url "https://www.duckduckgo.com")
(eaf-browser-chrome-history-file (concat minemacs-local-dir "eaf/browser/chrome-history"))
(eaf-browser-default-search-engine "duckduckgo")
(eaf-browser-continue-where-left-off t)
(eaf-browser-aria2-auto-file-renaming t)
;; Video player
(eaf-video-player-keybinding
'(("p" . "toggle_play")
("q" . "close_buffer")
("h" . "play_backward")
("l" . "play_forward")
("j" . "decrease_volume")
("k" . "increase_volume")
("f" . "toggle_fullscreen")
("R" . "restart")))
;; Jupyter
(eaf-jupyter-font-family (plist-get minemacs-fonts :font-family))
(eaf-jupyter-font-size 14)
;; PDF viewer
(eaf-pdf-outline-buffer-indent 2)
:config
;; Try to load enabled apps, and install them if they aren't installed
(let (not-installed-apps)
(dolist (app eaf-apps-to-install)
(unless (require (intern (format "eaf-%s" app)) nil t)
(push app not-installed-apps)))
(when not-installed-apps
(warn "Some apps are not installed: %s" not-installed-apps)))

(defun +browse-url-eaf (url &rest args)
"Open URL in EAF Browser."
(interactive (browse-url-interactive-arg "URL: "))
(eaf-open-browser (browse-url-encode-url url) args)))


(provide 'me-eaf)
Expand Down

0 comments on commit c2a11c8

Please sign in to comment.