clocking.lua

local clockingLog = hs.logger.new("clocking")
local clockingMenu = hs.menubar.new()
local currentTask = nil

local function trim(s)
   return (s:gsub("^%s*(.-)%s*$", "%1"))
end

local function eval(sexp, callback)
   hs.task.new(
      "/usr/local/bin/emacsclient",
      function(exitCode, stdOut, stdErr)
         if exitCode == 0 then
            callback(trim(stdOut))
         end
      end,
      { "--eval", sexp }
   ):start()
end
      

local function updateClockingMenu()
   eval(
      "(org-clock-is-active)",
      function(value)
         if value == "nil" then
            clockingMenu:setTitle("No Task")
         else
            eval(
                "(org-clock-get-clock-string)",
                function(value)
                   clockingMenu:setTitle(string.match(value, '"(.+)"'))
                end
            )
         end
      end
   )
end

local function startUpdatingClockingMenu()
   hs.timer.doEvery(10, updateClockingMenu)
end

local mod = {}

function mod.init()
    updateClockingMenu()
    startUpdatingClockingMenu()
end

return mod

Continue to pay attention, after optimization, hope to be notified

I just added return to the lines 41 and 48:

41c41
<    hs.timer.doEvery(5, updateClockingMenu)
---
>    return hs.timer.doEvery(5, updateClockingMenu)
48c48
<     startUpdatingClockingMenu()
---
>     return startUpdatingClockingMenu()

And binded the timer into a global variable in my init.lua:

local clocking = require "clocking"
dateTimeGarbageCollectorPreventer = clocking.init()

Now it works without any problems. Here is the issue that I found the solution: Hammerspoon/hammerspoon#1942 TLDR; timer gets garbage collected for some reason, when we bind it to a some global value, it doesn't get garbage collected.