Add syntax-checking-auto-hide-tooltips variable to syntax-checking la…

…yer.
syl20bnr · Aug 26, 2020 · 7732fca · 7732fca
1 parent d17492e
commit 7732fca
Show file tree

Hide file tree

Showing 4 changed files with 20 additions and 1 deletion.
diff --git a/CHANGELOG.develop b/CHANGELOG.develop
@@ -3330,6 +3330,7 @@ Other:
 - Fixed =goto-flycheck-error-list= (thanks to Thanh Vuong)
 - Added lsp support for sqls
   - Added layer variable =sql-lsp-sqls-workspace-config-path= to setting workspace configuration
+- Added layer variable =syntax-checking-auto-hide-tooltips= (thanks to Martin Sosic)
 **** Swift
 - Update Swift REPL key bindings (thanks to Elliot Bulmer)
 **** Systemd

diff --git a/layers/+checkers/syntax-checking/README.org b/layers/+checkers/syntax-checking/README.org
@@ -14,6 +14,7 @@
   - [[#enable-flycheck-globally][Enable flycheck globally]]
   - [[#enable-support-for-traditional-error-navigation][Enable support for traditional error navigation]]
   - [[#bitmaps][Bitmaps]]
+  - [[#auto-hide-tooltips][Auto hide tooltips]]
 - [[#key-bindings][Key bindings]]
 
 * Description
@@ -93,6 +94,19 @@ variable =syntax-checking-use-original-bitmaps= to =t=:
     '((syntax-checking :variables syntax-checking-use-original-bitmaps t)))
 #+END_SRC
 
+
+** Auto hide tooltips
+You can set time in seconds after which tooltips are automatically hidden by setting
+the variable =syntax-checking-auto-hide-tooltips= to a positive number of seconds.
+
+Default value of =syntax-checking-auto-hide-tooltips= is =nil=, and in that case tooltips
+are kept open until the cursor is moved.
+
+#+BEGIN_SRC emacs-lisp
+  (setq-default dotspacemacs-configuration-layers
+    '((syntax-checking :variables syntax-checking-auto-hide-tooltips 10)))
+#+END_SRC
+
 * Key bindings
 
 | Key binding | Description                                                  |

diff --git a/layers/+checkers/syntax-checking/config.el b/layers/+checkers/syntax-checking/config.el
@@ -14,6 +14,9 @@
 (defvar syntax-checking-enable-tooltips t
   "If non nil some feedback are displayed in tooltips.")
 
+(defvar syntax-checking-auto-hide-tooltips nil
+  "If non-nil and positive number, auto hide tooltips after number of seconds.")
+
 (defvar syntax-checking-enable-by-default t
   "Enable syntax-checking by default.")
 

diff --git a/layers/+checkers/syntax-checking/packages.el b/layers/+checkers/syntax-checking/packages.el
@@ -102,7 +102,8 @@
     :defer t
     :init
     (with-eval-after-load 'flycheck
-      (flycheck-pos-tip-mode))))
+      (flycheck-pos-tip-mode)
+      (setq flycheck-pos-tip-timeout (or syntax-checking-auto-hide-tooltips 0)))))
 
 (defun syntax-checking/pre-init-popwin ()
   (spacemacs|use-package-add-hook popwin