From 80fbb1ee3f4951308fdbe49045abc1539927f5f3 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 29 Jan 2025 09:51:41 +1100 Subject: [emacs] Adding a function to get firefox bookmarks and history --- emacs/.emacs.d/lisp/my/my-web.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'emacs') diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el index aeb5a6d..3d1f9d3 100644 --- a/emacs/.emacs.d/lisp/my/my-web.el +++ b/emacs/.emacs.d/lisp/my/my-web.el @@ -202,5 +202,26 @@ 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) + ))) + (provide 'my-web) ;;; my-web.el ends here -- cgit v1.2.3