From b5f0b340d2d74db6556b6b3b9189f0840b667ff2 Mon Sep 17 00:00:00 2001
From: Guldoman <giulio.lettieri@gmail.com>
Date: Sat, 2 Oct 2021 16:38:10 +0200
Subject: [PATCH] Add option to disable caret blinking (#572)

---
 data/core/config.lua  | 1 +
 data/core/docview.lua | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/data/core/config.lua b/data/core/config.lua
index f11c8959..eb4dcdf6 100644
--- a/data/core/config.lua
+++ b/data/core/config.lua
@@ -24,6 +24,7 @@ config.max_project_files = 2000
 config.transitions = true
 config.animation_rate = 1.0
 config.blink_period = 0.8
+config.disable_blink = false
 config.draw_whitespace = false
 config.borderless = false
 config.tab_close_button = true
diff --git a/data/core/docview.lua b/data/core/docview.lua
index c26393a1..9a2972dc 100644
--- a/data/core/docview.lua
+++ b/data/core/docview.lua
@@ -411,10 +411,12 @@ function DocView:draw_overlay()
     local T = config.blink_period
     for _, line, col in self.doc:get_selections() do
       if line >= minline and line <= maxline
-      and (core.blink_timer - core.blink_start) % T < T / 2
       and system.window_has_focus() then
-        local x, y = self:get_line_screen_position(line)
-        self:draw_caret(x + self:get_col_x_offset(line, col), y)
+        if config.disable_blink
+        or (core.blink_timer - core.blink_start) % T < T / 2 then
+          local x, y = self:get_line_screen_position(line)
+          self:draw_caret(x + self:get_col_x_offset(line, col), y)
+        end
       end
     end
   end