diff options
| author | Leon Rische <leon.rische@me.com> | 2020-03-17 21:35:29 +0100 |
|---|---|---|
| committer | Leon Rische <leon.rische@me.com> | 2020-03-17 21:35:29 +0100 |
| commit | 78025f0eb37294893c50b174fb087f0662b570e5 (patch) | |
| tree | ba5b540d4f240d2bb73c1941cecab16fbe924167 /org-fc-type-text-input.el | |
| parent | 7a2b9cda20d472d3e3fb57cb45ff0e681728cdec (diff) | |
Combine files into one
Diffstat (limited to 'org-fc-type-text-input.el')
| -rw-r--r-- | org-fc-type-text-input.el | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/org-fc-type-text-input.el b/org-fc-type-text-input.el deleted file mode 100644 index e396e74..0000000 --- a/org-fc-type-text-input.el +++ /dev/null @@ -1,49 +0,0 @@ -;;; org-fc-type-text-input.el --- Text input card type -*- lexical-binding: t; -*- - -;; Copyright (C) 2020 Leon Rische - -;; Author: Leon Rische <emacs@leonrische.me> - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. - -(defun org-fc-type-text-input-init () - (interactive) - (org-fc--init-card "text-input") - (org-fc-review-data-update '("front"))) - -(defun org-fc-type-text-input-review (_position) - (org-show-subtree) - (let ((answer (org-entry-get (point) "ANSWER")) - (user-answer (read-string "Answer: "))) - (goto-char (point-max)) - ;; Overlays need to be of at least size 1 to be visible - (let ((ovl (make-overlay (- (point) 1) (point)))) - (overlay-put ovl 'category 'org-fc-additional-text-overlay) - (overlay-put ovl 'priority 9999) - (overlay-put ovl 'face 'default) - (overlay-put ovl 'display - (concat "\n\n\nExpected: " answer - "\nGot: " user-answer))))) - -;; No-op -(defun org-fc-type-text-input-update ()) - -;; TODO: Implement real handler -(org-fc-register-type - 'text-input - 'org-fc-type-normal-setup - 'org-fc-type-normal-flip - 'org-fc-type-normal-update) - -(provide 'org-fc-type-text-input) |