mirror of
https://github.com/stumpwm/stumpwm-contrib.git
synced 2026-09-10 07:26:25 -04:00
7 lines
286 B
Common Lisp
7 lines
286 B
Common Lisp
(in-package #:browse)
|
|
(defvar *homepage* "https://duckduckgo.com"
|
|
"What page to open your browser to. Used as the argument to xdg-open.")
|
|
(defcommand browse () ()
|
|
"Portably open the default browser with xdg."
|
|
(run-shell-command (concatenate 'string "xdg-open '" *homepage* "'")))
|