diff options
| author | Yuchen Pei <id@ypei.org> | 2025-01-18 08:56:21 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-01-18 08:56:21 +1100 |
| commit | def1c859b40d09e44c2b0e2bc95d0cf450ff60b4 (patch) | |
| tree | 07f0de26ababee151112d64833d47ab776553403 /emacs/.emacs.d/lisp/my/my-github.el | |
| parent | ddb5b07e1e43c7b44877bae9d786dbb80ca95311 (diff) | |
[emacs] eval expr in gud source and infobox value transform
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-github.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-github.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-github.el b/emacs/.emacs.d/lisp/my/my-github.el index 1643612..7caff57 100644 --- a/emacs/.emacs.d/lisp/my/my-github.el +++ b/emacs/.emacs.d/lisp/my/my-github.el @@ -75,6 +75,10 @@ License; name; description; homepage; created at" (my-url-fetch-raw (format "https://api.github.com/repos%s/readme" project-id)))) +(defun my-github-project-url-p (url) + (let ((urlobj (url-generic-parse-url url))) + (string-match-p "\\(www\\.\\)?github.com" (url-host urlobj)))) + (defun my-github-project-infobox (url) (interactive "sGithub repo url: ") (let ((info |