diff options
| -rw-r--r-- | gnosis.el | 27 |
1 files changed, 13 insertions, 14 deletions
@@ -5,7 +5,7 @@ ;; Author: Thanos Apollo <[email protected]> ;; Keywords: extensions ;; URL: https://thanosapollo.org/projects/gnosis -;; Version: 0.4.2-dev +;; Version: 0.4.2 ;; 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) @@ -2557,18 +2557,17 @@ If STRING-SECTION is nil, apply FACE to the entire STRING." :tags note-tags)) (error "Demo deck already exists")))) -;; Export -;; This is a demo! -(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))))) +;; 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))))) ;; Gnosis mode ;; ;;;;;;;;;;;;;;;;; |