[elpa] externals/cursory c21eaaa815 1/5: Add cursory-presets :blink-cursor-mode property

[ELPA Syncer]

branch: externals/cursory
commit c21eaaa81529ba224bf15a1b7595969e70dd7ac9
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add cursory-presets :blink-cursor-mode property
---
 README.org |  9 +++++++++
 cursory.el | 20 +++++++++++++++++---
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index ec82fc733e..a0d2dab0e1 100644
--- a/README.org
+++ b/README.org
@@ -95,6 +95,12 @@ built-in variables: ~cursor-type~, 
~cursor-in-non-selected-windows~,
 The value each property accepts is the same as the variable it
 references.
 
+[ The property =:blink-cursor-mode= is part of {{{development-version}}} ]
+
+A property of =:blink-cursor-mode= is also available.  It is a numeric
+value of either =1= or =-1= and is given to the function
+~blink-cursor-mode~ (=1= is to enable, =-1= is to disable the mode).
+
 [ The fallback =t= value for ~cursory-presets~ is part of 
{{{development-version}}} ]
 
 A preset whose car is =t= is treated as the default option.  This makes
@@ -108,6 +114,8 @@ is done:
 (defcustom cursory-presets
   '((box
      :blink-cursor-interval 0.8)
+    (box-no-blink
+     :blink-cursor-mode -1)
     (bar
      :cursor-type (bar . 2)
      :blink-cursor-interval 0.5)
@@ -117,6 +125,7 @@ is done:
     (t ; the default values
      :cursor-type box
      :cursor-in-non-selected-windows hollow
+     :blink-cursor-mode 1
      :blink-cursor-blinks 10
      :blink-cursor-interval 0.2
      :blink-cursor-delay 0.2))
diff --git a/cursory.el b/cursory.el
index ea7c3e5448..c5d7293bb0 100644
--- a/cursory.el
+++ b/cursory.el
@@ -80,6 +80,8 @@
 (defcustom cursory-presets
   '((box
      :blink-cursor-interval 0.8)
+    (box-no-blink
+     :blink-cursor-mode -1)
     (bar
      :cursor-type (bar . 2)
      :blink-cursor-interval 0.5)
@@ -89,6 +91,7 @@
     (t ; the default values
      :cursor-type box
      :cursor-in-non-selected-windows hollow
+     :blink-cursor-mode 1
      :blink-cursor-blinks 10
      :blink-cursor-interval 0.2
      :blink-cursor-delay 0.2))
@@ -117,7 +120,11 @@ properties.  In particular, it accepts the following 
properties:
 They correspond to built-in variables: `cursor-type',
 `cursor-in-non-selected-windows', `blink-cursor-blinks',
 `blink-cursor-interval', `blink-cursor-delay'.  The value each of
-them accepts is the same as the variable it references."
+them accepts is the same as the variable it references.
+
+A property of `:blink-cursor-mode' is also available.  It is a
+numeric value of either 1 or -1 and is given to the function
+`blink-cursor-mode' (1 is to enable, -1 is to disable the mode)."
   :group 'cursory
   :package-version '(cursory . "0.3.0")
   :type `(alist
@@ -137,7 +144,12 @@ them accepts is the same as the variable it references."
                    ,(get 'blink-cursor-interval 'custom-type))
                   ((const :tag "Blink delay"
                           :blink-cursor-delay)
-                   ,(get 'blink-cursor-delay 'custom-type))))
+                   ,(get 'blink-cursor-delay 'custom-type))
+                  ((const :tag "Blink Cursor Mode"
+                          :blink-cursor-mode)
+                   (choice :value 1
+                           (const :tag "Enable" 1)
+                           (const :tag "Disable" -1)))))
           :key-type symbol))
 
 (defcustom cursory-latest-state-file
@@ -184,7 +196,8 @@ STYLE is a symbol that represents the car of a list in
 `cursory-presets'.
 
 With optional LOCAL as a prefix argument, set the
-`cursory-presets' only for the current buffer."
+`cursory-presets' only for the current buffer.  This does not
+cover the function `blink-cursor-mode', which is always global."
   (interactive
    (list
     (if (= (length cursory-presets) 1)
@@ -213,6 +226,7 @@ With optional LOCAL as a prefix argument, set the
                     blink-cursor-blinks blinks
                     blink-cursor-interval interval
                     blink-cursor-delay delay))
+    (blink-cursor-mode (plist-get properties :blink-cursor-mode))
     ;; We only want to save global values in
     ;; `cursory-store-latest-preset'.
     (unless local