documentation.lisp 702 B

1234567891011121314151617181920
  1. (in-package :stumpwm)
  2. (defcommand zeal () ()
  3. (run-shell-command (join (list "zeal"))))
  4. (defun zathura (file)
  5. (run-shell-command (format nil "zathura ~s" file)))
  6. (defcommand doc-arcconf () ()
  7. (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/arcconf/arcconf.pdf")))
  8. (defcommand doc-jenkins-casc () ()
  9. (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/devops-world-jenkins-casc/devops-world-jenkins-casc.pdf")))
  10. (defcommand doc-bash () ()
  11. (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/concise-gnu-bash/concise-gnu-bash.pdf")))
  12. (defcommand doc-perf () ()
  13. (zathura (concat (getenv "HOME") "/.guix-profile/share/doc/linux-perf-tools/linux-perf-tools.pdf")))