Next: Rename to Nyxt.

.config/nyxt/init.lisp

@@ -83,7 +83,7 @@ Videos are downloaded with `+youtube-dl-command+'."
          (domain (and uri (quri:uri-domain uri))))
     ;; TODO: Turn on/off proxy, not mode.
     (when domain
-      (next/proxy-mode:proxy-mode
+      (nyxt/proxy-mode:proxy-mode
        :activate
        (not (member-string domain *my-unproxied-domains*)))))
   request-data)
@@ -91,17 +91,17 @@ Videos are downloaded with `+youtube-dl-command+'."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defvar *my-blocked-hosts*
-  (next/blocker-mode:make-hostlist
+  (nyxt/blocker-mode:make-hostlist
    :hosts '("platform.twitter.com"
             "syndication.twitter.com"
             "m.media-amazon.com")))
 
-(define-configuration next/blocker-mode:blocker-mode
+(define-configuration nyxt/blocker-mode:blocker-mode
-  ((next/blocker-mode:hostlists (append (list *my-blocked-hosts*) %slot-default))))
+  ((nyxt/blocker-mode:hostlists (append (list *my-blocked-hosts*) %slot-default))))
 
-;; (define-mode my-blocker-mode (next/blocker-mode:blocker-mode)
+;; (define-mode my-blocker-mode (nyxt/blocker-mode:blocker-mode)
 ;;   "Blocker mode with custom hosts from `*my-blocked-hosts*'."
-;;   ((next/blocker-mode:hostlists :initform (list *my-blocked-hosts* next/blocker-mode:*default-hostlist*))))
+;;   ((nyxt/blocker-mode:hostlists :initform (list *my-blocked-hosts* nyxt/blocker-mode:*default-hostlist*))))
 
 (define-configuration buffer
   ((default-modes (append
@@ -156,7 +156,7 @@ format."
                     (when (getf entry :mark)
                       (setf (getf entry :shortcut) (getf entry :mark))
                       (remf entry :mark))
-                    (apply #'make-instance 'next:bookmark-entry
+                    (apply #'make-instance 'nyxt:bookmark-entry
                            entry))
                   entries)))
     (error (c)
@@ -176,7 +176,7 @@ format."
           (echo "Loading ~a bookmarks from ~s."
                 (length data)
                 (expand-path (bookmarks-path *browser*)))
-          (setf (slot-value *browser* 'next::bookmarks-data) data)))
+          (setf (slot-value *browser* 'nyxt::bookmarks-data) data)))
 
     (error (c)
       (echo-warning "Failed to load bookmarks from ~s: ~a" (expand-path (bookmarks-path *browser*)) c))))
@@ -184,7 +184,7 @@ format."
 (defvar my-search-engines
   (loop for file in '("~/.emacs.d/lisp/init-engine.el"
                       "~/personal/bookmarks/engines.el")
-        append (next::with-maybe-gpg-file (s file)
+        append (nyxt::with-maybe-gpg-file (s file)
                  (read-emacs-engines s))))
 
 (define-configuration browser
@@ -195,7 +195,7 @@ format."
    ;; (bookmarks-restore-function #'restore-eww-bookmarks)
    ))
 
-(setf next/vcs:*vcs-projects-roots* '("~/projects"
+(setf nyxt/vcs:*vcs-projects-roots* '("~/projects"
                                       "~/common-lisp"
                                       "~/.local/share/emacs/site-lisp"))
 
@@ -225,14 +225,14 @@ format."
 
 (load-system :slynk)
 (when (find-package :slynk)
-  (next::load-lisp "/home/ambrevar/dotfiles/.config/next/slynk.lisp"))
+  (nyxt::load-lisp "/home/ambrevar/dotfiles/.config/nyxt/slynk.lisp"))
 
 
 (defvar +dev-data-profile+ (make-instance 'data-profile :name "dev")
   "Development profile.")
 
-(defmethod next:expand-data-path ((profile (eql +dev-data-profile+)) (path data-path))
+(defmethod nyxt:expand-data-path ((profile (eql +dev-data-profile+)) (path data-path))
-  "Persist data to /tmp/next/."
+  "Persist data to /tmp/nyxt/."
   (expand-default-path (make-instance (class-name (class-of path))
                                       :basename (basename path)
-                                      :dirname "/tmp/next/")))
+                                      :dirname "/tmp/nyxt/")))