[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real de8dc5a6c9 051/188: Added children when follow
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real de8dc5a6c9 051/188: Added children when following a link |
Date: |
Sun, 5 May 2024 22:55:52 -0400 (EDT) |
branch: externals/org-real
commit de8dc5a6c9778e0f0abab8341789ef3396bba45b
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Added children when following a link
---
org-real.el | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/org-real.el b/org-real.el
index 09578b99c9..3316a59c0f 100644
--- a/org-real.el
+++ b/org-real.el
@@ -73,6 +73,11 @@
:type 'number
:group 'org-real)
+(defcustom org-real-include-children t
+ "Whether to show children when opening a real link."
+ :type 'boolean
+ :group 'org-real)
+
;;;; Faces
(defface org-real-primary
@@ -155,8 +160,22 @@ describing where BOX is."
(defun org-real-follow (url &rest _)
"Open a real link URL in a popup buffer."
+ (pp include-children)
(let* ((containers (org-real--parse-url url))
(box (org-real--make-instance 'org-real-box (copy-tree containers))))
+ (if org-real-include-children
+ (let* ((primary-name (plist-get (car (reverse containers)) :name))
+ (children (mapcar
+ (lambda (containers)
+ (org-real--make-instance 'org-real-box containers))
+ (seq-filter
+ (lambda (containers)
+ (seq-some
+ (lambda (container)
+ (string= primary-name (plist-get container
:name)))
+ containers))
+ (org-real--parse-buffer)))))
+ (setq box (org-real--merge (push box children)))))
(org-real--pp box (copy-tree containers))))
(defun org-real-complete (&optional existing)
- [elpa] externals/org-real 13502c70e2 018/188: Modified logic to allow multiple children, (continued)
- [elpa] externals/org-real 13502c70e2 018/188: Modified logic to allow multiple children, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real e5b21825e3 019/188: Updated preposition list, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real ea82c415f2 003/188: Added primary slot to color last element in url, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5ae3174c55 001/188: initial commit, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 51bbcc313a 028/188: Cleaned up hooks, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 101d6c9899 034/188: Added org-real-pkg for multifile package, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real d84a2a83f8 046/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b0f741198d 044/188: Rearranging, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 6edfdeca01 049/188: Whitespace cleanup, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c49cce501d 037/188: Check for compiler warnings in CI/CD pipeline, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real de8dc5a6c9 051/188: Added children when following a link,
ELPA Syncer <=
- [elpa] externals/org-real 38dff3d9fe 055/188: More edge cases, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 68f4ecfc29 071/188: org-real-headlines; Added more keys to Org Real mode, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 24124c2d5b 067/188: Typos, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5363249fc7 069/188: Using save-excursion when applying changes, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b980851142 074/188: Org real headlines takes over current window, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 839b953a2f 087/188: Removed reference to org-collect-keywords, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 8321f7feff 088/188: # `org-real-headlines`, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f260ca8e21 098/188: Bump version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real e61d7ae333 102/188: Fully expand siblings when toggling global visibility, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c9a9646e2e 104/188: Relationship defaults to "in" if omitted in link, ELPA Syncer, 2024/05/05