From fdd11abce2a0205bbc96077ca9c4cf1e85e8b98e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 16 Oct 2023 20:45:23 +0300 Subject: Remove nyxt --- .config/nyxt/ace.lisp | 154 -------------------------- .config/nyxt/bookmarks.lisp | 3 - .config/nyxt/commands.lisp | 136 ----------------------- .config/nyxt/config-back.lisp | 33 ------ .config/nyxt/config.lisp | 228 --------------------------------------- .config/nyxt/dark-reader.lisp | 12 --- .config/nyxt/freestance.lisp | 6 -- .config/nyxt/github.lisp | 139 ------------------------ .config/nyxt/hsplit.lisp | 25 ----- .config/nyxt/kaomoji.lisp | 10 -- .config/nyxt/keybinds.lisp | 35 ------ .config/nyxt/objdump.lisp | 52 --------- .config/nyxt/passwd.lisp | 14 --- .config/nyxt/search-engines.lisp | 99 ----------------- .config/nyxt/status.lisp | 33 ------ .config/nyxt/style.lisp | 43 -------- .config/nyxt/unpdf.lisp | 86 --------------- 17 files changed, 1108 deletions(-) delete mode 100644 .config/nyxt/ace.lisp delete mode 100644 .config/nyxt/bookmarks.lisp delete mode 100644 .config/nyxt/commands.lisp delete mode 100644 .config/nyxt/config-back.lisp delete mode 100644 .config/nyxt/config.lisp delete mode 100644 .config/nyxt/dark-reader.lisp delete mode 100644 .config/nyxt/freestance.lisp delete mode 100644 .config/nyxt/github.lisp delete mode 100644 .config/nyxt/hsplit.lisp delete mode 100644 .config/nyxt/kaomoji.lisp delete mode 100644 .config/nyxt/keybinds.lisp delete mode 100644 .config/nyxt/objdump.lisp delete mode 100644 .config/nyxt/passwd.lisp delete mode 100644 .config/nyxt/search-engines.lisp delete mode 100644 .config/nyxt/status.lisp delete mode 100644 .config/nyxt/style.lisp delete mode 100644 .config/nyxt/unpdf.lisp diff --git a/.config/nyxt/ace.lisp b/.config/nyxt/ace.lisp deleted file mode 100644 index 2fe3a62..0000000 --- a/.config/nyxt/ace.lisp +++ /dev/null @@ -1,154 +0,0 @@ -(in-package #:nyxt-user) - -;;;; This is a configuration for the Ace editor Nyxt integration -;;;; (https://github.com/atlas-engineer/nx-ace). - -(define-configuration nx-ace:ace-mode - ((nx-ace:extensions - (mapcar - (lambda (name) - (quri:merge-uris (quri:uri name) - (quri:uri "https://cdnjs.cloudflare.com/ajax/libs/ace/1.9.6/"))) - '("keybinding-emacs.min.js" - ;; Themes - "theme-twilight.min.js" - "theme-github.min.js" - ;; Language modes - "mode-c_cpp.min.js" - "mode-asciidoc.min.js" - "mode-clojure.min.js" - "mode-csharp.min.js" - "mode-css.min.js" - "mode-diff.min.js" - "mode-dot.min.js" - "mode-forth.min.js" - "mode-fsharp.min.js" - "mode-gitignore.min.js" - "mode-glsl.min.js" - "mode-golang.min.js" - "mode-haskell.min.js" - "mode-html.min.js" - "mode-ini.min.js" - "mode-java.min.js" - "mode-javascript.min.js" - "mode-json.min.js" - "mode-jsx.min.js" - "mode-julia.min.js" - "mode-kotlin.min.js" - "mode-latex.min.js" - "mode-lisp.min.js" - "mode-lua.min.js" - "mode-makefile.min.js" - "mode-markdown.min.js" - "mode-mediawiki.min.js" - "mode-nix.min.js" - "mode-objectivec.min.js" - "mode-perl.min.js" - "mode-plain_text.min.js" - "mode-python.min.js" - "mode-r.min.js" - "mode-robot.min.js" - "mode-ruby.min.js" - "mode-rust.min.js" - "mode-scala.min.js" - "mode-scheme.min.js" - "mode-sh.min.js" - "mode-snippets.min.js" - "mode-sql.min.js" - "mode-svg.min.js" - "mode-tex.min.js" - "mode-text.min.js" - "mode-tsx.min.js" - "mode-typescript.min.js" - "mode-xml.min.js" - "mode-yaml.min.js" - ;; Snippets - "snippets/c_cpp.min.js" - "snippets/css.min.js" - "snippets/html.min.js" - "snippets/javascript.min.js" - "snippets/json.min.js" - "snippets/latex.min.js" - "snippets/lisp.min.js" - "snippets/makefile.min.js" - "snippets/markdown.min.js" - "snippets/plain_text.min.js" - "snippets/python.min.js" - "snippets/scheme.min.js" - "snippets/snippets.min.js" - "snippets/tex.min.js" - "snippets/text.min.js" - "snippets/yaml.min.js" - ;; Language Workers - "worker-base.min.js" - "worker-css.min.js" - "worker-html.min.js" - "worker-javascript.min.js" - "worker-json.min.js" - "worker-xml.min.js" - "worker-yaml.min.js" - ;; Extensions - "ext-language_tools.min.js" - "ext-emmet.min.js" - "ext-keybinding_menu.min.js" - "ext-modelist.min.js" - "ext-searchbox.min.js" - "ext-settings_menu.min.js" - "ext-themelist.min.js" - "ext-beautify.min.js" - "ext-prompt.min.js" - "ext-split.min.js" - "ext-whitespace.min.js" - "ext-statusbar.min.js"))))) - -(define-configuration nx-ace:ace-mode - ((nx-ace::theme "ace/theme/twilight") - (nx-ace::keybindings "ace/keyboard/emacs"))) - -(define-configuration nx-ace:ace-mode - ((nx-ace:epilogue - (str:concat - (ps:ps - (flet ((req (ext) - (ps:chain ace (require ext))) - (bind (key command) - (ps:chain editor commands (bind-key key command)))) - (req "ace/ext/searchbox") - (req "ace/ext/split") - (req "ace/ext/themelist") - (req "ace/ext/emmet") - (req "ace/ext/language_tools") - (req "ace/worker/javascript") - (ps:chain editor (set-option "fontSize" 18)) - (ps:chain editor (set-option "enableBasicAutocompletion" t)) - (ps:chain editor (set-option "enableSnippets" t)) - (ps:chain editor session - (set-mode (ps:chain (req "ace/ext/modelist") - (get-mode-for-path (ps:@ window location href)) mode))) - (bind "Shift-space" "setMark") - (bind "Ctrl-\\" "toggleFoldWidget") - (bind "Ctrl-c ;" "toggleComment") - (bind "Ctrl-Alt-b" "jumptomatching") - (bind "Ctrl-Alt-f" "jumptomatching") - (bind "Alt-space" "expandToMatching") - (bind "Alt-%" "replace") - (req "ace/ext/split") - (ps:chain (req "ace/ext/settings_menu") (init editor)) - (ps:chain (req "ace/ext/keybinding_menu") (init editor)) - (bind "Ctrl-h m" (lambda (editor) - (ps:chain editor (show-keyboard-shortcuts)))) - (bind "C-i" "indent") - (ps:chain editor commands - (add-command (ps:chain ace (require "ace/ext/beautify") commands 0))))))))) - -(define-configuration nx-ace:ace-mode - ((style (str:concat - %slot-value% - (theme:themed-css (theme *browser*) - `("#kbshortcutmenu" - :background-color ,theme:background - :color ,theme:on-background)))) - (nx-ace::keybindings "ace/keyboard/emacs"))) - -(define-configuration :editor-buffer - ((default-modes `(nx-ace:ace-mode ,@%slot-value%)))) diff --git a/.config/nyxt/bookmarks.lisp b/.config/nyxt/bookmarks.lisp deleted file mode 100644 index da2a19e..0000000 --- a/.config/nyxt/bookmarks.lisp +++ /dev/null @@ -1,3 +0,0 @@ -( -(:url "https://boards.4channel.org/g/thread/96062082/ptg-private-trackers-general" :title "/g/ - /ptg - Private Trackers General - Technology - 4chan" :date "2023-09-18T01:01:24.699824Z" :tags ("4chan")) -) diff --git a/.config/nyxt/commands.lisp b/.config/nyxt/commands.lisp deleted file mode 100644 index c048935..0000000 --- a/.config/nyxt/commands.lisp +++ /dev/null @@ -1,136 +0,0 @@ -(in-package #:nyxt-user) - -(define-command-global eval-expression () - "Prompt for the expression and evaluate it, echoing result to the `message-area'. -Part of this is functionality is built into execute-command on 3.*. -BUT: this one lacks error handling, so I often use it for Nyxt-internal debugger." - (let ((expression-string - ;; Read an arbitrary expression. No error checking, though. - (first (prompt :prompt "Expression to evaluate" - :sources (list (make-instance 'prompter:raw-source)))))) - ;; Message the evaluation result to the message-area down below. - (echo "~S" (eval (read-from-string expression-string))))) - -(defvar unicode '() - "All the Unicode characters (or, well, all the characters the implementation supports.)") - -(define-class unicode-source (prompter:source) - ((prompter:name "Unicode character") - (prompter:filter-preprocessor #'prompter:filter-exact-matches) - (prompter:constructor (lambda () - (or unicode - (setf unicode - (loop for i from 0 - while (ignore-errors (code-char i)) - collect (code-char i)))))))) - -(defmethod prompter:object-attributes ((char character) (source unicode-source)) - `(("Character" ,(if (graphic-char-p char) - (princ-to-string char) - (format nil "~s" char))) - ("Name" ,(char-name char)) - ("Code" ,(format nil "~D/~:*~X" (char-code char))))) - -(define-command-global insert-unicode (&key (character (prompt :prompt "Character to insert" - :sources 'unicode-source))) - "Insert the chosen Unicode character." - (ffi-buffer-paste (string character))) - -(nyxt/mode/bookmarklets:define-bookmarklet-command-global - post-to-hn - "Post the link you're currently on to Hacker News" - "window.location=\"https://news.ycombinator.com/submitlink?u=\" + encodeURIComponent(document.location) + \"&t=\" + encodeURIComponent(document.title)") - -(define-command-global open-in-nosave-buffer () - "Make a new nosave buffer with URL at point." - (let ((url (url-at-point (current-buffer)))) - (make-nosave-buffer :url url))) - -(ffi-add-context-menu-command - (lambda () - (when (url-at-point (current-buffer)) - (make-nosave-buffer :url (url-at-point (current-buffer))))) - "Open Link in New Nosave Buffer") - -#+nyxt-gtk -(define-command-global make-new-buffer-with-url-and-context () - "Make a new buffer with a user-chosen context and a URL under pointer." - (nyxt/renderer/gtk:make-buffer-with-context :url (url-at-point (current-buffer)))) - -(ffi-add-context-menu-command - 'make-new-buffer-with-url-and-context - "Open Link in New Buffer with Context") - -(define-panel-command-global search-translate-selection (&key (selection (ffi-buffer-copy (current-buffer)))) - (panel "*Translate panel*" :right) - "Open the translation of the selected word in a panel buffer." - (setf (ffi-width panel) 550) - (run-thread "search translation URL loader" - (sleep 0.3) - (buffer-load (quri:uri (format nil (nyxt::search-url (nyxt::default-search-engine)) - (str:concat "translate " (ffi-buffer-copy (current-buffer))))) - :buffer panel)) - "") - -(ffi-add-context-menu-command - 'search-translate-selection - "Translate Selection") - -(define-command-global add-autofill () - "Add an autofill with the selected text to the list of `autofill-mode' autofills." - (push (make-instance 'nyxt/mode/autofill:autofill - :name (prompt1 :prompt "Autofill key" :sources 'prompter:raw-source) - :fill (ffi-buffer-copy (current-buffer))) - (nyxt/mode/autofill::autofills (current-mode :autofill)))) - -(ffi-add-context-menu-command - 'add-autofill - "Add Temporary Autofill") - -(ffi-add-context-menu-command - (lambda () - (let ((url (url-at-point (current-buffer)))) - (nyxt/mode/bookmark:bookmark-add url :title (fetch-url-title url)))) - "Bookmark this URL") - -(defmethod nyxt:value->html :around ((value string) &optional compact-p) - (declare (ignorable compact-p)) - (if (html-string-p value) - (spinneret:with-html-string - (:label - (:raw (call-next-method)) - (:br) - (:raw value))) - (call-next-method))) - -(defun make-clcs-link (symbol) - (str:concat "https://cl-community-spec.github.io/pages/" - (str:replace-all "-" "_002d" symbol))) - -(defmemo ping-clcs (symbol) - (handler-case - (prog1 - t - (dex:get (make-clcs-link symbol))) - (error () nil))) - -(define-command-global clcs-lookup () - (prompt - :sources (list (make-instance - 'prompter:source - :name "CL symbols" - :constructor (mapcar #'prini-to-string - (nsymbols:package-symbols :cl :visibility :external)) - :enable-marks-p t - :filter-postprocessor #'(lambda (suggestions source input) - (declare (ignorable source input)) - (remove-if (complement #'ping-clcs) suggestions - :key #'prompter:value)) - :actions-on-return (list - (lambda-command clcs-current-buffer* (symbols) - (mapcar (alexandria:curry #'make-buffer-focus :url) - (mapcar #'make-clcs-link (rest symbols))) - (buffer-load (make-clcs-link (first symbols)))) - (lambda-command clcs-new-buffer* (symbols) - (mapcar (alexandria:curry #'make-buffer-focus :url) - (mapcar #'make-clcs-link symbols)))))))) diff --git a/.config/nyxt/config-back.lisp b/.config/nyxt/config-back.lisp deleted file mode 100644 index 3bcc50b..0000000 --- a/.config/nyxt/config-back.lisp +++ /dev/null @@ -1,33 +0,0 @@ -(define-configuration browser - ((theme theme:+dark-theme+))) -(define-configuration (web-buffer prompt-buffer panel-buffer - nyxt/mode/editor:editor-buffer) - ((default-modes (pushnew 'nyxt/mode/emacs:emacs-mode %slot-value%)))) - - - -(defvar *my-search-engines* - (list - '("google" "https://google.com/search?q=~a" "https://google.com") - '("doi" "https://dx.doi.org/~a" "https://dx.doi.org/") - '("duck" "https://duckduckgo.com/?q=~a" "https://duckudckgo.com")) - "List of search engines.") - -(define-configuration context-buffer - "Go through the search engines above and make-search-engine out of them." - ((search-engines - (append %slot-default% - (mapcar - (lambda (engine) (apply 'make-search-engine engine)) - *my-search-engines*))))) - -(define-configuration nyxt/mode/style:dark-mode - ((style - (theme:themed-css (theme *browser*) - `(* :background-color ,theme:background "!important" - :background-image none "!important" :color "blue" - "!important") - `(a :background-color ,theme:background "!important" - :background-image none "!important" :color "#AAAAAA" - "!important"))))) - diff --git a/.config/nyxt/config.lisp b/.config/nyxt/config.lisp deleted file mode 100644 index 32e4b17..0000000 --- a/.config/nyxt/config.lisp +++ /dev/null @@ -1,228 +0,0 @@ -(in-package #:nyxt-user) - -;;; Reset ASDF registries to allow loading Lisp systems from -;;; everywhere. -#+nyxt-3 (reset-asdf-registries) - -;;; Load quicklisp. Not sure it works. -#-quicklisp -(let ((quicklisp-init - (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) - (when (probe-file quicklisp-init) - (load quicklisp-init))) - -(defvar *web-buffer-modes* - '(:emacs-mode -; :blocker-mode :force-https-mode - :reduce-tracking-mode - :user-script-mode :bookmarklets-mode) - "The modes to enable in any web-buffer by default. -Extension files (like dark-reader.lisp) are to append to this list. - -Why the variable? Because it's too much hassle copying it everywhere.") - -;;; Loading files from the same directory. -(define-nyxt-user-system-and-load nyxt-user/basic-config - :components ("keybinds" "status" "commands" "hsplit" "style" "unpdf" "objdump" "github")) - -;;; Loading extensions and third-party-dependent configs. See the -;;; matching files for where to find those extensions. -(defmacro defextsystem (system &optional file) - "Helper macro to load configuration for extensions. -Loads a newly-generated ASDF system depending on SYSTEM. -FILE, if provided, is loaded after the generated system successfully -loads." - `(define-nyxt-user-system-and-load ,(gensym "NYXT-USER/") - :depends-on (,system) ,@(when file - `(:components (,file))))) - -;(defextsystem :nx-search-engines "search-engines") -(defextsystem :nx-kaomoji "kaomoji") -(defextsystem :nx-ace "ace.lisp") -(defextsystem :nx-fruit) -(defextsystem :nx-freestance-handler "freestance") -(defextsystem :nx-dark-reader "dark-reader") - -(defvar *my-search-engines* - (list - '("google" "https://google.com/search?q=~a" "https://google.com") - '("doi" "https://dx.doi.org/~a" "https://dx.doi.org/") - '("duck" "https://duckduckgo.com/?q=~a" "https://duckudckgo.com") - ;'("thanos" "https://search.thanosapollo.com/searxng/search?q=~a") - ) - "List of search engines.") - -(define-configuration context-buffer - "Go through the search engines above and make-search-engine out of them." - ((search-engines - (append %slot-default% - (mapcar - (lambda (engine) (apply 'make-search-engine engine)) - *my-search-engines*))))) - -(define-configuration browser - ;; Enable --remote --eval code evaluation. - ((remote-execution-p t) - (external-editor-program - (list "emacsclient" "-cn" "-a" "" "-F" - "((font . \"JetBrains Mono\") (vertical-scroll-bars) (tool-bar-lines) (menu-bar-lines))")))) - -(define-configuration :autofill-mode - "Setting up autofills." - ((autofills (flet ((autofill (name fill) - (nyxt/mode/autofill:make-autofill :name name :fill fill)) - (done (text) - (lambda () - (uiop:strcat text " in " (trivial-clipboard:text))))) - (list (autofill "ellipsis" "…") - (autofill "naive" "naïve") - (autofill "andre" "André") - (autofill "ala" "a-lá") - (autofill "let" "laisser-faire") - (autofill "voila" "Et voilà!") - (autofill "done" (done "Done")) - (autofill "fixed" (done "Fixed")) - (autofill "reverted" (done "Reverted"))))))) - -;;; Those are settings that every type of buffer should share. -(define-configuration (:modable-buffer :prompt-buffer :editor-buffer) - "Set up Emacs keybindings everywhere possible. - -If you're the VI person, then use this: -(define-configuration :web-buffer - ((default-modes (append (list :vi-normal-mode) %slot-value%)))) - -You probably want to stay with CUA in :prompt-buffer, because it's too -weird using it with VI bindings. But if you're feeling risky, then: -(define-configuration :prompt-buffer - ((default-modes (append (list :vi-insert-mode) %slot-value%))))" - ((default-modes `(:emacs-mode ,@%slot-value%)))) - -(define-configuration :prompt-buffer - "Make the attribute widths adjust to the content in them. - -It's not exactly necessary on master, because there are more or less -intuitive default widths, but these are sometimes inefficient (and -note that I made this feature so I want to have it :P)." - ((dynamic-attribute-width-p t))) - -(define-configuration :web-buffer - ((download-engine - :renderer - :doc "This overrides download engine to use WebKit instead of Nyxt-native -Dexador-based download engine. I don't remember why I switched, -though.") - (search-always-auto-complete-p - nil - :doc "I don't like search completion when I don't need it.") - (global-history-p - nil - :doc "It was disabled after 2.2.4, while being a useful feature. -I'm forcing it here, because I'm getting lost in buffer-local -histories otherwise..."))) - -(define-configuration :prompt-buffer - ((hide-single-source-header-p - t - :doc "This is to hide the header is there's only one source. -There also used to be other settings to make prompt-buffer a bit -more minimalist, but those are internal APIs :("))) - -(define-configuration :web-buffer - "Basic modes setup for web-buffer." - ((default-modes `(,@*web-buffer-modes* ,@%slot-value%)))) - -(define-configuration :browser - "Set new buffer URL (a.k.a. start page, new tab page)." - ((default-new-buffer-url (quri:uri "nyxt:nyxt/mode/repl:repl")))) - -(define-configuration :nosave-buffer - "Enable proxy in nosave (private, incognito) buffers." - ((default-modes `(:proxy-mode ,@*web-buffer-modes* ,@%slot-value%)))) - -(define-configuration :hint-mode - "Set up QWERTY home row as the hint keys." - ((hints-alphabet "DSJKHLFAGNMXCWEIO"))) - -(define-configuration :history-mode - ((backtrack-to-hubs-p - t - :doc "I often browse with \"hub\" places, like GitHub notifications page. -Having all the links it leads to to be forward children of it is useful. -The feature is slightly experimental, though."))) - -(define-configuration :modable-buffer - "This makes auto-rules to prompt me about remembering this or that mode when I toggle it." - ((prompt-on-mode-toggle-p t))) - -(defmethod ffi-buffer-make :after ((buffer nyxt/renderer/gtk::gtk-buffer)) - "Setting WebKit-specific settings. -WARNING: Not exactly the best way to configure Nyxt, because it relies -on internal APIs and CFFI... - -See -https://webkitgtk.org/reference/webkit2gtk/stable/WebKitSettings.html -for the full list of settings you can tweak this way." - (when (slot-boundp buffer 'nyxt/renderer/gtk::gtk-object) - (let* ((settings (webkit:webkit-web-view-get-settings - (nyxt/renderer/gtk::gtk-object buffer)))) - (setf - ;; Resizeable textareas. It's not perfect, but still a cool feature to have. - (webkit:webkit-settings-enable-resizable-text-areas settings) t - ;; Write console errors/warnings to the shell, to ease debugging. - (webkit:webkit-settings-enable-write-console-messages-to-stdout settings) t - ;; "Inspect element" context menu option available at any moment. - (webkit:webkit-settings-enable-developer-extras settings) t - ;; Enable WebRTC. - (webkit:webkit-settings-enable-media-stream settings) t - ;; Use Cantarell-18 as the default font. - (webkit:webkit-settings-default-font-family settings) "JetBrains Mono" - (webkit:webkit-settings-default-font-size settings) 18 - ;; Use Hack-17 as the monospace font. - (webkit:webkit-settings-monospace-font-family settings) "Hack" - (webkit:webkit-settings-default-monospace-font-size settings) 17 - ;; Use Unifont for pictograms. - (webkit:webkit-settings-pictograph-font-family settings) "Material Icons"))) - ;; Set the view background to black. - (cffi:foreign-funcall - "webkit_web_view_set_background_color" - :pointer (g:pointer (nyxt/renderer/gtk:gtk-object buffer)) - ;; GdkRgba is simply an array of four doubles. - :pointer (cffi:foreign-alloc - :double - :count 4 - ;; red green blue alpha - :initial-contents '(0d0 0d0 0d0 1d0)))) - -(defmethod files:resolve ((profile nyxt:nyxt-profile) (file nyxt/mode/bookmark:bookmarks-file)) - "Reroute the bookmarks to the config directory." - #p"~/.config/nyxt/bookmarks.lisp") - -(define-configuration :reduce-tracking-mode - ((query-tracking-parameters - (append '("utm_source" "utm_medium" "utm_campaign" "utm_term" "utm_content") - %slot-value%) - :doc "This is to strip UTM-parameters off all the links. -Upstream Nyxt doesn't have it because it may break some websites.") - (preferred-user-agent - "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 Safari/537.36" - :doc "Mimic Chrome on MacOS."))) - -(unless nyxt::*run-from-repl-p* - (define-configuration :browser - "Enable Nyxt-internal debugging, but only in binary mode and after startup if done. -There are conditions raised at startup, and I don't want to catch -those, hanging my Nyxt)." - ((after-startup-hook (hooks:add-hook %slot-value% #'toggle-debug-on-error))))) - -;; (defun request-log (request-data) -;; (log:debug "~:@(~a~) ~a (~@[~*toplevel~]~@[~*resource~]) ~{~&~a~}" -;; (http-method request-data) (url request-data) -;; (toplevel-p request-data) (resource-p request-data) -;; (request-headers request-data)) -;; request-data) - -;; (define-configuration :web-buffer -;; "Request debugging, clutters the shell real fast." -;; ((request-resource-hook -;; (hooks:add-hook %slot-value% #'request-log)))) diff --git a/.config/nyxt/dark-reader.lisp b/.config/nyxt/dark-reader.lisp deleted file mode 100644 index e770d82..0000000 --- a/.config/nyxt/dark-reader.lisp +++ /dev/null @@ -1,12 +0,0 @@ -(in-package #:nyxt-user) - -(define-configuration nx-dark-reader:dark-reader-mode - ((nxdr:selection-color "#CD5C5C") - (nxdr:background-color "black") - (nxdr:text-color "white") - (nxdr:grayscale 50) - (nxdr:contrast 100) - (nxdr:brightness 100))) - -(define-configuration :web-buffer - ((default-modes `(nx-dark-reader:dark-reader-mode ,@%slot-value%)))) diff --git a/.config/nyxt/freestance.lisp b/.config/nyxt/freestance.lisp deleted file mode 100644 index c40c853..0000000 --- a/.config/nyxt/freestance.lisp +++ /dev/null @@ -1,6 +0,0 @@ -(in-package #:nyxt-user) - -(define-configuration :web-buffer - "Adding YouTube -> Invidious handler." - ((request-resource-hook - (hooks:add-hook %slot-value% 'nx-freestance-handler:invidious-handler)))) diff --git a/.config/nyxt/github.lisp b/.config/nyxt/github.lisp deleted file mode 100644 index 78724a9..0000000 --- a/.config/nyxt/github.lisp +++ /dev/null @@ -1,139 +0,0 @@ -;; Could be an extension someday. -(nyxt:define-package :nx-github-mode - (:documentation "Mode with GitHub-related commands.")) -(in-package :nx-github-mode) - -(nyxt:define-mode github-mode () - "Manage Nyxt GitHub repository with convenient keybindings." - ((glyph "γ") - (keyscheme-map - (define-keyscheme-map "github-mode" () - keyscheme:emacs - (list - "C-c C-c" 'approve-pull-request - "C-c C-m" 'new-feature-request - "C-c C-k" 'report-bug - "C-c C-r" 'review - "C-c C-0" 'notifications))))) - -(define-command notifications () - (let* ((notification-links (clss:select "a[href^=\"https://github.com/notifications\"]" - (document-model (current-buffer)))) - (back-to-notifications - (unless (uiop:emptyp notification-links) - (find-if (lambda (l) (search "Back to notifications" (nyxt/dom:body l))) - notification-links)))) - (if back-to-notifications - (nyxt/dom:click-element back-to-notifications) - (buffer-load "https://github.com/notifications?query=reason:assign%20reason:mention%20reason:review-requested%20reason:team-mention%20reason:ci-activity")))) - -(define-command nyxt () - (buffer-load "https://github.com/atlas-engineer/nyxt")) - -(defun debug-autofill () - (ps-eval - (setf (ps:@ document active-element value) "")) - (format - nil "**Describe the bug** - -**Precise recipe to reproduce the issue** - -For website-specific issues: -Can you reproduce this issue with Epiphany / GNOME Web (https://wiki.gnome.org/Apps/Web)? - -**Information** -- OS name+version: GuixSD -```sh -$ guix describe -~a -``` -- Graphics card and driver: Intel UHD 620, `i915` -``` sh -$ lspci -v -... -00:02.0 VGA compatible controller: Intel Corporation UHD Graphics (rev 01) (prog-if 00 [VGA controller]) - Subsystem: Lenovo Device 5089 - Flags: bus master, fast devsel, latency 0, IRQ 165 - Memory at 601c000000 (64-bit, non-prefetchable) [size=16M] - Memory at 4000000000 (64-bit, prefetchable) [size=256M] - I/O ports at 3000 [size=64] - Expansion ROM at 000c0000 [virtual] [disabled] [size=128K] - Capabilities: - Kernel driver in use: i915 - Kernel modules: i915 -... -``` -- Desktop environment / Window manager name+version: StumpWM 20.11 -- How you installed Nyxt (Guix pack, package manager, build from source): `guix package -f nyxt.scm` -- Information from `show-system-information`: -``` -~a -``` - -**Output when started from a shell** " - (uiop:run-program "guix describe" - :output '(:string :stripped t)) - (nyxt::system-information))) - -(define-command report-bug () - "Report the bug on Nyxt GitHub, filling all the necessary information in the process." - (let* ((title (prompt1 - :prompt "Title of the issue" - :sources (list (make-instance 'prompter:raw-source)))) - (buffer (make-buffer-focus - :url (quri:uri (format nil "https://github.com/atlas-engineer/nyxt/issues/new?&template=bug_report.md&title=~a" - title))))) - (hooks:once-on (buffer-loaded-hook buffer) - (buffer) - (ps-eval - (ps:chain (nyxt/ps:qs document "#issue_body") (focus))) - (ffi-buffer-paste buffer (debug-autofill))))) - -(define-command new-feature-request () - "Open a new feature request in Nyxt repo." - (let* ((title (prompt1 - :prompt "Title of the issue" - :sources (list (make-instance 'prompter:raw-source)))) - (buffer (make-buffer-focus - :url (quri:uri (format nil "https://github.com/atlas-engineer/nyxt/issues/new?assignees=&labels=feature&template=feature_request.md&title=~a" - title))))) - (hooks:once-on (buffer-loaded-hook buffer) - (buffer) - (ps-eval - (ps:chain (nyxt/ps:qs document "#issue_body") (focus)))))) - -(define-command review () - "Open the file diffing tab of the pull request." - (let* ((url (url (current-buffer))) - (files-url (quri:copy-uri - url - :path (str:concat (string-right-trim "/" (quri:uri-path url)) - "/files")))) - (unless (or (search "/files" (render-url url)) - (string/= "github.com" (quri:uri-domain url))) - (buffer-load files-url)))) - -(define-command approve-pull-request () - "Approve the pull request currently open." - (review) - (hooks:wait-on (buffer-loaded-hook (current-buffer)) - buffer - ;; Make sure Nyxt DOM is fresh. - (update-document-model :buffer buffer) - (flet ((sel (selector) - (let ((result (clss:select selector (document-model buffer)))) - (unless (uiop:emptyp result) - (elt result 0))))) - ;; Nyxt/DOM already has lots of things, so why not use them? - (nyxt/dom:toggle-details-element (sel "#review-changes-modal")) - (nyxt/dom:click-element (sel "input[type=radio][value=approve]")) - (nyxt/dom:click-element (sel "button[type=submit]"))))) - -(define-command done () - (let* ((button (elt (clss:select "button[type=\"submit\"][title=\"Done\"], -button[type=\"submit\"][aria-label=\"Done\"]" - (document-model (current-buffer))) 0))) - (nyxt/dom:click-element button))) - -(define-auto-rule '(match-domain "github.com") - :included '(github-mode)) diff --git a/.config/nyxt/hsplit.lisp b/.config/nyxt/hsplit.lisp deleted file mode 100644 index 2f49510..0000000 --- a/.config/nyxt/hsplit.lisp +++ /dev/null @@ -1,25 +0,0 @@ -(in-package #:nyxt-user) - -(define-panel-command hsplit-internal (&key (url (quri:render-uri (url (current-buffer))))) - (panel "*Duplicate panel*" :right) - "Duplicate the current buffer URL in the panel buffer on the right. - -A poor man's hsplit :)" - (setf (ffi-width panel) 550) - (run-thread "URL loader" - (sleep 0.3) - (buffer-load (quri:uri url) :buffer panel)) - "") - -(define-command-global close-all-panels () - "Close all the panel buffers there are." - (alexandria:when-let ((panels (nyxt/renderer/gtk::panel-buffers-right (current-window)))) - (delete-panel-buffer :window (current-window) :panels panels)) - (alexandria:when-let ((panels (nyxt/renderer/gtk::panel-buffers-left (current-window)))) - (delete-panel-buffer :window (current-window) :panels panels))) - -(define-command-global hsplit () - "Based on `hsplit-internal' above." - (if (nyxt/renderer/gtk::panel-buffers-right (current-window)) - (delete-all-panel-buffers (current-window)) - (hsplit-internal))) diff --git a/.config/nyxt/kaomoji.lisp b/.config/nyxt/kaomoji.lisp deleted file mode 100644 index f288b03..0000000 --- a/.config/nyxt/kaomoji.lisp +++ /dev/null @@ -1,10 +0,0 @@ -(in-package #:nyxt-user) - -;;;; This is a file with settings for my nx-kaomoji extension. -;;;; You can find it at https://github.com/aartaka/nx-kaomoji - -(define-configuration :document-mode - "Add a single keybinding for the extension-provided `kaomoji-fill' command." - ((keymap-scheme - (alter-keyscheme %slot-value% nyxt/keyscheme:emacs - "C-c K" 'nx-kaomoji:kaomoji-fill)))) diff --git a/.config/nyxt/keybinds.lisp b/.config/nyxt/keybinds.lisp deleted file mode 100644 index 4bc9a0c..0000000 --- a/.config/nyxt/keybinds.lisp +++ /dev/null @@ -1,35 +0,0 @@ -(in-package #:nyxt-user) - -(define-configuration :document-mode - "Add basic keybindings." - ((keyscheme-map - (keymaps:define-keyscheme-map - "custom" (list :import %slot-value%) - ;; If you want to have VI bindings overriden, just use - ;; `scheme:vi-normal' or `scheme:vi-insert' instead of - ;; `scheme:emacs'. - nyxt/keyscheme:emacs - (list "C-c p" 'copy-password - "C-c u" 'copy-username - "C-c y" 'autofill - "C-f" :history-forwards-maybe-query - "C-i" :input-edit-mode - "M-:" 'eval-expression - "C-s" :search-buffer - "C-x 3" 'hsplit - "C-x 1" 'close-all-panels - "C-'" (lambda-command insert-left-angle-quote () - (ffi-buffer-paste (current-buffer) "«")) - "C-M-'" (lambda-command insert-left-angle-quote () - (ffi-buffer-paste (current-buffer) "»")) - "C-M-hyphen" (lambda-command insert-left-angle-quote () - (ffi-buffer-paste (current-buffer) "—")) - "C-M-_" (lambda-command insert-left-angle-quote () - (ffi-buffer-paste (current-buffer) "–")) - "C-E" (lambda-command small-e-with-acute () - (ffi-buffer-paste (current-buffer) "é")) - "C-A" (lambda-command small-a-with-acute () - (ffi-buffer-paste (current-buffer) "á")) - "C-I" (lambda-command small-i-diaeresis () - (ffi-buffer-paste (current-buffer) "ï")) - "C-h hyphen" 'clcs-lookup))))) diff --git a/.config/nyxt/objdump.lisp b/.config/nyxt/objdump.lisp deleted file mode 100644 index 341e2ce..0000000 --- a/.config/nyxt/objdump.lisp +++ /dev/null @@ -1,52 +0,0 @@ -(in-package #:nyxt-user) - -(define-internal-page-command-global objdump (&key (file (uiop:native-namestring - (prompt1 :prompt "File to disassemble" - :input (uiop:native-namestring (uiop:getcwd)) - :sources 'nyxt/mode/file-manager:file-source)))) - (buffer (format nil "Objdump of ~a" file)) - "Show disassembly of code sections and contents of data sections in FILE." - (spinneret:with-html-string - (let* ((disassembly - (uiop:run-program (list "objdump" "--demangle" "--debugging" "--disassemble" - "--line-numbers" "--source" "--visualize-jumps" "--wide" file) - :output '(:string :stripped t))) - (lines (member-if (lambda (elem) (uiop:string-prefix-p "Disassembly" elem)) - (mapcar #'str:trim (str:split " - -" disassembly :omit-nulls t)))) - (sections (mapcar - (lambda (string) - (multiple-value-bind (start end starts ends) - (ppcre:scan "(\\d+)\\s*([^\\s]*).*" string) - (subseq string (elt starts 1) (elt ends 1)))) - (remove-if-not - (lambda (str) (digit-char-p (elt str 0))) - (remove-if #'uiop:emptyp - (mapcar #'str:trim - (serapeum:lines - (uiop:run-program (list "objdump" "-h" file) - :output '(:string :stripped t)))))))) - (code-sections (loop for (section code) on lines by #'cddr - collect (if (uiop:string-prefix-p "Disassembly of section " section) - (serapeum:slice section 23 -1) - section))) - (data-sections (set-difference sections code-sections :test #'string-equal))) - (loop for (section code) on lines by #'cddr - collect (:nsection - :id (prini-to-string (new-id)) - :title (if (uiop:string-prefix-p "Disassembly of section " section) - (subseq section 23) - section) - (:pre code))) - (loop for data in data-sections - collect (:nsection - :id (prini-to-string (new-id)) - :title data - (:pre (cadr (mapcar - #'str:trim - (str:split " - -" (uiop:run-program (list "objdump" "--section" data "--full-contents" file) - :output '(:string :stripped t)) -:omit-nulls t))))))))) diff --git a/.config/nyxt/passwd.lisp b/.config/nyxt/passwd.lisp deleted file mode 100644 index 8fc56fe..0000000 --- a/.config/nyxt/passwd.lisp +++ /dev/null @@ -1,14 +0,0 @@ -(in-package #:nyxt-user) - -(defmethod initialize-instance :after ((interface password:keepassxc-interface) &key &allow-other-keys) - "I use KeePassXC, and this simply sets the location of the password files." - (setf (password:password-file interface) "/home/aartaka/Documents/p.kdbx")) - -(define-configuration :password-mode - "This is to emphasize that I use KeePassXC. -Nyxt is (was?) not always smart enough to guess that." - ((password-interface (make-instance 'password:keepassxc-interface)))) - -(define-configuration :buffer - ((default-modes (append `(:password-mode) %slot-value%)))) - diff --git a/.config/nyxt/search-engines.lisp b/.config/nyxt/search-engines.lisp deleted file mode 100644 index 9ff81b2..0000000 --- a/.config/nyxt/search-engines.lisp +++ /dev/null @@ -1,99 +0,0 @@ -(in-package #:nyxt-user) - -;;;; This is a file with settings for my nx-search-engines extension. -;;;; You can find it at https://github.com/aartaka/nx-search-engines - -(defvar *duckduckgo-keywords* - '(:theme :dark - :help-improve-duckduckgo nil - :homepage-privacy-tips nil - :privacy-newsletter nil - :newsletter-reminders nil - :install-reminders nil - :install-duckduckgo nil - :units-of-measure :metric - :keyboard-shortcuts t - :advertisements nil - :open-in-new-tab nil - :infinite-scroll t - :safe-search :off - :font-size :medium - :header-behavior :on-fixed - :font :jetbrains-mono - :background-color "000000" - :center-alignment t) - "My DDG settings, shared between the usual, image-search and other -types of DuckDuckGo.") - -(define-configuration :context-buffer - ((search-engines (list - ;; engines: is a prefix for `nx-search-engines', - ;; it only works if you load nx-search-engines. - (engines:google :shortcut "gmaps" - :object :maps) - (make-instance 'search-engine - :shortcut "osm" - :search-url "https://www.openstreetmap.org/search?query=~a" - :fallback-url (quri:uri "https://www.openstreetmap.org/")) - (make-instance 'search-engine - :shortcut "golang" - :search-url "https://golang.org/pkg/~a/" - :fallback-url (quri:uri "https://golang.org/pkg/") - ;; A good example of a custom - ;; completion function. You can do - ;; crazy stuff in completion - ;; function (like reading shell - ;; commands or files). - :completion-function - (let ((installed-packages - (str:split nyxt::+newline+ - (ignore-errors - (uiop:run-program - "go list all" - :output '(:string :stripped t)))))) - (lambda (input) - (sort - (serapeum:filter (alexandria:curry #'str:containsp input) - installed-packages) - #'> :key (alexandria:curry - #'prompter::score-suggestion-string input))))) - (engines:wikipedia :shortcut "w") - (make-instance 'search-engine - :shortcut "yi" - :search-url "https://yandex.ru/images/search?text=~a" - :fallback-url (quri:uri "https://yandex.ru/images/")) - (make-instance 'search-engine - :shortcut "y" - :search-url "https://yandex.com/search/?text=~a" - :fallback-url (quri:uri "https://yandex.com/search/")) - (engines:google :shortcut "g" - :safe-search nil) - (engines:google-scholar :shortcut "gs") - (engines:google-scholar :shortcut "scholar-new" - :starting-time 2015) - (engines:startpage - :shortcut "sp" - :family-filter nil - :settings-string "806f879950cd466952c5379f2307693b30b87ef2da8e631a6b9c190cf0251f48de50be0202b48b0fa76beefe9b7427b693baeb77c4d24660dc6799469afc24785a974987168e79ce297ca202ad28") - (apply #'engines:duckduckgo-images - :shortcut "i" *duckduckgo-keywords*) - (engines:duckduckgo-html-only :shortcut "dho") - (engines:github :shortcut "git") - (engines:brave :shortcut "b") - (engines:teddit :shortcut "red") - (engines:libgen :shortcut "l") - (engines:invidious :shortcut "yt") - (engines:hacker-news :shortcut "hn") - (engines:wordnet :shortcut "wn" :show-word-frequencies t) - (apply #'engines:duckduckgo - :shortcut "d" *duckduckgo-keywords*) - (engines:searx - :shortcut "a" - :base-search-url "https://search.atlas.engineer/searxng/search?q=~a" - :fallback-url (quri:uri "https://search.atlas.engineer") - :completion-function (engines:make-duckduckgo-completion) - :auto-complete :yandex - :style :dark - :safe-search :none - :request-method :post) - (gloabl-history-p nil))))) diff --git a/.config/nyxt/status.lisp b/.config/nyxt/status.lisp deleted file mode 100644 index 9b47a24..0000000 --- a/.config/nyxt/status.lisp +++ /dev/null @@ -1,33 +0,0 @@ -(in-package #:nyxt-user) - -(define-configuration :status-buffer - "Display modes as short glyphs." - ((glyph-mode-presentation-p t))) - -;(define-configuration :force-https-mode ((glyph "ϕ"))) -(define-configuration :user-script-mode ((glyph "u"))) -(define-configuration :blocker-mode ((glyph "β"))) -(define-configuration :proxy-mode ((glyph "π"))) -(define-configuration :reduce-tracking-mode ((glyph "τ"))) -(define-configuration :certificate-exception-mode ((glyph "χ"))) -(define-configuration :style-mode ((glyph "ϕ"))) -(define-configuration :cruise-control-mode ((glyph "σ"))) - -(define-configuration status-buffer - "Hide most of the status elements but URL and modes." - ((style (str:concat - %slot-value% - (theme:themed-css (theme *browser*) - `("#controls,#tabs" - :display none !important)))))) - -(defmethod format-status-load-status ((status status-buffer)) - "A fancier load status." - (spinneret:with-html-string - (:span (if (and (current-buffer) - (web-buffer-p (current-buffer))) - (case (slot-value (current-buffer) 'nyxt::status) - (:unloaded "∅") - (:loading "∞") - (:finished "")) - "")))) diff --git a/.config/nyxt/style.lisp b/.config/nyxt/style.lisp deleted file mode 100644 index a9dbe37..0000000 --- a/.config/nyxt/style.lisp +++ /dev/null @@ -1,43 +0,0 @@ -(in-package #:nyxt-user) - -;; This automatically darkens WebKit-native interfaces and sends the -;; "prefers-color-scheme: dark" to all the supporting websites. -(setf (uiop:getenv "GTK_THEME") "Adwaita:dark") - -(define-configuration browser - "Configuring my reddish theme." - ((theme (make-instance - 'theme:theme - :background-color "black" - :accent-color "#CD5C5C" - :accent-alt-color "#6C2429" - :warning-color "#CEFF00" - :primary-color "rgb(170, 170, 170)" - :secondary-color "rgb(100, 100, 100)")))) - -(define-configuration :dark-mode - "Dark-mode is a simple mode for simple HTML pages to color those in a darker palette. - -I don't like the default gray-ish colors, though. Thus, I'm overriding -those to be a bit more laconia-like. - -I'm not using this mode, though: I have nx-dark-reader." - ((style - (theme:themed-css (theme *browser*) - `(* - :background-color ,(if (theme:dark-p theme:theme) - theme:background - theme:on-background) - "!important" - :background-image none "!important" - :color ,(if (theme:dark-p theme:theme) - theme:on-background - theme:background) - "!important") - `(a - :background-color ,(if (theme:dark-p theme:theme) - theme:background - theme:on-background) - "!important" - :background-image none "!important" - :color ,theme:primary "!important"))))) diff --git a/.config/nyxt/unpdf.lisp b/.config/nyxt/unpdf.lisp deleted file mode 100644 index 8b46457..0000000 --- a/.config/nyxt/unpdf.lisp +++ /dev/null @@ -1,86 +0,0 @@ -(in-package #:nyxt-user) - -;; I'm definining a new scheme to redirect PDF requests to. What it does is: -;; - Get the original file (if the URL is a filesystem path, simply use it). -;; - Save it to disk (if remote). -;; - Run pdftotext over the file. -;; - Display pdftotext output in a nice HTML page with interlinkable -;; page numbers and page contents as 
 tags.
-(define-internal-scheme "unpdf"
-    (lambda (url buffer)
-      (let* ((url (quri:uri url))
-             (original-url (quri:uri (quri:url-decode (quri:uri-path url))))
-             (local-p (or (null (quri:uri-scheme original-url))
-                          (string= "file" (quri:uri-scheme original-url))))
-             (original-content (unless local-p
-                                 (dex:get (quri:render-uri original-url) :force-binary t))))
-        (flet ((display-pdf-contents (file)
-                 (if (uiop:file-exists-p file)
-                     (let ((pages (ignore-errors
-                                   (uiop:split-string
-                                    (uiop:run-program `("pdftotext" "-nodiag" ,(uiop:native-namestring file) "-")
-                                                      :output '(:string :stripped t))
-                                    :separator '(#\Page)))))
-                       (spinneret:with-html-string
-                         (:head
-                          (:style (style buffer))
-                          ;; A class to override the 
 colors.
-                          (:style (theme:themed-css (theme *browser*)
-                                    #+(or nyxt-2 nyxt-3-pre-release-1)
-                                    (.override
-                                     :background-color theme:background
-                                     :color theme:on-background
-                                     :font-size "150%"
-                                     :line-height "150%")
-                                    #+(and nyxt-3 (not (or nyxt-2 nyxt-3-pre-release-1)))
-                                    `(.override
-                                      :background-color ,theme:background
-                                      :color ,theme:on-background
-                                      :font-size "150%"
-                                      :line-height "150%"))))
-                         (loop for page in pages
-                               for number from 1
-                               unless (uiop:emptyp page)
-                                 do (:section
-                                     :id (princ-to-string number)
-                                     (:h2.override (:a :href (format nil "#~d" number)
-                                              (princ-to-string number)))
-                                     (:pre.override (or page ""))))))
-                     "")))
-          (if local-p
-              (display-pdf-contents (pathname (quri:uri-path original-url)))
-              (uiop:with-temporary-file (:pathname path :type "pdf" :keep t)
-                (log:debug "Temp file for ~a is ~a" url path)
-                (alexandria:write-byte-vector-into-file
-                 (coerce original-content '(vector (unsigned-byte 8))) path :if-exists :supersede)
-                (display-pdf-contents path))))))
-  :local-p t)
-
-(define-command-global unpdf-download-this ()
-  "A helper for unpdf: pages to download the original PDF to the regular destination.
-
-Unpdf redirects all requests, even those that you need to read
-elsewhere, thus I need this command."
-  (let* ((buffer (current-buffer))
-         (url (url buffer)))
-    (if (string= "unpdf" (quri:uri-scheme url))
-        (ffi-buffer-download buffer (quri:uri-path url))
-        ;; I need to turn it into a mode someday...
-        (echo-warning "This command is for unpdf: pages only, it's useless elsewhere!"))))
-
-(defun redirect-pdf (request-data)
-  (if (and (toplevel-p request-data)
-           (uiop:string-prefix-p "application/pdf" (mime-type request-data)))
-      ;; I should somehow prompt about downloading instead...
-      (progn
-        (echo "Redirecting to the unpdf URL...")
-        (make-buffer-focus :url (quri:uri (str:concat "unpdf:" (render-url (url request-data)))))
-        ;; Return nil to prevent Nyxt from downloading this PDF.
-        nil)
-      request-data))
-
-(define-configuration :web-buffer
-  ((request-resource-hook (hooks:add-hook %slot-value% 'redirect-pdf))))
-
-(define-configuration nyxt/mode/file-manager:file-source
-  ((supported-media-types `("pdf" ,@%slot-value%))))
-- 
cgit v1.2.3