1234567891011121314151617181920 |
- (in-package :stumpwm)
- (defcommand zeal () ()
- (run-shell-command (join (list "zeal"))))
- (defun zathura (file)
- (run-shell-command (format nil "zathura ~s" file)))
- (defcommand doc-arcconf () ()
- (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/arcconf/arcconf.pdf")))
- (defcommand doc-jenkins-casc () ()
- (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/devops-world-jenkins-casc/devops-world-jenkins-casc.pdf")))
- (defcommand doc-bash () ()
- (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/concise-gnu-bash/concise-gnu-bash.pdf")))
- (defcommand doc-perf () ()
- (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/linux-perf-tools/linux-perf-tools.pdf")))
|