chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some nyxt changes, rbw and pass changes.

Browse source
This commit is contained in:
Chris Cochrun 2021-07-05 13:16:34 -05:00
parent 71151f755f
commit c813c61938
10 changed files with 174 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

57
nyxt/init.lisp
View file

@ -1,7 +1,27 @@
(in-package :nyxt-user) ; While implicit, this allows SLY to know which package we are in.
(in-package #:nyxt-user) ; While implicit, this allows SLY to know which package we are in.
(dolist (file (list (nyxt-init-file "slynk.lisp"))))
(load-after-system :slynk (nyxt-init-file "slynk.lisp"))
;; (defvar *chris-prompt-keymap (make-keymap "chris-prompt-map"))
;; (define-key *chris-prompt-keymap*
;; "escape" 'cancel-input
;; "C-j" 'select-next
;; "C-k" 'select-previous)
;; (define-mode chris-prompt-mode ()
;; "Dummy mode for the custom key bindings in `*chris-prompt-keymap*'."
;; ((keymap-scheme (keymap:make-scheme
;; scheme:vi-insert *chris-prompt-keymap*))
;; (visible-in-status-p nil)))
;; Always restore history and don't ask
(define-configuration browser
((session-restore-prompt :always-restore)))
(define-configuration (prompt-buffer)
((default-modes (append '(vi-insert-mode) %slot-default%))))
((default-modes (append '(vi-insert-mode
) %slot-default%))))
;; Create a function to launch mpv with given url
(defun mpv (url)
@ -13,16 +33,22 @@
"Show a set of element hints, and copy the URL of the user inputted one."
(nyxt/web-mode:query-hints "Copy element URL"
(lambda (nyxt/web-mode::result)
(echo (first nyxt/web-mode::result)))
(mpv nyxt/web-mode::result))
:annotate-visible-only-p
nyxt/web-mode::annotate-visible-only-p))
;; These are my own keys that are layered over vi-normal. A lot of these
;; are similar to qutebrowser.
(defvar *chris-keymap* (make-keymap "chris-map"))
(define-key *chris-keymap*
"K" 'switch-buffer-next
"J" 'switch-buffer-previous
"b" 'switch-buffer
"v" 'hint-mpv)
"v" 'hint-mpv
"d" 'delete-current-buffer
"D" 'delete-buffer
"r" 'reload-current-buffer
"R" 'reload-buffers)
(define-mode chris-mode ()
"Dummy mode for the custom key bindings in `*chris-keymap*'."
@ -38,6 +64,14 @@
chris-mode)
%slot-default%))))
(define-configuration buffer
((search-engines
(list
(make-instance 'search-engine
:shortcut "s"
:search-url "https://search.tfcconnection.org/?q=~a"
:fallback-url "https://search.tfcconnection.org")))))
(define-configuration status-buffer
((style
@ -48,7 +82,7 @@
:background "#282a36"
:color "#e2e4e5")
("#container"
:grid-template-columns "0px 0px 1.5fr 0px 2fr 0px 1fr 0px")
:grid-template-columns "0px 4fr 0px 2fr 0px 0px")
("#controls"
:background-color "#282a36"
:color "#f3f99d"
@ -135,22 +169,21 @@
(.source-content
:background-color "#282a36"
:color "#e2e4e5")
(".source-content td"
:background-color "#282a36"
:color "#e2e4e5")
;; (".source-content td"
;; :background-color "#282a36"
;; :color "#e2e4e5")
(".source-content th"
:background-color "#43454f"
:color "#e2e4e5")
("#selection"
:background-color "#57c7ff"
:color "#e2e4e5")
:color "#34353e")
(.marked
:background-color "#5af78e"
:color "#e2e4e5")
:color "#34353e")
(.selected
:background-color "#57c7ff"
:color "#e2e4e5")
:color "#34353e")
(.button
:color "#e2e4e5")))))))
(load-after-system :slynk (nyxt-init-file "my-slynk.lisp"))