[elpa] externals/org-real 89c1120 153/160: Linting, rearranging

[ELPA Syncer]

branch: externals/org-real
commit 89c1120f42dbf1048a7f787dbb886e57318005d6
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@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 4114ed1..8a37b6a 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"