4 files changed, 13 insertions, 12 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index e3e4d32..cdbe57a 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -387,7 +387,7 @@ artist/album/track."
     (emms-playlist-current-select-next)
     (if (string-equal (my-emms-current-album-name) current-album)
         (emms-start)
-      (my-emms-playlist-random-album nil))))
+      (my-emms-playlist-random-album))))
 
 (defvar-local my-emms-albums-cache (vector))
 
diff --git a/emacs/.emacs.d/lisp/my/my-github.el b/emacs/.emacs.d/lisp/my/my-github.el
index 7caff57..e2d5f6a 100644
--- a/emacs/.emacs.d/lisp/my/my-github.el
+++ b/emacs/.emacs.d/lisp/my/my-github.el
@@ -25,7 +25,7 @@
 ;; Github client.
 
 ;;; Code:
-
+(require 'my-web)
 
 (defun my-grok-github (url)
   "get github info of a project.
@@ -93,7 +93,7 @@ License; name; description; homepage; created at"
   )
 
 (defvar my-github-project-info-specs
-  `((html_url . "Clone")
+  `((html_url . ("URL" . my-forge-infobox-format-url))
     (full_name . "Name")
     (description . "Description")
     (created_at . ("Created at" . my-gitlab-format-time-string))
diff --git a/emacs/.emacs.d/lisp/my/my-gitlab.el b/emacs/.emacs.d/lisp/my/my-gitlab.el
index 27f3344..56542c0 100644
--- a/emacs/.emacs.d/lisp/my/my-gitlab.el
+++ b/emacs/.emacs.d/lisp/my/my-gitlab.el
@@ -75,17 +75,9 @@
 (require 'my-buffer)
 (require 'my-web)
 (require 'my-magit)
-(defun my-gitlab-format-url (url)
-  (concat url
-          " -- " (buttonize "clone"
-                            (lambda (_)
-                              (my-magit-clone url current-prefix-arg)))
-          " " (buttonize "context"
-                         (lambda (_)
-                           (funcall my-url-context-function url)))))
 
 (defvar my-gitlab-project-info-specs
-  `((http_url_to_repo . ("URL" . my-gitlab-format-url))
+  `((http_url_to_repo . ("URL" . my-forge-infobox-format-url))
     (name_with_namespace . "Name")
     (description . "Description")
     (created_at . ("Created at" . my-gitlab-format-time-string))
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index 3d1f9d3..21b227d 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -223,5 +223,14 @@ https://emacs.stackexchange.com/questions/40887/in-org-mode-how-do-i-link-to-int
       (buffer-string)
       )))
 
+(defun my-forge-infobox-format-url (url)
+  (concat url
+          " -- " (buttonize "clone"
+                            (lambda (_)
+                              (my-magit-clone url current-prefix-arg)))
+          " " (buttonize "context"
+                         (lambda (_)
+                           (funcall my-url-context-function url)))))
+
 (provide 'my-web)
 ;;; my-web.el ends here