Skip to content

More SRFI tool patches #41

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Oct 30, 2022
Merged

More SRFI tool patches #41

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
1789413
Spell "Github" -> "GitHub"
lassik Oct 30, 2022
d5a8d25
Add browse-home-url command
lassik Oct 30, 2022
fd8a58f
Replace SRFI 98 with (scheme process-context)
lassik Oct 30, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion srfi-tools/generate.scm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -183,7 +183,7 @@
,email-archives
(li (a (@ (href ,(concat "https://github.com/scheme-requests-for-implementation/srfi-"
number)))
"Git repo (on Github)"))
"Git repo (on GitHub)"))
(li (a (@ (href ,(concat "mailto:srfi-"
number
"@srfi.schemers.org")))
Expand Down
7 changes: 4 additions & 3 deletions srfi-tools/github.sld
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,8 @@
srfi-github-ssh-url
srfi-create-github-repository)
(import (scheme base)
(srfi 98)
(scheme process-context)

(srfi-tools private command)
(srfi-tools private format)
(srfi-tools private os)
Expand Down Expand Up @@ -38,7 +39,7 @@
(srfi-github-relative num)))

(define-command (github-url num)
"Display the Github URL for SRFI <num>."
"Display the GitHub URL for SRFI <num>."
(write-line-about-srfi srfi-github-url num))

;; Is this superfluous? `srfi-github-url` can fetch both the repo
Expand Down Expand Up @@ -70,5 +71,5 @@
(github-api-repos)))))

(define-command (create-github-repository num)
"Create a Github repository for SRFI num."
"Create a GitHub repository for SRFI num."
(srfi-create-github-repository (parse-srfi-number num)))))
10 changes: 9 additions & 1 deletion srfi-tools/interactive.sld
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@
srfi-browse-landing
srfi-browse-landing-url
srfi-browse-github-url
srfi-browse-home-url
srfi-pager
srfi-edit
srfi-browse-mail-archive-url
Expand Down Expand Up @@ -95,9 +96,16 @@
(browse-url (srfi-github-url num)))

(define-command (browse-github-url num)
"Browse Github page for SRFI <num>."
"Browse GitHub page for SRFI <num>."
(srfi-browse-github-url (parse-srfi-number num)))

(define (srfi-browse-home-url)
(browse-url (srfi-home-url)))

(define-command (browse-home-url)
"Browse the home page of the SRFI project."
(srfi-browse-home-url))

(define (srfi-lucky words)
(let ((matches (srfi-search words)))
(cond ((null? matches)
Expand Down