[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real a0250ce600 153/188: Linting, rearranging
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real a0250ce600 153/188: Linting, rearranging |
Date: |
Sun, 5 May 2024 22:56:05 -0400 (EDT) |
branch: externals/org-real
commit a0250ce6004ea050552d72cc0011f185dc1b7b40
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>
Linting, rearranging
---
org-real.el | 51 ++++++++++++++++++++++-----------------------------
1 file changed, 22 insertions(+), 29 deletions(-)
diff --git a/org-real.el b/org-real.el
index 4114ed1180..8a37b6a57a 100644
--- a/org-real.el
+++ b/org-real.el
@@ -55,7 +55,7 @@
(require 'cl-lib)
(require 'ispell)
-;;;; Customization variables
+;;;; Options
(defgroup org-real nil
"Customization options for org-real"
@@ -229,6 +229,27 @@ diagram."
:rel-face rel-face
:selected-face selected-face))
+(defun org-real--get-header (containers)
+ "Get a textual representation of CONTAINERS."
+ (let* ((reversed (reverse containers))
+ (container (pop reversed))
+ (primary-name (plist-get container :name))
+ (header ""))
+ (put-text-property 0 (length primary-name) 'face 'org-real-primary
+ primary-name)
+ (cl-flet ((append-str (&rest strings)
+ (setq header (apply 'concat header strings))))
+ (append-str (make-string org-real-margin-y ?\n)
+ (make-string org-real-margin-x ?\s)
+ "The " primary-name)
+ (if reversed (append-str (if (org-real--is-plural primary-name) " are" "
is")))
+ (while reversed
+ (append-str " " (plist-get container :rel))
+ (setq container (pop reversed))
+ (append-str " the " (plist-get container :name)))
+ (append-str ".")
+ header)))
+
;;;; Interactive functions
(defun org-real-world ()
@@ -258,7 +279,6 @@ diagram."
(with-current-buffer (get-buffer "*Boxy*")
(boxy-jump-to-box match)))))))
-
(defun org-real-apply ()
"Apply any change from the real link at point to the current buffer."
(interactive)
@@ -335,33 +355,6 @@ diagram."
(pop new-containers)))))
(message nil))
-;;;; Pretty printing
-
-(defun org-real--append-str (str place)
- "Append string STR to generalized variable PLACE."
- (set place (concat (eval place) str)))
-
-(defun org-real--get-header (containers)
- "Get a textual representation of CONTAINERS."
- (let* ((reversed (reverse containers))
- (container (pop reversed))
- (primary-name (plist-get container :name))
- (header ""))
- (put-text-property 0 (length primary-name) 'face 'org-real-primary
- primary-name)
- (cl-flet ((append-str (&rest strings)
- (setq header (apply 'concat header strings))))
- (append-str (make-string org-real-margin-y ?\n)
- (make-string org-real-margin-x ?\s)
- "The " primary-name)
- (if reversed (append-str (if (org-real--is-plural primary-name) " are" "
is")))
- (while reversed
- (append-str " " (plist-get container :rel))
- (setq container (pop reversed))
- (append-str " the " (plist-get container :name)))
- (append-str ".")
- header)))
-
;;;; `org-insert-link' configuration
(org-link-set-parameters "real"
- [elpa] externals/org-real 0eb43ca002 115/188: Redesigned tooltips, (continued)
- [elpa] externals/org-real 0eb43ca002 115/188: Redesigned tooltips, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 89a03be54a 119/188: Use original relationship for tooltip if changed, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real a325418d4a 122/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real b9af670298 129/188: Added is-plural, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4d6fbc4364 053/188: Removed existing containers from completion candidates, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 0dfa33276e 052/188: More edge cases, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f2837a4836 054/188: Added org-real-flex-width custom variable, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f35ba82a6a 137/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 2ef7476cc7 145/188: Bump version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real d7ab6cc78f 151/188: Removed `org-real-headlines`, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real a0250ce600 153/188: Linting, rearranging,
ELPA Syncer <=
- [elpa] externals/org-real 7e6871d940 164/188: Add ol to autoloads, added autoload plugin to eldev, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c3c532f9ba 169/188: Added more autoloads, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real d9ec07c0e3 182/188: Updated version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 2883415acc 185/188: Updated documentation, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 07215e49e7 015/188: Updated README, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 594cbce6d5 092/188: Improved efficiency, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 33b69e62e0 152/188: Added license, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real e7bf6e5089 157/188: Added url-parse, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4d86ca8c44 160/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 1fa40be2c7 006/188: More edge cases, ELPA Syncer, 2024/05/05