From 3348298527c151ef2d957e14b243d2f14bfd6a16 Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Wed, 8 Jul 2020 15:55:23 +0800 Subject: [PATCH] (internal): org-roam-db--clear -> org-roam-db-clear (#902) Since it is a called interactive, it should be given a public name. --- org-roam-compat.el | 2 ++ org-roam-db.el | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/org-roam-compat.el b/org-roam-compat.el index 0924253..7c4e0fb 100644 --- a/org-roam-compat.el +++ b/org-roam-compat.el @@ -79,6 +79,8 @@ "org-roam 1.1.0") (define-obsolete-function-alias 'org-roam-db--maybe-update 'org-roam-db--update-maybe "org-roam 1.1.0") +(define-obsolete-function-alias 'org-roam-db--clear 'org-roam-db-clear + "org-roam 1.2.0") (when (version< (org-version) "9.3") (defalias 'org-link-make-string 'org-make-link-string)) diff --git a/org-roam-db.el b/org-roam-db.el index eb90b46..dfd86d0 100644 --- a/org-roam-db.el +++ b/org-roam-db.el @@ -194,7 +194,7 @@ the current `org-roam-directory'." ;;;; Database API ;;;;; Initialization (defun org-roam-db--initialized-p () - "Whether the cache has been initialized." + "Whether the Org-roam cache has been initialized." (and (file-exists-p (org-roam-db--get)) (> (caar (org-roam-db-query [:select (funcall count) :from titles])) 0))) @@ -205,8 +205,8 @@ the current `org-roam-directory'." (error "[Org-roam] your cache isn't built yet! Please run org-roam-db-build-cache"))) ;;;;; Clearing -(defun org-roam-db--clear () - "Clears all entries in the caches." +(defun org-roam-db-clear () + "Clears all entries in the Org-roam cache." (interactive) (when (file-exists-p (org-roam-db--get)) (dolist (table (mapcar #'car org-roam-db--table-schemata))