From f0138917754eb0fa4689075bde7e99735e75c22b Mon Sep 17 00:00:00 2001
From: terminaldweller <thabogre@gmail.com>
Date: Fri, 17 Feb 2023 20:50:40 +0330
Subject: wip

---
 lclipd.lua | 92 +++++++++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 58 insertions(+), 34 deletions(-)

diff --git a/lclipd.lua b/lclipd.lua
index ec6ed2c..342a24d 100755
--- a/lclipd.lua
+++ b/lclipd.lua
@@ -6,6 +6,27 @@
 -- luarocks-5.3 install --local lsqlite3
 -- sqlite3 $(cat /tmp/lclipd_db_name) 'select content from lclipd;' | dmenu -l 10 | xsel -ib
 local string = require("string")
+
+local function default_luarocks_modules()
+    local luarocks_handle = io.popen("luarocks-5.3 path --bin")
+    local path_b = false
+    local cpath_b = false
+    for line in luarocks_handle:lines() do
+        local path = string.match(line, "LUA_PATH%s*=%s*('.+')")
+        local cpath = string.match(line, "LUA_CPATH%s*=%s*('.+')")
+        if path ~= nil then
+            package.path = package.path .. ";" .. string.sub(path, 2, -2)
+        end
+        if cpath ~= nil then
+            package.cpath = package.cpath .. ";" .. string.sub(cpath, 2, -2)
+        end
+    end
+
+    if path_b then os.exit(1) end
+    if cpath_b then os.exit(1) end
+end
+default_luarocks_modules()
+
 local signal = require("posix.signal")
 local argparse = require("argparse")
 local sys_stat = require("posix.sys.stat")
@@ -21,8 +42,8 @@ create table if not exists lclipd (
 );
 ]=]
 
-local sql_trigger = [=[
-create trigger if not exists hist_prune before insert on lclipd
+local sql_dupe_trigger = [=[
+create trigger if not exists hist_dupe_prune before insert on lclipd
 begin
     delete from lclipd
     where id = (
@@ -31,8 +52,20 @@ begin
         where (select count(id) from lclipd where content == o.content) > 1
         order by id
         limit 1
-    )
-    and (
+    );
+end;
+]=]
+
+local sql_old_reap_trigger = [=[
+create trigger if not exists hist_old_reap before insert on lclipd
+begin
+    delete from lclipd
+    where id = (
+        select id from lclipd
+        order by timeAdded
+        asc 
+        limit 20
+    ) and (
         select count(id)
         from lclipd
     ) >= XXX;
@@ -50,25 +83,6 @@ local db_file_name = "/tmp/lclipd_db_name"
 local function remove_pid_file() os.remove(pid_file) end
 
 --- Adds LUA_PATH and LUA_CPATH to the current interpreters path.
-local function default_luarocks_modules()
-    local luarocks_handle = io.popen("luarocks-5.3 path --bin")
-    local path_b = false
-    local cpath_b = false
-    for line in luarocks_handle:lines() do
-        local path = string.match(line, "LUA_PATH%s*=%s*('.+')")
-        local cpath = string.match(line, "LUA_CPATH%s*=%s*('.+')")
-        if path ~= nil then
-            package.path = package.path .. ";" .. string.sub(path, 2, -2)
-        end
-        if cpath ~= nil then
-            package.cpath = package.cpath .. ";" .. string.sub(cpath, 2, -2)
-        end
-    end
-
-    if path_b then os.exit(1) end
-    if cpath_b then os.exit(1) end
-end
-default_luarocks_modules()
 
 local function lclip_exit(n)
     os.exit(n)
@@ -124,16 +138,16 @@ local function get_clipboard_content()
     handle_w:flush()
     local last_clip_entry_w = handle_w:read("*a")
 
-    local _, handle_p = pcall(io.popen, "pyclip paste")
-    handle_p:flush()
-    local last_clip_entry_p = handle_p:read("*a")
+    -- local _, handle_p = pcall(io.popen, "pyclip paste")
+    -- handle_p:flush()
+    -- local last_clip_entry_p = handle_p:read("*a")
 
-    if last_clip_entry_p ~= "" then
-        return last_clip_entry_p
+    -- if last_clip_entry_p ~= "" then
+    --     return last_clip_entry_p
+    if last_clip_entry_x ~= "" then
+        return last_clip_entry_x
     elseif last_clip_entry_w ~= "" then
         return last_clip_entry_w
-    elseif last_clip_entry_x ~= "" then
-        return last_clip_entry_x
     end
 end
 
@@ -174,12 +188,22 @@ local function loop(clip_hist_size)
         lclip_exit(1)
     end
 
-    -- add the trigger
-    sql_trigger = sql_trigger:gsub("XXX", clip_hist_size)
-    return_code = sqlite_handle:exec(sql_trigger)
+    -- add the de-dupe trigger
+    return_code = sqlite_handle:exec(sql_dupe_trigger)
+    if return_code ~= sqlite3.OK then
+        log_to_syslog(tostring(return_code), posix_syslog.LOG_CRIT)
+        log_to_syslog("could not add dupe trigger to table",
+                      posix_syslog.LOG_CRIT)
+        lclip_exit(1)
+    end
+
+    -- add the old_reap trigger
+    sql_old_reap_trigger = sql_old_reap_trigger:gsub("XXX", clip_hist_size)
+    return_code = sqlite_handle:exec(sql_dupe_trigger)
     if return_code ~= sqlite3.OK then
         log_to_syslog(tostring(return_code), posix_syslog.LOG_CRIT)
-        log_to_syslog("could not add trigger to table", posix_syslog.LOG_CRIT)
+        log_to_syslog("could not add old_reap trigger to table",
+                      posix_syslog.LOG_CRIT)
         lclip_exit(1)
     end
 
-- 
cgit v1.2.3