Improve Emacs graphical mode checking

This commit is contained in:
Seong Yong-ju 2020-05-07 09:19:41 +09:00
parent 051ea0a602
commit 6f8c501ce4

View file

@ -181,16 +181,18 @@ See https://github.com/magit/ghub/issues/81"
(funcall orig-fn url))) (funcall orig-fn url)))
;; Dash docset + Xwidget integration ;; Dash docset + Xwidget integration
(when (and (featurep! +xwidget) (display-graphic-p)) (when (featurep! +xwidget)
(defun +lookup/dash-docs-xwidget-webkit-browse-url (url &optional new-session) (defun +lookup/dash-docs-xwidget-webkit-browse-url (url &optional new-session)
(setq xwidget-webkit-last-session-buffer +lookup--dash-docs-xwidget-webkit-last-session-buffer) (if (not (display-graphic-p))
(save-window-excursion (eww url new-session)
(xwidget-webkit-browse-url url new-session)) (setq xwidget-webkit-last-session-buffer +lookup--dash-docs-xwidget-webkit-last-session-buffer)
(with-popup-rules! (save-window-excursion
'((set-popup-rule! "^\\*xwidget" :vslot -11 :size 0.35 :select nil)) (xwidget-webkit-browse-url url new-session))
(pop-to-buffer xwidget-webkit-last-session-buffer)) (with-popup-rules!
(setq +lookup--dash-docs-xwidget-webkit-last-session-buffer xwidget-webkit-last-session-buffer '((set-popup-rule! "^\\*xwidget" :vslot -11 :size 0.35 :select nil))
xwidget-webkit-last-session-buffer nil)) (pop-to-buffer xwidget-webkit-last-session-buffer))
(setq +lookup--dash-docs-xwidget-webkit-last-session-buffer xwidget-webkit-last-session-buffer
xwidget-webkit-last-session-buffer nil)))
(setq dash-docs-browser-func #'+lookup/dash-docs-xwidget-webkit-browse-url)) (setq dash-docs-browser-func #'+lookup/dash-docs-xwidget-webkit-browse-url))
(cond ((featurep! :completion helm) (cond ((featurep! :completion helm)