[elpa] externals/org-real 89ea434b6e 161/188: Removed unnecessary :group, updated faces

[ELPA Syncer]

branch: externals/org-real
commit 89ea434b6e96c4222384e4b45cebc1650610f4d6
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@gmail.com>

    Removed unnecessary :group, updated faces
---
 org-real.el | 92 ++++++++++++++++++++-----------------------------------------
 1 file changed, 30 insertions(+), 62 deletions(-)

diff --git a/org-real.el b/org-real.el
index a9f37f5a32..9fb441747a 100644
--- a/org-real.el
+++ b/org-real.el
@@ -64,97 +64,66 @@
 
 (defcustom org-real-margin-x 2
   "Horizontal margin to be used when displaying boxes."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-margin-y 1
   "Vertical margin to be used when displaying boxes."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-padding-x 2
   "Horizontal padding to be used when displaying boxes."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-padding-y 1
   "Vertical padding to be used when displaying boxes."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-include-context t
   "Whether to show context when opening a real link."
-  :type 'boolean
-  :group 'org-real)
+  :type 'boolean)
 
 (defcustom org-real-flex-width 80
   "When merging links, try to keep width below this."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-default-visibility 2
   "Default level to display boxes."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-tooltips t
   "Show tooltips in an org real diagram."
-  :type 'boolean
-  :group 'org-real)
+  :type 'boolean)
 
 (defcustom org-real-tooltip-timeout 0.5
   "Idle time before showing tooltip in org real diagram."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 (defcustom org-real-tooltip-max-width 30
   "Maximum width of all tooltips."
-  :type 'number
-  :group 'org-real)
+  :type 'number)
 
 ;;;; Faces
 
 (defface org-real-default nil
-  "Default face used in Boxy mode."
-  :group 'boxy)
-
-(defface org-real-primary nil
-  "Face for highlighting the name of a box."
-  :group 'boxy)
-
-(face-spec-set
- 'org-real-primary
- '((((background dark)) (:foreground "turquoise"))
-   (t (:foreground "dark cyan")))
- 'face-defface-spec)
-
-(defface org-real-selected nil
-  "Face for the current box border under cursor."
-  :group 'boxy)
-
-(face-spec-set
- 'org-real-selected
- '((t :foreground "light slate blue"))
- 'face-defface-spec)
-
-(defface org-real-rel nil
-  "Face for the box which is related to the box under the cursor."
-  :group 'boxy)
-
-(face-spec-set
- 'org-real-rel
- '((t :foreground "hot pink"))
- 'face-defface-spec)
-
-(defface org-real-tooltip nil
-  "Face for tooltips in a boxy diagram."
-  :group 'boxy)
-
-(face-spec-set
- 'org-real-tooltip
- '((((background dark)) (:background "gray30" :foreground "gray"))
-   (t (:background "gainsboro" :foreground "dim gray")))
- 'face-defface-spec)
+  "Default face used in Boxy mode.")
+
+(defface org-real-primary
+  '((((background dark)) (:foreground "turquoise"))
+    (t (:foreground "dark cyan")))
+  "Face for highlighting the name of a box.")
+
+(defface org-real-selected
+   '((t :foreground "light slate blue"))
+  "Face for the current box border under cursor.")
+
+(defface org-real-rel
+   '((t :foreground "hot pink"))
+  "Face for the box which is related to the box under the cursor.")
+
+(defface org-real-tooltip
+   '((((background dark)) (:background "gray30" :foreground "gray"))
+     (t (:background "gainsboro" :foreground "dim gray")))
+  "Face for tooltips in a boxy diagram.")
 
 ;;;; Pretty printing
 
@@ -264,8 +233,7 @@ diagram."
                  (org-unbracket-string "<" ">" (match-string 0)))))
          (world (boxy-merge
                  (mapcar
-                  (lambda (containers)
-                    (org-real--make-box containers))
+                  #'org-real--make-box
                   (org-real--parse-buffer)))))
     (org-real-pp world
              :display-buffer-fn 'display-buffer-same-window