[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real ca52aef 110/160: Updated customizations; color
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real ca52aef 110/160: Updated customizations; color scheme |
Date: |
Wed, 6 Oct 2021 16:58:26 -0400 (EDT) |
branch: externals/org-real
commit ca52aef953e3b5cb496b67ec118091ff88586714
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>
Updated customizations; color scheme
---
org-real.el | 38 +++++++++++++++++++++++++-------------
1 file changed, 25 insertions(+), 13 deletions(-)
diff --git a/org-real.el b/org-real.el
index cc695a0..8018be0 100644
--- a/org-real.el
+++ b/org-real.el
@@ -137,6 +137,16 @@
:type 'number
:group 'org-real)
+(defcustom org-real-tooltips t
+ "Show tooltips in an org real diagram."
+ :type 'boolean
+ :group 'org-real)
+
+(defcustom org-real-tooltip-timeout 0.5
+ "Idle time before showing tooltip in org real diagram."
+ :type 'number
+ :group 'org-real)
+
;;;; Faces
(defface org-real-default nil
@@ -167,7 +177,7 @@
(face-spec-set
'org-real-rel
- '((t :foreground "orange"))
+ '((t :foreground "hot pink"))
'face-defface-spec)
(defface org-real-popup nil
@@ -176,7 +186,7 @@
(face-spec-set
'org-real-popup
- '((t :background "light slate blue"
+ '((t :background "midnight blue"
:foreground "white"))
'face-defface-spec)
@@ -1092,15 +1102,17 @@ If INCLUDE-ON-TOP is non-nil, also include height on
top of box."
(save-excursion
(if (eq dir 'entered)
(progn
- (setq timer
- (run-with-idle-timer
- 0.3 nil
- (lambda ()
- (if (slot-boundp box :metadata)
- (org-real--popup metadata)
- (if (and (slot-boundp box :name) (slot-boundp box
:rel))
- (with-slots ((rel-name name)) rel-box
- (org-real--popup (format "The %s is %s the
%s." name rel rel-name))))))))
+ (if org-real-tooltips
+ (setq timer
+ (run-with-idle-timer
+ org-real-tooltip-timeout nil
+ (lambda ()
+ (if (slot-boundp box :metadata)
+ (org-real--tooltip metadata)
+ (if (and (slot-boundp box :name) (slot-boundp
box :rel))
+ (with-slots ((rel-name name)) rel-box
+ (org-real--tooltip (format "The %s is
%s the %s."
+ name rel
rel-name)))))))))
(if (slot-boundp box :rel-box)
(org-real--draw rel-box 'rel))
(org-real--draw box 'selected))
@@ -1739,9 +1751,9 @@ characters if possible."
;;;; Utility expressions
-(defun org-real--popup (str)
+(defun org-real--tooltip (str)
"Show a popup tooltip with STR contents."
- (popup-tip str
+ (popup-tip (concat "\n" str "\n")
:parent-offset 1
:margin org-real-padding-x))
- [elpa] externals/org-real a5736f1 070/160: Created buttons that link back to the location of the link, (continued)
- [elpa] externals/org-real a5736f1 070/160: Created buttons that link back to the location of the link, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 4c81b19 071/160: org-real-headlines; Added more keys to Org Real mode, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real e46eb9c 075/160: Added ability to cycle children of a box, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 8ab3459 083/160: Added test framework, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real f6417b0 076/160: Added ability to collapse and expand boxes, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 92499a7 080/160: Updated readme, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 88c947d 088/160: # `org-real-headlines`, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real f74239f 089/160: Show diffs if test failed, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 881e4af 093/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 6a7fbe8 100/160: Added org mode keybindings suggestions, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real ca52aef 110/160: Updated customizations; color scheme,
ELPA Syncer <=
- [elpa] externals/org-real f1614bf 111/160: Refactoring; killing org real buffer if it exists before recreating, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 7767388 114/160: Removed popup.el dependency, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 0e8bd16 104/160: Relationship defaults to "in" if omitted in link, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 4a60feb 109/160: Linting, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real 72dd6bf 113/160: Added more customization vars, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real bf8a26c 105/160: Navigate by relationship; color currenly selected box and rel-box, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real d9aab4e 103/160: Refactoring, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real b3d1c09 115/160: Redesigned tooltips, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real d23f9bf 112/160: If headline is a link, only display description, ELPA Syncer, 2021/10/06
- [elpa] externals/org-real f883078 101/160: Merge branch 'next' into 'main', ELPA Syncer, 2021/10/06