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,8 +181,10 @@ See https://github.com/magit/ghub/issues/81"
(funcall orig-fn url)))
;; 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)
(if (not (display-graphic-p))
(eww url new-session)
(setq xwidget-webkit-last-session-buffer +lookup--dash-docs-xwidget-webkit-last-session-buffer)
(save-window-excursion
(xwidget-webkit-browse-url url new-session))
@ -190,7 +192,7 @@ See https://github.com/magit/ghub/issues/81"
'((set-popup-rule! "^\\*xwidget" :vslot -11 :size 0.35 :select 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))
xwidget-webkit-last-session-buffer nil)))
(setq dash-docs-browser-func #'+lookup/dash-docs-xwidget-webkit-browse-url))
(cond ((featurep! :completion helm)