diff options
| -rw-r--r-- | org-gnosis.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index acedb26..363bc4f 100644 --- a/org-gnosis.el +++ b/org-gnosis.el @@ -66,6 +66,14 @@ Optional argument FLATTEN, when non-nil, flattens the result." "Insert VALUES to TABLE." (emacsql org-gnosis-db `[:insert :into ,table :values ,values])) +(defun org-gnosis--delete (table value) + "From TABLE use where to delete VALUE." + (emacsql org-gnosis-db `[:delete :from ,table :where ,value])) + +(cl-defun org-gnosis--drop-table (table) + "Drop TABLE from `gnosis-db'." + (emacsql org-gnosis-db `[:drop-table ,table])) + (defun org-gnosis-get-current-node-title () "Return the title of the current node." (when (derived-mode-p 'org-mode) |