mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2026-01-18 23:21:22 -08:00
Code Issues Projects Releases Wiki Activity

feat(tutorial): make load-page more fully-featured

Browse source 
It now displays more information, and calls doom-tutorial--complete when
trying to display past the end.
This commit is contained in:
TEC 2022-01-23 02:04:26 +08:00 • committed by Jeetaditya Chatterjee
parent 4ddb276e1d
commit 306fd0da68
No known key found for this signature in database
GPG key ID: 4A1E5568BA34D124
1 changed files with 41 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

55
modules/config/tutorial/autoload/tutorial.el
View file

@ -142,20 +142,47 @@
(defvar doom-tutorial--test nil)
(defun doom-tutorial-load-page (name &optional page)
(let ((content (nth (or (and page
(doom-tutorial--set-page name page))
(doom-tutorial--current-page name))
(plist-get (cdr (assoc name doom-tutorial--registered))
:pages))))
(let ((instructions (plist-get content :instructions))
(title (plist-get content :title)))
(with-current-buffer doom-tutorial--instructions-buffer-name
(with-silent-modifications
(erase-buffer)
(insert ?\n)
(insert (cond
((stringp instructions) instructions)
((functionp instructions) (funcall instructions)))))))
"Load page PAGE of the tutorial NAME."
(let* ((page (or (and page
(doom-tutorial--set-page name page))
(doom-tutorial--current-page name)))
(pages (length
(plist-get (cdr (assoc name doom-tutorial--registered))
:pages)))
(content (nth page
(plist-get (cdr (assoc name doom-tutorial--registered))
:pages))))
(if (>= page pages)
(doom-tutorial--complete name)
(let ((instructions (or (plist-get content :instructions) ""))
(title (or (plist-get content :title) "")))
(with-current-buffer doom-tutorial--instructions-buffer-name
(setq-local header-line-format
(concat
(propertize
(format "Instructions (%s/%s) "
(1+ page) pages)
'face '(bold org-document-title))
(propertize title 'face '(bold org-document-info))))
(setq-local doom-tutorial--name name)
(setq-local doom-tutorial--test (plist-get content :test))
(with-silent-modifications
(erase-buffer)
(insert ?\n)
(insert
(cond ((stringp instructions) instructions)
((functionp instructions) (funcall instructions))))))))))
(defun doom-tutorial--complete (name)
(with-current-buffer doom-tutorial--instructions-buffer-name
(setq-local header-line-format
(propertize "Finished!" 'face '(bold org-document-title))))
(setq-local doom-tutorial--test nil)
(with-silent-modifications
(erase-buffer)
(insert ?\n
(format "You have completed the %s tutorial!" name))))
(plist-put (cdr (assoc name doom-tutorial--progress)) :complete t))
(defun doom-tutorial-last-page ()
(let* ((name (buffer-local-value