Collection of themes/skins for the Fossil SCM

⌈⌋ ⎇ branch:  Fossil Skins Extra


Check-in [9c6bfdeb8a]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Support for real doc/trunk/file.txt browsing
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9c6bfdeb8a050bed2ead76b94e81a6e0e5f756ae
User & Date: mario 2021-10-20 05:56:53
Context
2021-10-20
05:57
submitter+sitemap added check-in: afc0986fac user: mario tags: trunk
05:56
Support for real doc/trunk/file.txt browsing check-in: 9c6bfdeb8a user: mario tags: trunk
2021-10-19
20:44
Introduce project.json listing check-in: b03092cc52 user: mario tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to features/file_link.th1.

︙︙
9
10
11
12
13
14
15
16
17


18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

        LEFT JOIN filename on mlink.fnid=filename.fnid
        LEFT JOIN blob b_artifact ON mlink.fid=b_artifact.rid
       WHERE b_checkin.uuid LIKE $ci AND name = $name
       ORDER BY b_artifact.rid DESC
    }
    #html "<!-- FL($current_page,name=$name,ci=$ci) -->\n"
    if {[regexp  "^doc/(tip|trunk)/.+" $current_page]} {
        # doc/tip/file.txt
        set sql "$sql_bynameci LIMIT 1"


    } elseif {"$current_page" eq "finfo"} {
        if {"$ci" ne "%"} {
            # finfo?name=file.txt&ci=1234f
            set sql $sql_bynameci
        } else {
            # finfo?name=file.txt
            set sql "$sql_bynameci LIMIT 1"
        }
    } elseif {[regexp  "^doc/\\w+/.+" $current_page]} {
        if {"$ci" ne "%"} {
            # doc/1234f/file.txt
            set sql $sql_bynameci
        } else {
            # /info/1234f  # should assert that it refers to a file blob?
            set name "$name%"
            set sql {SELECT uuid FROM blob where uuid LIKE $name}
        }
    } else {
        html "<!--nocasematch-->"
    }
    if {[info exists sql]} {
        #html "<!-- = $sql -->"
        set top [globalState top]
        query $sql {
            html "<link rel=\"alternative vcs raw\" href=\"$top/raw/$uuid\">"
        }
    }
}








|

>
>


















|










9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

        LEFT JOIN filename on mlink.fnid=filename.fnid
        LEFT JOIN blob b_artifact ON mlink.fid=b_artifact.rid
       WHERE b_checkin.uuid LIKE $ci AND name = $name
       ORDER BY b_artifact.rid DESC
    }
    #html "<!-- FL($current_page,name=$name,ci=$ci) -->\n"
    if {[regexp  "^doc/(tip|trunk)/.+" $current_page]} {
        # doc/tip/file.txt (same for doc/ access and file?name=fn.txt browsing)
        set sql "$sql_bynameci LIMIT 1"
        if {[regexp  "^(tip/)" $name]} { set name [string range $name 4 200] }
        if {[regexp  "^(trunk/)" $name]} { set name [string range $name 6 200] }
    } elseif {"$current_page" eq "finfo"} {
        if {"$ci" ne "%"} {
            # finfo?name=file.txt&ci=1234f
            set sql $sql_bynameci
        } else {
            # finfo?name=file.txt
            set sql "$sql_bynameci LIMIT 1"
        }
    } elseif {[regexp  "^doc/\\w+/.+" $current_page]} {
        if {"$ci" ne "%"} {
            # doc/1234f/file.txt
            set sql $sql_bynameci
        } else {
            # /info/1234f  # should assert that it refers to a file blob?
            set name "$name%"
            set sql {SELECT uuid FROM blob where uuid LIKE $name}
        }
    } else {
        #html "<!--nocasematch-->"
    }
    if {[info exists sql]} {
        #html "<!-- = $sql -->"
        set top [globalState top]
        query $sql {
            html "<link rel=\"alternative vcs raw\" href=\"$top/raw/$uuid\">"
        }
    }
}