next: Fix code compatibility with Next 2.
parent
b0aff11ce6
commit
ca8b40ac3f
|
@ -107,16 +107,27 @@ Videos are downloaded with `+youtube-dl-command+'."
|
||||||
"Blocker mode with custom hosts from `*my-blocked-hosts*'."
|
"Blocker mode with custom hosts from `*my-blocked-hosts*'."
|
||||||
((next/blocker-mode::hostlists :initform (list *my-blocked-hosts* next/blocker-mode:*default-host-list*))))
|
((next/blocker-mode::hostlists :initform (list *my-blocked-hosts* next/blocker-mode:*default-host-list*))))
|
||||||
|
|
||||||
(defclass my-buffer (buffer)
|
(if (find-class 'gtk-buffer nil)
|
||||||
((default-modes :initform (append
|
(defclass my-buffer (gtk-buffer)
|
||||||
'(my-mode vi-normal-mode
|
((default-modes :initform (append
|
||||||
my-blocker-mode
|
'(my-mode vi-normal-mode
|
||||||
proxy-mode)
|
my-blocker-mode
|
||||||
(get-default 'buffer 'default-modes)))
|
proxy-mode)
|
||||||
(load-hook :initform (next-hooks:make-hook-string->string
|
(get-default 'buffer 'default-modes)))
|
||||||
:handlers (list #'old-reddit-handler
|
(load-hook :initform (next-hooks:make-hook-string->string
|
||||||
#'auto-proxy-handler)
|
:handlers (list #'old-reddit-handler
|
||||||
:combination #'next-hooks:combine-composed-hook))))
|
#'auto-proxy-handler)
|
||||||
|
:combination #'next-hooks:combine-composed-hook))))
|
||||||
|
(defclass my-buffer (buffer)
|
||||||
|
((default-modes :initform (append
|
||||||
|
'(my-mode vi-normal-mode
|
||||||
|
my-blocker-mode
|
||||||
|
proxy-mode)
|
||||||
|
(get-default 'buffer 'default-modes)))
|
||||||
|
(load-hook :initform (next-hooks:make-hook-string->string
|
||||||
|
:handlers (list #'old-reddit-handler
|
||||||
|
#'auto-proxy-handler)
|
||||||
|
:combination #'next-hooks:combine-composed-hook)))))
|
||||||
|
|
||||||
(setf *buffer-class* 'my-buffer)
|
(setf *buffer-class* 'my-buffer)
|
||||||
|
|
||||||
|
@ -156,7 +167,7 @@ Videos are downloaded with `+youtube-dl-command+'."
|
||||||
(append
|
(append
|
||||||
my-search-engines
|
my-search-engines
|
||||||
(get-default 'remote-interface 'search-engines)))))
|
(get-default 'remote-interface 'search-engines)))))
|
||||||
(defclass my-remote-interface (interface)
|
(defclass my-interface (gtk-interface)
|
||||||
;; TODO: Fetch from Emacs' engine.el automatically?
|
;; TODO: Fetch from Emacs' engine.el automatically?
|
||||||
((search-engines :initform
|
((search-engines :initform
|
||||||
(append
|
(append
|
||||||
|
@ -165,7 +176,7 @@ Videos are downloaded with `+youtube-dl-command+'."
|
||||||
|
|
||||||
(if (boundp '*remote-interface-class*)
|
(if (boundp '*remote-interface-class*)
|
||||||
(setf *remote-interface-class* 'my-remote-interface)
|
(setf *remote-interface-class* 'my-remote-interface)
|
||||||
(setf *interface-class* 'my-remote-interface))
|
(setf *interface-class* 'my-interface))
|
||||||
|
|
||||||
(defmethod deserialize-bookmarks (stream)
|
(defmethod deserialize-bookmarks (stream)
|
||||||
"This version of deserialize-bookmarks is compatibly with Ambrevar's EWW
|
"This version of deserialize-bookmarks is compatibly with Ambrevar's EWW
|
||||||
|
|
Loading…
Reference in New Issue