[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-real 3fb7433610 110/188: Updated customizations; co
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-real 3fb7433610 110/188: Updated customizations; color scheme |
Date: |
Sun, 5 May 2024 22:56:00 -0400 (EDT) |
branch: externals/org-real
commit 3fb7433610f689fda888252c6d128100d1d504ce
Author: Amy Grinn <grinn.amy@gmail.com>
Commit: Amy Grinn <grinn.amy@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 cc695a098d..8018be08b0 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 865b289b71 123/188: Only flex adjusting necessary boxes, (continued)
- [elpa] externals/org-real 865b289b71 123/188: Only flex adjusting necessary boxes, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4dd03477f0 026/188: Bump version, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 1cd88e6bae 047/188: Added customization group, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real eaa68cd701 036/188: Renamed md5 command, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 4d27ba59b9 062/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real c82d557eb4 066/188: v0.2.0, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 3b123018dd 078/188: Reuse window if org real diagram already visible, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f24300e466 077/188: Complete redesign, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 199a3d2618 091/188: Auto-fill description when inserting link, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 5164b5eb0a 081/188: Org real headlines switched to add-next, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 3fb7433610 110/188: Updated customizations; color scheme,
ELPA Syncer <=
- [elpa] externals/org-real eec4aca3e8 127/188: Merge branch 'next' into 'main', ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 2d6e5e169a 132/188: Fixed hiding of rel-box border, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 3071147c1e 130/188: Allow boxes to not have location markers, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 2c716d3e54 134/188: Merge branch 'main' into next, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real f94678b0b4 138/188: Refactoring, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 8c032c1b9f 141/188: Updated readme, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real db9f38f413 142/188: Draw selected box last, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 760925984e 156/188: Changed cl-defmethod to defun; linting, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real 668a60cb43 139/188: Merge display-rel-box, ELPA Syncer, 2024/05/05
- [elpa] externals/org-real e7c6fb4c14 148/188: Add submodules during ci/cd pipeline, ELPA Syncer, 2024/05/05