[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real 6c292d87f5 023/188: Make changes to satisfy el
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real 6c292d87f5 023/188: Make changes to satisfy elc compiler |
Date: |
Sun, 5 May 2024 22:55:49 -0400 (EDT) |
branch: externals/org-real
commit 6c292d87f5ed34c08786830c2895ff7b70a7353c
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Make changes to satisfy elc compiler
---
.gitignore | 2 ++
org-real.el | 23 +++++++----------------
2 files changed, 9 insertions(+), 16 deletions(-)
diff --git a/.gitignore b/.gitignore
index 05a47120ac..f67a22e7c3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,4 +2,6 @@
/.eldev
/Eldev-local
/dist
+*.elc
+
diff --git a/org-real.el b/org-real.el
index 00c9b48c7f..0cc3a1dcc3 100644
--- a/org-real.el
+++ b/org-real.el
@@ -169,7 +169,7 @@ Returns a list of plists with a :name property and
optionally a
(plist-put container :rel rel)
container)))
tokens)))
- (add-to-list 'containers (list :name host))))
+ (push (list :name host) containers)))
(defun org-real--parse-buffer ()
"Parse all real links in the current buffer."
@@ -463,7 +463,6 @@ describing where BOX is."
(buffer (get-buffer-create "Org Real")))
(with-current-buffer buffer
(erase-buffer)
- (goto-line 0)
(toggle-truncate-lines t)
(if containers (org-real--pp-text containers))
(let ((offset (- (line-number-at-pos)
@@ -510,12 +509,11 @@ OFFSET is the starting line to start insertion."
(width (org-real--get-width box))
(height (org-real--get-height box))
(name (oref box :name))
- (children (oref box :children))
(dashed (oref box :behind))
(align-bottom (oref box :in-front))
(primary (oref box :primary)))
(cl-flet ((draw (coords str &optional primary)
- (goto-line (car coords))
+ (forward-line (- (car coords) (line-number-at-pos)))
(move-to-column (cdr coords) t)
(if primary
(put-text-property 0 (length str) 'face
'org-real-primary
@@ -555,11 +553,8 @@ OFFSET is the starting line to start insertion."
(children (oref box :children)))
(if (not children)
width
- (let* ((column-indices (seq-reduce
- (lambda (columns child)
- (add-to-list 'columns (oref child :x-order)))
- children
- '()))
+ (let* ((column-indices (delete-duplicates
+ (mapcar (lambda (child) (oref child :x-order))
children)))
(columns (mapcar
(lambda (c)
(seq-filter
@@ -592,11 +587,8 @@ OFFSET is the starting line to start insertion."
(children (oref box :children)))
(if (not children)
height
- (let* ((row-indices (seq-reduce
- (lambda (rows child)
- (add-to-list 'rows (oref child :y-order)))
- children
- '()))
+ (let* ((row-indices (delete-duplicates
+ (mapcar (lambda (child) (oref child :y-order))
children)))
(rows (mapcar
(lambda (r)
(seq-filter
@@ -651,8 +643,7 @@ OFFSET is the starting line to start insertion."
"Get the left column index of BOX."
(if (not (slot-boundp box :parent))
0
- (let* ((offset (+ 2 (* 2 (car org-real--padding)) (car org-real--margin)))
- (parent (oref box :parent))
+ (let* ((parent (oref box :parent))
(left (+ 1
(car org-real--padding)
(org-real--get-left parent)))
- [elpa] branch externals/org-real created (now 50bae7669a), ELPA Syncer, 2024/05/05
- [elpa] externals/org-real af65462071 002/188: Removed unused box slot, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 02fc94713a 012/188: Add new line after pp text, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 86f74a610c 009/188: Use .el file instead of .tar in release job, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b5f3faca0f 004/188: Added alias "on" for "in", ELPA Syncer, 2024/05/05
- [elpa] externals/org-real db6efe2c05 016/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 60b0eb8822 011/188: Switched to before and after advice for advising `org-insert-link', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4a2c309502 008/188: Removed server stage from ci/cd, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 6c292d87f5 023/188: Make changes to satisfy elc compiler,
ELPA Syncer <=
- [elpa] externals/org-real 4212ff77d7 024/188: Check compilation during ci/cd pipeline, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c3a60a0b1c 017/188: Shift other things to the right or below when merging, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 10759079fd 033/188: Updated README, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 13d23426e8 020/188: find-last index returns nil if no match, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c365085bf3 043/188: Patch for using cl-defmethod rather than defun, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real a683c9ef76 048/188: Using stored values for computing top left width and height, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 26ffd84525 039/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real ecb1ba179e 050/188: Added 'on top of' preposition; update customization vars, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 460b3e934c 038/188: Renamed org-real--box to org-real-box, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c67dd51ee2 058/188: Linting, ELPA Syncer, 2024/05/05