summaryrefslogtreecommitdiff
path: root/.config/nyxt/hsplit.lisp
diff options
context:
space:
mode:
Diffstat (limited to '.config/nyxt/hsplit.lisp')
-rw-r--r--.config/nyxt/hsplit.lisp25
1 files changed, 0 insertions, 25 deletions
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)))