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

adding nyxt and zola base

Browse source
This commit is contained in:
Chris Cochrun 2023-07-03 09:19:49 -05:00
parent f7c0143e18
commit 240df1fa41
17 changed files with 8481 additions and 337 deletions
Download patch file Download diff file Expand all files Collapse all files

25
.config/nyxt/hsplit.lisp Normal file
View file

@ -0,0 +1,25 @@
(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)))