mirror of
https://mzte.de/git/LordMZTE/dotfiles.git
synced 2024-11-17 23:43:46 +01:00
42 lines
1.5 KiB
Text
42 lines
1.5 KiB
Text
|
#!/usr/bin/env -S ros -Q --
|
||
|
|
#|-*- mode:lisp -*-|#
|
||
|
|
#|
|
||
|
|
exec ros -Q -- $0 "$@"
|
||
|
|
|#
|
||
|
|
(progn ;;init forms
|
||
|
|
(ros:ensure-asdf)
|
||
|
|
#+quicklisp(ql:quickload '(uiop) :silent t))
|
||
|
|
|
||
|
|
(defpackage :launchmenu
|
||
|
|
(:use :cl))
|
||
|
|
(in-package :launchmenu)
|
||
|
|
|
||
|
|
(defun write-app (stream icon layout programs)
|
||
|
|
(format stream "IMG:~a~C~s~%" icon #\Tab (cons layout programs)))
|
||
|
|
|
||
|
|
(defun write-commands (stream)
|
||
|
|
(write-app stream "scalable/www-browser.svg" nil '(("openbrowser")))
|
||
|
|
(write-app stream "scalable/irc-chat.svg" "chat" '(("nheko") ("discord")))
|
||
|
|
(write-app stream "scalable/system-file-manager.svg" "double-fileman" '(("thunar") ("thunar"))))
|
||
|
|
|
||
|
|
(defun main (&rest argv)
|
||
|
|
(declare (ignorable argv))
|
||
|
|
(destructuring-bind (layout . programs) (uiop:run-program '("pmenu")
|
||
|
|
:output #'read
|
||
|
|
:error-output :interactive
|
||
|
|
:input #'write-commands)
|
||
|
|
(when layout
|
||
|
|
(uiop:run-program (list "i3-msg" (format
|
||
|
|
nil
|
||
|
|
"append_layout ~a/.local/share/i3-layouts/~a.json"
|
||
|
|
(user-homedir-pathname)
|
||
|
|
layout))
|
||
|
|
:output :interactive
|
||
|
|
:error-output :interactive
|
||
|
|
:input :interactive))
|
||
|
|
(dolist (program programs)
|
||
|
|
(uiop:launch-program program
|
||
|
|
:output :interactive
|
||
|
|
:error-output :interactive
|
||
|
|
:input :interactive))))
|