acdw/emacs
acdw/emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Comment out buggy eww-browse-url advice

Browse Source
This commit is contained in:
Case Duckworth 2021-09-02 17:06:23 -05:00
parent fab6d24ace
commit 91be58ecb5
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
init.el
View File

@ -1035,11 +1035,12 @@ like a dumbass."
(autoload 'elpher-go "elpher" nil t) (autoload 'elpher-go "elpher" nil t)
;; Make `eww' gemini/gopher aware. From Emacswiki. ;; Make `eww' gemini/gopher aware. From Emacswiki.
(define-advice eww-browse-url (:around (fn url &rest args) gemini-elpher) ;; (define-advice eww-browse-url (:around (fn url &rest args) gemini-elpher)
(cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url) ;; (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
(require 'elpher) ;; (require 'elpher)
(elpher-go url)) ;; (elpher-go url))
(t (apply fn url args))))) ;; (t (apply fn url args))))
)
(setup (:straight (gemini-mode (setup (:straight (gemini-mode
:host nil :host nil
@ -1051,7 +1052,8 @@ like a dumbass."
:host nil :host nil
:repo "https://alexschroeder.ch/cgit/gemini-write" :repo "https://alexschroeder.ch/cgit/gemini-write"
:branch "main")) :branch "main"))
(require 'gemini-write)) (with-eval-after-load 'elpher
(require 'gemini-write)))
(setup (:straight (mastodon (setup (:straight (mastodon
:host github :host github