emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactor(docs): tidy up

Browse source
This commit is contained in:
Henrik Lissner 2022-08-03 02:42:10 +02:00
parent acf7a8a48d
commit 64496a6c66
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 11 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
core/autoload/docs.el
View file

@ -43,18 +43,17 @@
(goto-char (point-min)) (goto-char (point-min))
(when (looking-at-p org-drawer-regexp) (when (looking-at-p org-drawer-regexp)
(re-search-forward org-drawer-regexp nil t 2) (re-search-forward org-drawer-regexp nil t 2)
(setq beg (1+ (line-end-position)))) (goto-char (setq beg (1+ (line-end-position)))))
(with-silent-modifications (with-silent-modifications
(let ((inhibit-modification-hooks nil)) (let ((inhibit-modification-hooks nil)
(when (re-search-forward "^-\\{80\\}" 512 t) (menu (cl-loop for (regexp . rules) in doom-docs-header-alist
(delete-region beg (1+ (line-end-position))))
(when doom-docs-mode
(let* ((menu
(cl-loop for (regexp . rules) in doom-docs-header-alist
if (seq-find (doom-rpartial #'string-match-p (buffer-file-name)) if (seq-find (doom-rpartial #'string-match-p (buffer-file-name))
(ensure-list regexp)) (ensure-list regexp))
return rules)) return rules)))
(fn (when (re-search-forward "^-\\{80\\}" 512 t)
(delete-region beg (1+ (line-end-position))))
(when (and menu doom-docs-mode)
(let* ((fn
(lambda (menu) (lambda (menu)
(cl-destructuring-bind (icon . label) (cl-destructuring-bind (icon . label)
(split-string (car menu) " ") (split-string (car menu) " ")
@ -115,7 +114,7 @@
(while (re-search-forward org-drawer-regexp nil t) (while (re-search-forward org-drawer-regexp nil t)
(let ((beg (max (point-min) (1- (match-beginning 0)))) (let ((beg (max (point-min) (1- (match-beginning 0))))
(end (re-search-forward org-drawer-regexp nil t))) (end (re-search-forward org-drawer-regexp nil t)))
(when (save-excursion (goto-char beg) (bobp)) (unless (org-current-level)
(cl-incf end)) (cl-incf end))
(org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden))))) (org-fold-core-region beg end doom-docs-mode 'doom-doc-hidden)))))
@ -378,7 +377,7 @@ Keeps track of its own IDs in `doom-docs-dir' and toggles `doom-docs-mode' when
save-place-ignore-files-regexp ".") save-place-ignore-files-regexp ".")
(when (require 'org-glossary nil t) (when (require 'org-glossary nil t)
(setq org-glossary-collection-root doom-docs-dir (setq org-glossary-collection-root doom-docs-dir
org-glossary-global-terms (list (doom-path org-glossary-collection-root "appendix.org"))) org-glossary-global-terms (doom-glob org-glossary-collection-root "appendix.org"))
(require 'ox) (require 'ox)
(org-glossary-mode +1)) (org-glossary-mode +1))
(unless org-inhibit-startup (unless org-inhibit-startup
@ -411,7 +410,7 @@ Keeps track of its own IDs in `doom-docs-dir' and toggles `doom-docs-mode' when
(file-exists-p file-name)) (file-exists-p file-name))
(read-only-mode +1)))) (read-only-mode +1))))
;;;###autoload (add-hook 'doom-docs-org-mode-hook #'doom-docs-read-only-h) (add-hook 'doom-docs-org-mode-hook #'doom-docs-read-only-h)
;; ;;