Fix tag parsing for search patterns. (#595)

Co-authored-by: Nico Madysa <[email protected]>

Author: Übertreiber

lua/orgmode/parser/search.lua

@@ -339,7 +339,7 @@ end
 ---@return TagMatch?, string
 function TagMatch:parse(input)
   local tag
-  tag, input = parse_pattern(input, '%w+')
+  tag, input = parse_pattern(input, '[%w_@#%%]+')
   if not tag then
     return nil, input
   end

tests/plenary/parser/search_spec.lua

@@ -202,4 +202,14 @@ describe('Search parser', function()
       todo = 'DONE',
     }))
   end)
+
+  it('should parse allowed punctuation in tags', function()
+    local result = Search:new('lang_dev|@work|org#mode|a2%')
+    assert.Is.True(result:check({ tags = { 'lang_dev' } }))
+    assert.Is.True(result:check({ tags = { '@work' } }))
+    assert.Is.True(result:check({ tags = { 'org#mode' } }))
+    assert.Is.True(result:check({ tags = { 'a2%' } }))
+    assert.Is.False(result:check({ tags = { 'lang', 'dev', 'work', 'org' } }))
+    assert.Is.False(result:check({ tags = { 'mode', 'a2' } }))
+  end)
 end)