diff options
| author | Hans Hagen <pragma@wxs.nl> | 2014-09-26 11:42:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2014-09-26 11:42:00 +0200 |
| commit | 7054433f452b0e3197c42e066eb861dc6a0e2bc6 (patch) | |
| tree | 038fff2337f654014562dac18f7ec4be0b7f1a43 /tex/context/base/data-sch.lua | |
| parent | ea8cd771135d573fee6529e62e08468e79b12eab (diff) | |
| download | context-7054433f452b0e3197c42e066eb861dc6a0e2bc6.tar.gz | |
beta 2014.09.26 11:42
Diffstat (limited to 'tex/context/base/data-sch.lua')
| -rw-r--r-- | tex/context/base/data-sch.lua | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tex/context/base/data-sch.lua b/tex/context/base/data-sch.lua index adc774489..1e1077b03 100644 --- a/tex/context/base/data-sch.lua +++ b/tex/context/base/data-sch.lua @@ -31,8 +31,18 @@ function cleaners.none(specification) return specification.original end -function cleaners.strip(specification) - return (gsub(specification.original,"[^%a%d%.]+","-")) -- so we keep periods +-- function cleaners.strip(specification) +-- -- todo: only keep suffix periods, so after the last +-- return (gsub(specification.original,"[^%a%d%.]+","-")) -- so we keep periods +-- end + +function cleaners.strip(specification) -- keep suffixes + local path, name = file.splitbase(specification.original) + if path == "" then + return (gsub(name,"[^%a%d%.]+","-")) + else + return (gsub((gsub(path,"%.","-") .. "-" .. name),"[^%a%d%.]+","-")) + end end function cleaners.md5(specification) |