[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real c9a9646e2e 104/188: Relationship defaults to "
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real c9a9646e2e 104/188: Relationship defaults to "in" if omitted in link |
Date: |
Sun, 5 May 2024 22:55:58 -0400 (EDT) |
branch: externals/org-real
commit c9a9646e2ebc197ed859e4500d5f1418d90a041f
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Relationship defaults to "in" if omitted in link
---
org-real.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/org-real.el b/org-real.el
index 31c14b2d8b..b27fcfb5e6 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1658,12 +1658,13 @@ set to the :loc slot of each box."
(containers (mapcar
(lambda (token)
(let* ((location (split-string token "\\?"))
- (container (list :name (car location) :loc
marker))
- (rel (and (string-match "&?rel=\\([^&]*\\)"
(cadr location))
- (match-string 1 (cadr location)))))
- (if rel
- (plist-put container :rel rel)
- container)))
+ (rel (or (and (cadr location)
+ (string-match "&?rel=\\([^&]*\\)"
(cadr location))
+ (match-string 1 (cadr location)))
+ "in")))
+ (list :name (car location)
+ :loc marker
+ :rel rel)))
tokens)))
(push (list :name host :loc marker) containers)))
@@ -1704,8 +1705,9 @@ set to the :loc slot of each box."
(mapconcat
(lambda (container)
(concat (plist-get container :name)
- (when (plist-member container :rel)
- (concat "?rel=" (plist-get container :rel)))))
+ (when-let ((rel (plist-get container :rel)))
+ (if (not (string= "in" rel))
+ (concat "?rel=" (plist-get container :rel))))))
containers
"/")))
- [elpa] externals/org-real de8dc5a6c9 051/188: Added children when following a link, (continued)
- [elpa] externals/org-real de8dc5a6c9 051/188: Added children when following a link, ELPA Syncer, 2024/05/05
- [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 <=
- [elpa] externals/org-real 1e5434a318 107/188: Added popup library, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 00b02f8968 118/188: Reworked flexible layout, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real d61adfc93b 103/188: Refactoring, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 99fb9277c1 116/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 25bfb06ad3 126/188: Adding margin and padding tests, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 0f7c7db1e1 128/188: Linting/documentation, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 47d52107b2 111/188: Refactoring; killing org real buffer if it exists before recreating, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real e9e0b15c37 125/188: Smooth lines, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 0b2acfac23 112/188: If headline is a link, only display description, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 9e6a98aab6 117/188: Jump to location when entering org real mode, ELPA Syncer, 2024/05/05