Improve Emacs graphical mode checking
This commit is contained in:
parent
051ea0a602
commit
6f8c501ce4
1 changed files with 11 additions and 9 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue