summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/gnosis.el b/gnosis.el
index e23182b..9b71a76 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -5,7 +5,7 @@
;; Author: Thanos Apollo <[email protected]>
;; Keywords: extensions
;; URL: https://thanosapollo.org/projects/gnosis
-;; Version: 0.4.3
+;; Version: 0.4.4-dev
;; Package-Requires: ((emacs "27.2") (emacsql "4.0.1") (compat "29.1.4.2") (transient "0.7.2"))
@@ -50,7 +50,7 @@
(require 'gnosis-string-edit)
(require 'gnosis-dashboard)
-;; (require 'gnosis-org)
+(require 'gnosis-org)
(require 'animate)
@@ -2559,16 +2559,16 @@ If STRING-SECTION is nil, apply FACE to the entire STRING."
(error "Demo deck already exists"))))
;; TODO: Add Export funcs
-;; (defun gnosis-export-deck (&optional deck)
-;; "Export contents of DECK."
-;; (interactive (list (gnosis--get-deck-id)))
-;; (with-current-buffer (get-buffer-create "*test*")
-;; (insert (format "#+GNOSIS_DECK: %s\n\n" (gnosis--get-deck-name deck)))
-;; (cl-loop for note in (gnosis-select '[main answer id type] 'notes `(= deck-id ,deck))
-;; do (gnosis-org-insert-heading :main (car note)
-;; :answer (cadr note)
-;; :id (number-to-string (caddr note))
-;; :type (cadddr note)))))
+(defun gnosis-export-deck (&optional deck)
+ "Export contents of DECK."
+ (interactive (list (gnosis--get-deck-id)))
+ (with-current-buffer (get-buffer-create "*test*")
+ (insert (format "#+GNOSIS_DECK: %s\n\n" (gnosis--get-deck-name deck)))
+ (cl-loop for note in (gnosis-select '[main answer id type] 'notes `(= deck-id ,deck))
+ do (gnosis-org-insert-heading :main (car note)
+ :answer (cadr note)
+ :id (number-to-string (caddr note))
+ :type (cadddr note)))))
;; Gnosis mode ;;
;;;;;;;;;;;;;;;;;