diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-12-31 22:22:47 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-12-31 22:22:47 +0100 |
| commit | b99f16695a12311379b92c9e757adabff03be1c0 (patch) | |
| tree | eb86f98f4b1ab04b98cf6acfdb0a60a8f8a65387 | |
| parent | 79a50805b5a6cf28c7eef54975abf76f3d2765f3 (diff) | |
about: Add link to Picture Language manual.
| -rw-r--r-- | guile-studio-configure.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index 32b4a71..f682a1e 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -81,6 +81,10 @@ "Display the Guile Reference manual in Info mode." (interactive) (info "guile")) + (defun menu-bar-read-pictref () + "Display the Picture Language manual in Info mode." + (interactive) + (info "picture-language")) (defvar about-guile-studio-text `((:face (variable-pitch font-lock-comment-face) "Welcome to Guile Studio, an Emacs environment to play @@ -92,7 +96,9 @@ with the " :face variable-pitch :link ("View Guile Manual" ,(lambda (_button) (menu-bar-read-guileref))) - "\tView the Guile manual using Info\n" + "\tView the Guile manual.\n" + :link ("View Picture Language Manual" ,(lambda (_button) (menu-bar-read-pictref))) + "\tView the Picture Language manual.\n" "\n"))) (defun about-guile-studio () |