From ab33f0564fb0fe189664e4fafc869975f9a65941 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 8 Sep 2024 15:53:40 +0300 Subject: [Packaging] Start working on 0.4.4-dev * New version will add deck export functionality. --- gnosis.el | 24 ++++++++++++------------ 1 file 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 ;; 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 ;; ;;;;;;;;;;;;;;;;; -- cgit v1.2.3