diff options
| author | Thanos Apollo <[email protected]> | 2023-10-16 20:45:23 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-10-16 20:45:23 +0300 |
| commit | fdd11abce2a0205bbc96077ca9c4cf1e85e8b98e (patch) | |
| tree | 3edfe8ed0e07d3c3951676c2543a2f9d2894d0c1 /.config/nyxt/hsplit.lisp | |
| parent | fe9b8acaa2c05665d51695f3b3ce10b5a6fcc2d7 (diff) | |
Remove nyxt
Diffstat (limited to '.config/nyxt/hsplit.lisp')
| -rw-r--r-- | .config/nyxt/hsplit.lisp | 25 |
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))) |