1 files changed, 30 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index aeb5a6d..21b227d 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -202,5 +202,35 @@ https://emacs.stackexchange.com/questions/40887/in-org-mode-how-do-i-link-to-int
         (setq files (delq var files)))))
   (apply orig-fun files client args))
 
+(defvar my-firefox-profile-dir nil "Firefox profile dir")
+(defvar my-firefox-place-limit 1000 "Firefox urls result limit")
+
+(defun my-firefox-places (&optional query)
+  (let ((where
+         (mapconcat
+          (lambda (word) (format "(url LIKE '%%%s%%' OR title LIKE '%%%s%%')" word word))
+          (split-string (or query ""))
+          " AND ")))
+    (unless (string-empty-p where) (setq where (format "WHERE %s" where)))
+    (with-temp-buffer
+      (call-process "sqlite3" nil t nil
+                    (format "file://%s/places.sqlite?immutable=1"
+                            my-firefox-profile-dir)
+                    (format
+                     "SELECT url,title FROM moz_places %s ORDER BY visit_count desc limit %d"
+                     where
+                     my-firefox-place-limit))
+      (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