[stumpwm] Update nyxt commands

1 files changed, 10 insertions, 3 deletions

diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp
index 516938c..da88a18 100644
--- a/.stumpwm.d/commands.lisp
+++ b/.stumpwm.d/commands.lisp
@@ -35,18 +35,25 @@
   "Stop current slynk server for sly."
   (sb-thread:make-thread (lambda () (slynk:stop-server 4005))))
 
-(defcommand nyxt-buffer-load (search)
+(defcommand nyxt-buffer-search (search)
     ((:string "Search for: "))
   (let ((url "https://search.thanosapollo.com/?q="))
     (run-shell-command
      (concatenate 'string "nyxt -r -e '(buffer-load" "\"" url search "\"" ")'" ))))
 
-(defcommand nyxt-new-buffer-load (search)
-    ((:string "Search for: "))
+(stumpwm:defcommand nyxt-buffer-url (search)
+    ((:string "Set URL: "))
+  (let ((url "https://search.thanosapollo.com/?q="))
+    (stumpwm:run-shell-command
+     (concatenate 'string "nyxt -r -e '(buffer-load" "\"" search "\"" ")'" ))))
+
+(defcommand nyxt-new-buffer-search (search)
+    ((:string "New Buffer Search for: "))
   (let ((url "https://search.thanosapollo.com/?q="))
     (run-shell-command
      (concatenate 'string "nyxt -r -e '(set-url-new-buffer :url" "\"" url  search "\"" ")'" ))))
 
+
 (defcommand firefox () ()
   "Run or raise Firefox."
   (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil))))