fixed .gitignore
This commit is contained in:
opal
@@ -0,0 +1,78 @@
|
|||||||
|
(use-modules (gnu)
|
||||||
|
(nongnu packages linux))
|
||||||
|
|
||||||
|
(use-service-modules
|
||||||
|
cups
|
||||||
|
desktop
|
||||||
|
networking
|
||||||
|
ssh
|
||||||
|
xorg)
|
||||||
|
|
||||||
|
(operating-system
|
||||||
|
(kernel linux)
|
||||||
|
(firmware (list linux-firmware))
|
||||||
|
(locale "en_US.utf8")
|
||||||
|
(timezone "America/Los_Angeles")
|
||||||
|
(keyboard-layout (keyboard-layout "us"))
|
||||||
|
(host-name "borges")
|
||||||
|
(users (cons* (user-account
|
||||||
|
(name "opal")
|
||||||
|
(comment "opal")
|
||||||
|
(group "users")
|
||||||
|
(home-directory "/home/opal")
|
||||||
|
(supplementary-groups
|
||||||
|
'("wheel"
|
||||||
|
"netdev"
|
||||||
|
"audio"
|
||||||
|
"video")))
|
||||||
|
%base-user-accounts))
|
||||||
|
(packages
|
||||||
|
(append
|
||||||
|
(list
|
||||||
|
(specification->package "git")
|
||||||
|
(specification->package "xclip")
|
||||||
|
(specification->package "vim")
|
||||||
|
(specification->package "nss-certs")
|
||||||
|
(specification->package "stow")
|
||||||
|
(specification->package "exfat-utils")
|
||||||
|
(specification->package "emacs")
|
||||||
|
(specification->package "emacs-exwm")
|
||||||
|
(specification->package "bluez")
|
||||||
|
(specification->package "bluez-alsa")
|
||||||
|
(specification->package "pulseaudio")
|
||||||
|
(specification->package "nyxt")
|
||||||
|
(specification->package "keepassxc")
|
||||||
|
(specification->package "font-fira-mono")
|
||||||
|
(specification->package "font-fira-sans")
|
||||||
|
(specification->package "font-fira-code")
|
||||||
|
(specification->package "gnome-tweaks"))
|
||||||
|
%base-packages))
|
||||||
|
(services
|
||||||
|
(append
|
||||||
|
(list (service gnome-desktop-service-type)
|
||||||
|
(set-xorg-configuration
|
||||||
|
(xorg-configuration
|
||||||
|
(keyboard-layout keyboard-layout))))
|
||||||
|
%desktop-services))
|
||||||
|
(bootloader
|
||||||
|
(bootloader-configuration
|
||||||
|
(bootloader grub-efi-bootloader)
|
||||||
|
(targets (list "/boot/efi"))
|
||||||
|
(keyboard-layout keyboard-layout)))
|
||||||
|
(mapped-devices
|
||||||
|
(list (mapped-device
|
||||||
|
(source
|
||||||
|
(uuid "40aa6387-e935-4f70-8e7d-1975678a5a32"))
|
||||||
|
(target "cryptroot")
|
||||||
|
(type luks-device-mapping))))
|
||||||
|
(file-systems
|
||||||
|
(cons* (file-system
|
||||||
|
(mount-point "/")
|
||||||
|
(device "/dev/mapper/cryptroot")
|
||||||
|
(type "btrfs")
|
||||||
|
(dependencies mapped-devices))
|
||||||
|
(file-system
|
||||||
|
(mount-point "/boot/efi")
|
||||||
|
(device (uuid "1C3B-10F5" 'fat32))
|
||||||
|
(type "vfat"))
|
||||||
|
%base-file-systems)))
|
||||||
@@ -0,0 +1,75 @@
|
|||||||
|
(use-modules (gnu)
|
||||||
|
(nongnu packages linux))
|
||||||
|
(use-service-modules
|
||||||
|
cups
|
||||||
|
desktop
|
||||||
|
networking
|
||||||
|
ssh
|
||||||
|
xorg)
|
||||||
|
|
||||||
|
(operating-system
|
||||||
|
(kernel linux)
|
||||||
|
(firmware (list linux-firmware))
|
||||||
|
(locale "en_US.utf8")
|
||||||
|
(timezone "America/Los_Angeles")
|
||||||
|
(keyboard-layout (keyboard-layout "us"))
|
||||||
|
(host-name "work")
|
||||||
|
(users (cons* (user-account
|
||||||
|
(name "opal")
|
||||||
|
(comment "Opal")
|
||||||
|
(group "users")
|
||||||
|
(home-directory "/home/opal")
|
||||||
|
(supplementary-groups
|
||||||
|
'("wheel" "netdev" "audio" "video")))
|
||||||
|
%base-user-accounts))
|
||||||
|
(packages
|
||||||
|
(append
|
||||||
|
(list
|
||||||
|
(specification->package "git")
|
||||||
|
(specification->package "xclip")
|
||||||
|
(specification->package "vim")
|
||||||
|
(specification->package "nss-certs")
|
||||||
|
(specification->package "stow")
|
||||||
|
(specification->package "exfat-utils")
|
||||||
|
(specification->package "emacs")
|
||||||
|
(specification->package "emacs-exwm")
|
||||||
|
(specification->package "bluez")
|
||||||
|
(specification->package "bluez-alsa")
|
||||||
|
(specification->package "pulseaudio")
|
||||||
|
(specification->package "nyxt")
|
||||||
|
(specification->package "keepassxc")
|
||||||
|
(specification->package "font-fira-mono")
|
||||||
|
(specification->package "font-fira-sans")
|
||||||
|
(specification->package "font-fira-code")
|
||||||
|
(specification->package "gnome-tweaks"))
|
||||||
|
%base-packages))
|
||||||
|
(services
|
||||||
|
(append
|
||||||
|
(list (service gnome-desktop-service-type)
|
||||||
|
(service cups-service-type)
|
||||||
|
(set-xorg-configuration
|
||||||
|
(xorg-configuration
|
||||||
|
(keyboard-layout keyboard-layout))))
|
||||||
|
%desktop-services))
|
||||||
|
(bootloader
|
||||||
|
(bootloader-configuration
|
||||||
|
(bootloader grub-efi-bootloader)
|
||||||
|
(targets (list "/boot/efi"))
|
||||||
|
(keyboard-layout keyboard-layout)))
|
||||||
|
(mapped-devices
|
||||||
|
(list (mapped-device
|
||||||
|
(source
|
||||||
|
(uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
|
||||||
|
(target "cryptroot")
|
||||||
|
(type luks-device-mapping))))
|
||||||
|
(file-systems
|
||||||
|
(cons* (file-system
|
||||||
|
(mount-point "/")
|
||||||
|
(device "/dev/mapper/cryptroot")
|
||||||
|
(type "btrfs")
|
||||||
|
(dependencies mapped-devices))
|
||||||
|
(file-system
|
||||||
|
(mount-point "/boot/efi")
|
||||||
|
(device (uuid "15B3-5DE5" 'fat32))
|
||||||
|
(type "vfat"))
|
||||||
|
%base-file-systems)))
|
||||||
@@ -0,0 +1,144 @@
|
|||||||
|
(load-after-system :slynk "~/.config/nyxt/my-slynk.lisp")
|
||||||
|
|
||||||
|
;; Vim-normal mode by default
|
||||||
|
(define-configuration buffer
|
||||||
|
((default-modes (append '(vi-normal-mode) '(blocker-mode) %slot-default%))))
|
||||||
|
|
||||||
|
;; Vim-insert for prompt-buffer (minibuffer)
|
||||||
|
(define-configuration prompt-buffer
|
||||||
|
((default-modes (append '(vi-insert-mode) %slot-default%))))
|
||||||
|
|
||||||
|
;; Keybindings
|
||||||
|
;; (Note: Override Map will override any other custom keybindings so use a prefix key.)
|
||||||
|
(define-configuration buffer
|
||||||
|
((override-map (define-key %slot-default%
|
||||||
|
"C-x s" 'nyxt/web-mode:search-buffers
|
||||||
|
"C-x u" 'copy-username
|
||||||
|
"C-x p" 'copy-password))))
|
||||||
|
|
||||||
|
;;Message buffer color configuration
|
||||||
|
(define-configuration window
|
||||||
|
((message-buffer-style
|
||||||
|
(str:concat
|
||||||
|
%slot-default%
|
||||||
|
(cl-css:css
|
||||||
|
'((body
|
||||||
|
:background-color "black"
|
||||||
|
:color "white")))))))
|
||||||
|
|
||||||
|
;; Mini-buffer style
|
||||||
|
(define-configuration prompt-buffer
|
||||||
|
((style (str:concat
|
||||||
|
%slot-default%
|
||||||
|
(cl-css:css
|
||||||
|
'((body
|
||||||
|
:background-color "black"
|
||||||
|
:color "white")
|
||||||
|
("#prompt-area"
|
||||||
|
:background-color "black")
|
||||||
|
;; The area you input text in.
|
||||||
|
("#input"
|
||||||
|
:background-color "#EDDDAA")
|
||||||
|
(".source-name"
|
||||||
|
:color "black"
|
||||||
|
:background-color "#125458")
|
||||||
|
(".source-content"
|
||||||
|
:background-color "black")
|
||||||
|
(".source-content th"
|
||||||
|
:border "1px solid #125458"
|
||||||
|
:background-color "black")
|
||||||
|
;; The currently highlighted option.
|
||||||
|
("#selection"
|
||||||
|
:background-color "#125458"
|
||||||
|
:color "black")
|
||||||
|
(.marked :background-color "#8B3A3A"
|
||||||
|
:font-weight "bold"
|
||||||
|
:color "white")
|
||||||
|
(.selected :background-color "black"
|
||||||
|
:color "white")))))))
|
||||||
|
|
||||||
|
;; Internal buffer (help, bookmarks, buffers panel)
|
||||||
|
(define-configuration (internal-buffer panel-buffer)
|
||||||
|
((style
|
||||||
|
(str:concat
|
||||||
|
%slot-default%
|
||||||
|
(cl-css:css
|
||||||
|
'((title
|
||||||
|
:color "#CD5C5C")
|
||||||
|
(body
|
||||||
|
:background-color "black"
|
||||||
|
:color "lightgray")
|
||||||
|
(hr
|
||||||
|
:color "lightgray")
|
||||||
|
(a
|
||||||
|
:color "#125458")
|
||||||
|
(.button
|
||||||
|
:color "white"
|
||||||
|
:background-color "#125458")))))))
|
||||||
|
|
||||||
|
;; Link hints in web mode
|
||||||
|
(define-configuration nyxt/web-mode:web-mode
|
||||||
|
((nyxt/web-mode:highlighted-box-style
|
||||||
|
(cl-css:css
|
||||||
|
'((".nyxt-hint.nyxt-highlight-hint"
|
||||||
|
:background "#125458"))))))
|
||||||
|
|
||||||
|
;; Modeline
|
||||||
|
(define-configuration status-buffer
|
||||||
|
((style (str:concat
|
||||||
|
%slot-default%
|
||||||
|
(cl-css:css
|
||||||
|
;; Arrows on the left.
|
||||||
|
'(("#controls"
|
||||||
|
:border-top "1px solid white"
|
||||||
|
:background-color "#125458")
|
||||||
|
;; To the right of the arrows.
|
||||||
|
("#url"
|
||||||
|
:background-color "black"
|
||||||
|
:color "white"
|
||||||
|
:border-top "1px solid white")
|
||||||
|
;; Far to the right.
|
||||||
|
("#modes"
|
||||||
|
:background-color "black"
|
||||||
|
:border-top "1px solid white")
|
||||||
|
;; The center segment.
|
||||||
|
("#tabs"
|
||||||
|
:background-color "#125458"
|
||||||
|
:color "black"
|
||||||
|
:border-top "1px solid white")))))))
|
||||||
|
|
||||||
|
;; Overriding dark theme colors
|
||||||
|
(define-configuration nyxt/style-mode:dark-mode
|
||||||
|
((style #.(cl-css:css
|
||||||
|
'((*
|
||||||
|
:background-color "black !important"
|
||||||
|
:background-image "none !important"
|
||||||
|
:color "white")
|
||||||
|
(a
|
||||||
|
:background-color "black !important"
|
||||||
|
:background-image "none !important"
|
||||||
|
:color "#556B2F !important"))))))
|
||||||
|
|
||||||
|
(define-configuration password:keepassxc-interface
|
||||||
|
((password:password-file "/home/opal/.config/keepassxc/.kdbx-store/opal.kdbx")))
|
||||||
|
|
||||||
|
(define-configuration buffer
|
||||||
|
((password-interface (make-instance 'password:user-keepassxc-interface))))
|
||||||
|
|
||||||
|
;; I would like to implement redirection, or some extension to handle it for me.
|
||||||
|
;; todo: Redirect reddit to teddit
|
||||||
|
;; (defun old-reddit-handler (request-data)
|
||||||
|
;; (let ((url (url request-data)))
|
||||||
|
;; (setf (url request-data)
|
||||||
|
;; (if (search "reddit.com" (quri:uri-host url))
|
||||||
|
;; (progn
|
||||||
|
;; (setf (quri:uri-host url) "old.reddit.com")
|
||||||
|
;; (log:info "Switching to old Reddit: ~s" (render-url url))
|
||||||
|
;; url)
|
||||||
|
;; url)))
|
||||||
|
;; request-data)
|
||||||
|
|
||||||
|
;; (define-configuration web-buffer
|
||||||
|
;; ((request-resource-hook
|
||||||
|
;; (hooks:add-hook %slot-default% (make-handler-resource #'old-reddit-handler)))))
|
||||||
|
;; (See url-dispatching-handler for a simpler way to achieve the same result.)
|
||||||
@@ -0,0 +1,10 @@
|
|||||||
|
(define-command-global start-slynk (&optional (slynk-port *swank-port*))
|
||||||
|
"Start a Slynk server that can be connected to, for instance, in
|
||||||
|
Emacs via SLY.
|
||||||
|
|
||||||
|
Warning: This allows Nyxt to be controlled remotely, that is, to execute
|
||||||
|
arbitrary code with the privileges of the user running Nyxt. Make sure
|
||||||
|
you understand the security risks associated with this before running
|
||||||
|
this command."
|
||||||
|
(slynk:create-server :port slynk-port :dont-close t)
|
||||||
|
(echo "Slynk server started at port ~a" slynk-port))
|
||||||
@@ -2,11 +2,16 @@
|
|||||||
!Emacs.org
|
!Emacs.org
|
||||||
!StumpWM.org
|
!StumpWM.org
|
||||||
!Guix.org
|
!Guix.org
|
||||||
|
!Nyxt.org
|
||||||
|
!Desktop.org
|
||||||
!.zshenv
|
!.zshenv
|
||||||
|
!.config/
|
||||||
!.config/guix
|
!.config/guix
|
||||||
!.config/stumpwm
|
!.config/stumpwm
|
||||||
!.config/mbsync
|
!.config/mbsync
|
||||||
!.config/nyxt
|
!.config/nyxt
|
||||||
|
!.config/nyxt/init.lisp
|
||||||
|
!.config/nyxt/my-slink.lisp
|
||||||
!.config/nvim/init.vim
|
!.config/nvim/init.vim
|
||||||
!.config/zsh/.zshrc
|
!.config/zsh/.zshrc
|
||||||
!.config/zsh/.zprofile
|
!.config/zsh/.zprofile
|
||||||
|
|||||||
@@ -3,15 +3,19 @@
|
|||||||
|
|
||||||
Nyxt is a browser written in Common Lisp that follows the same philosophy of extensibility as Emacs. This makes it a perfect companion to an Emacs centered eco-system when you need a browser with more features than Eww or w3m.
|
Nyxt is a browser written in Common Lisp that follows the same philosophy of extensibility as Emacs. This makes it a perfect companion to an Emacs centered eco-system when you need a browser with more features than Eww or w3m.
|
||||||
|
|
||||||
|
* Load Quicklisp
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(load "~/quicklisp/setup.lisp")
|
||||||
|
(ql:quickload 'slynk)
|
||||||
|
;; #-quicklisp
|
||||||
|
;; (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
||||||
|
;; (user-homedir-pathname))))
|
||||||
|
;; (when (probe-file quicklisp-init)
|
||||||
|
;; (load quicklisp-init)))
|
||||||
|
#+end_src
|
||||||
* Start Slynk server
|
* Start Slynk server
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
(ql:quickload 'slynk)
|
(load-after-system :slynk "~/.config/nyxt/my-slynk.lisp")
|
||||||
|
|
||||||
(define-command-global start-slynk (&optional (slynk-port *swank-port*))
|
|
||||||
"Start a Slynk server."
|
|
||||||
(slynk:create-server :port slynk-port :dont-close t)
|
|
||||||
(echo "Slynk server started at port ~a" slynk-port))
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
* Keybindings
|
* Keybindings
|
||||||
|
|||||||
Reference in New Issue
Block a user