From 2ef059970a96d9b99927b2f1214fc69f618d735e Mon Sep 17 00:00:00 2001 From: John Kitchin Date: Tue, 19 Mar 2024 12:27:34 -0400 Subject: [PATCH] replace old emacsql code with new org-db sqlite --- scimax-@-links.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/scimax-@-links.el b/scimax-@-links.el index 4f53306c..c861845a 100644 --- a/scimax-@-links.el +++ b/scimax-@-links.el @@ -127,11 +127,11 @@ A candidate is a list of (link function)." (defun @-hashtags () "Get a list of candidate hashtags you have used before." (let* ((tip (looking-at-hashtag)) - (hashtag-data (emacsql org-db [:select [hashtag file-hashtags:begin files:filename] - :from hashtags - :left :join file-hashtags :on (= hashtags:rowid file-hashtags:hashtag-id) - :inner :join files - :on (= files:rowid file-hashtags:filename-id)]))) + (hashtag-data (with-org-db + (sqlite-select org-db "select hashtag, file_hashtags.begin, files.filename +from hashtags +left join file_hashtags on hashtags.rowid = file_hashtags.hashtag_id +inner join files on files.rowid = file_hashtags.filename_id")))) (-uniq (cl-loop for (hashtag begin fname) in hashtag-data collect (concat "#" hashtag)))))