Lompat ke isi

Modul:Index template

Dari Wikisumber bahasa Indonesia, perpustakaan bebas

Dokumentasi untuk modul ini dapat dibuat di Modul:Index template/doc

function withWikidataLink(wikitext, category)
	if wikitext == nil then
		return nil
	end
	new_wikitext = mw.ustring.gsub(wikitext, '%[%[([^|%]]*)%]%]', function(page)
		return addWikidataToLink(page, mw.ustring.gsub(page, '%.*/', '') , category)
	end)
	if new_wikitext ~= wikitext then
		return new_wikitext
	end
	return mw.ustring.gsub(wikitext, '%[%[([^|]*)|([^|%]]*)%]%]', function(page, link)
		return addWikidataToLink(page, link, category)
	end)
end

function addWikidataToLink(page, label, category)
    local title = mw.title.new( page )
    if title == nil then
    	return '[[' .. page .. '|' .. label .. ']]'
    end
    if title.isRedirect then
        title = title.redirectTarget
    end

    local tag = mw.html.create('span')
    local itemId = mw.wikibase.getEntityIdForTitle(title.fullText)
	tag:wikitext('[[' .. page .. '|' .. label .. ']]')
    if itemId ~= nil then
    	tag:wikitext(' [[Image:Wikidata.svg|10px|link=d:' .. itemId .. '|Lihat butir ini di Wikidata]]')
    	if category ~= nil then
    		tag:wikitext('[[Kategori:' .. category .. ']]')
    	end
    end
    return tostring(tag)
end

function addRow(metadataTable, key, value)
	if value then
		metadataTable:tag('tr')
			:tag('th')
				:attr('score', 'row')
				:css('vertical-align', 'top')
				:wikitext(key)
				:done()
			:tag('td'):wikitext(value)
	end
end

function splitFileNameInFileAndPage(title)
    local slashPosition = string.find(title.text, "/")
    if slashPosition == nil then
    	return title.text,nil
    else
    	return string.sub(title.text, 1, slashPosition - 1), string.sub(title.text, slashPosition + 1)
    end
end

function indexTemplate(frame)
	--create a clean table of parameters with blank parameters removed
	local data = (require 'Module:Index_data').indexDataWithWikidata(frame)
	local args = data.args
	local item = data.item
	
	local page = mw.title.getCurrentTitle()
	local html = mw.html.create()
	
	if item then
		html:wikitext('[[Kategori: Buku dengan butir Wikidata]]<indicator name="wikidata">[[File:Wikidata.svg|20px|Elemen Wikidata|link=d:' .. item.id .. ']]</indicator>')
        else
        html:wikitext('[[Category: Buku tanpa butir Wikidata]]')
	end

    --Left part
    local left = html:tag('div')
    if args.remarks or args.notes then
    	left:css('width', '80%')
    end
    left:css('float', 'left')
    --Image
    if args.image then
        local imageContainer = left:tag('div')
            :css({
                float = 'left',
                overflow = 'hidden',
                border = 'thin grey solid'
            })
        local imageTitle = nil
        if tonumber(args.image) ~= nil then
            -- this is a page number
            imageTitle = mw.title.getCurrentTitle():subPageTitle(args.image)
        else
            -- this is an other file
            imageTitle = mw.title.new(args.image, "Media")
        end
        if imageTitle == nil then
            imageContainer:wikitext(args.image)
        else
            local imageName, imagePage = splitFileNameInFileAndPage(imageTitle)
            if imagePage ~= nil then
	            imageContainer:wikitext('[[File:' .. imageName .. '|page=' .. imagePage .. '|250px]]')
	        else
	            imageContainer:wikitext('[[File:' .. imageName .. '|250px]]')
	        end
        end
    end
    --Metadata
    local metadataContainer = left:tag('div')
    if args.image then
    	metadataContainer:css('margin-left', '150px')
    end
    local metadataTable = metadataContainer:tag('table')

    if args.title then
       if item then
    		addRow(metadataTable, 'Judul', withWikidataLink(args.title))
		else 
    		addRow(metadataTable, 'Judul', '[[' .. args.title .. ']]')
    	end
    else
    	mw.addWarning('Anda harus mengisi kotak judul')
    end

	addRow(metadataTable, 'Subjudul', withWikidataLink(args.subtitle))

    if args.volume then
        addRow(metadataTable, 'Volume', '' .. args.volume .. '' )
        html:wikitext('[[Kategori: Buku dengan informasi Volume]]')
    else 
        html:wikitext('[[Category: Buku tanpa informasi Volume]]')
    end


    if args.edition then
        addRow(metadataTable, 'Edisi', '' .. args.edition .. '')
        html:wikitext('[[Category: Buku dengan informasi Edisi]]')
    else 
        html:wikitext('[[Category: Buku tanpa informasi Edisi]]')
    end

    if args.author then
    if item then
        addRow(metadataTable, 'Pengarang', withWikidataLink(args.author))
        html:wikitext('[[Category: Buku dengan informasi Pengarang]]')
        --html:wikitext('[[Category: Books by ' .. mw.text.nowiki(args.author)  ..  ']]')
       -- local author = {{#invoke:delink|delink|mw.text.nowiki(args.author)}}
       --local author = wikitext(args.author)
       --local author = mw.text.killMarkers(args.author)
       
        --local author = {{#invoke:delink|delinkWikilink| mw.text.nowiki(args.author)}}
        --html:wikitext('[[Category: Books by ' .. {{#invoke:delink|' .. args.author  ..  '}}]]')
        local author = item:formatStatements('P253075')['value']
        

        --local author = {{delink|[[args.author]]}}
        --local author = {{#delink|I visited www.example.com example.com.}}
        --local author = {{#invoke:delink | args.author}}
        --local author = mw.text.unstrip( args.author )
        --html:wikitext('[[Category: Books by ' .. author  ..  ']]')

    else 
    	addRow(metadataTable, 'Pengarang', '{{Al|' .. args.author  .. '}}')
    end
    else
        html:wikitext('[[Category: Buku tanpa informasi Pengarang]]')
    end

    if args.coauthor1 then
    	addRow(metadataTable, 'Pengarang kedua', '{{Al|' .. args.coauthor1  .. '}}')
    end

    if args.translator then
    if item then
        addRow(metadataTable, 'Penerjemah', withWikidataLink(args.translator))
        html:wikitext('[[Category: Buku dengan informasi Penerjemah]]')
    else 
    addRow(metadataTable, 'Penerjemah', '{{Al|' .. args.translator .. '}}')
    end
    else
        html:wikitext('[[Category: Buku tanpa informasi Penerjemah]]')
    end


    if args.editor then
    if item then
        addRow(metadataTable, 'Penyunting', withWikidataLink(args.editor))
        html:wikitext('[[Category: Buku dengan informasi Penyunting]]')
    else
    addRow(metadataTable, 'Penyunting', '{{Al|' .. args.editor .. '}}')
    end
    else 
        html:wikitext('[[Category: Buku tanpa informasi Penyunting]]')
    end
    
    if args.illustrator then
        addRow(metadataTable, 'Ilustrator', withWikidataLink(args.illustrator))
        html:wikitext('[[Category: Buku dengan informasi Ilustrator]]')
    else 
        html:wikitext('[[Category: Buku tanpa informasi Ilustrator]]')
    end

    if args.publisher then
    if item then
        addRow(metadataTable, 'Penerbit', withWikidataLink(args.publisher))
        html:wikitext('[[Category: Buku dengan informasi Penerbit]]')
    -- {{suppress categories|html:wikitext[[Category:No Publisher]]}} 
    --    {{#invoke:Suppress categories|main|html:wikitext[[Category:No Publisher]]}} 
    else 
        addRow(metadataTable, 'Penerbit', withWikidataLink(args.publisher))
        html:wikitext('[[Category: Buku dengan informasi Penerbit]]')
    end
    else
            html:wikitext('[[Category: Buku tanpa informasi Penerbit]]')

    end


    if args.address then
        addRow(metadataTable, 'Alamat penerbit', withWikidataLink(args.address))
        html:wikitext('[[Category:Buku dengan informasi Alamat Penerbit]]')
    else 
        if args.publishedin then
            addRow(metadataTable, 'Published In', withWikidataLink(args.publishedin))
            html:wikitext('[[Category:Buku dengan informasi Alamat Penerbit]]')
          else 
            html:wikitext('[[Category:Buku tanpa informasi Alamat Penerbit]]')
        end
    end


    if args.year then
        addRow(metadataTable, 'Tahun', withWikidataLink(args.year))
        html:wikitext('[[Category: Buku dengan informasi Tahun]]')
    else 
        html:wikitext('[[Category: Buku dengan informasi Tahun]]')
    end


    if args.printer then
        addRow(metadataTable, 'Pencetak', withWikidataLink(args.printer))
        html:wikitext('[[Category: Buku dengan informasi Pencetak]]')
    else 
        html:wikitext('[[Category: Buku tanpa informasi Pencetak]]')
    end


    if args.source == 'djvu' or args.source == 'pdf' then
		addRow(metadataTable, 'Sumber', '[[:File:' .. mw.title.getCurrentTitle().text .. '|' .. args.source .. ']]')

		--add an indicator linking to the usages
        local query = 'SELECT ?item ?itemLabel ?pages ?page WHERE {\n  ?item wdt:P996 <http://commons.wikimedia.org/wiki/Special:FilePath/' .. mw.uri.encode(mw.title.getCurrentTitle().text, 'PATH') .. '> .\n  OPTIONAL { ?page schema:about ?item ; schema:isPartOf <https://id.wikisource.org/> . }\n  OPTIONAL { ?item wdt:P304 ?pages . }\n  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],id".\n}}'

        html:wikitext('<indicator name="index-scan-wikidata">[[File:Wikidata Query Service Favicon.svg|20px|Butir Wikidata |link=https://query.wikidata.org/embed.html#' .. mw.uri.encode(query, 'PATH') .. ']]</indicator>')
	else
		addRow(metadataTable, 'Sumber', args.source)
	end
	if args.progress == 'T' then
		addRow(metadataTable, 'Kemajuan', '[[Category:Buku lengkap]] [[:Category:Buku lengkap|Lengkap]]')
	elseif args.progress == 'V' then
		addRow(metadataTable, 'Kemajuan', '[[category:Buku untuk divalidasi]] [[:Category:Buku untuk divalidasi | Untuk divalidasi]]')
	elseif args.progress == 'C' then
		addRow(metadataTable, 'Kemajuan', '[[category:Buku untuk dibetulkan]] [[:category:Buku untuk dibetulkan | Untuk dibetulkan]]')
	elseif args.progress == 'OCR' then
		addRow(metadataTable, 'Kemajuan', '[[category:Buku tanpa lapisan teks]] [[:category:Buku tanpa lapisan teks | Tambahkan lapisan teks OCR]]')
	elseif args.progress == 'L' then
		addRow(metadataTable, 'Kemajuan', '[[category:Buku untuk diperbaiki]] <span style = "color: # FF0000;"> [[:category: Buku untuk diperbaiki | Berkas sumber cacat]]</span>')
   elseif args.progress == 'X' then
		addRow(metadataTable, 'Progres', '[[category:Ekstrak dan kompilasi]] [[:category:Ekstrak dan kompilasi | Sumber tidak lengkap: ekstrak dan kompilasi]]')
	else
		addRow(metadataTable, 'Progres', '[[Category:Buku dengan kemajuan tidak diketahui]] [[:category:Buku dengan kemajuan tidak diketahui | Kemajuan tidak diketahui]]')
	end
	addRow(metadataTable, 'Seri', args.volumes)
	
	if args.pages then
		left:tag('div'):css('clear', 'both')
            left:tag('h3'):wikitext('Halaman')
		left:tag('div'):attr('id', 'pagelist'):css({
			background = '#F0F0F0',
			['padding-left'] = '0.5em',
			['text-align'] = 'justify'
		}):newline():wikitext(args.pages):newline()
	else
		mw.addWarning('You must enter the pagination of the facsimile (Pages field) ')
	end

	if args.remarks or args.notes then
		local right = html:tag('div'):css({
			width = '44%;',
			['padding-left'] = '1em',
			float = 'right'
		})
		if args.remarks then
			right:tag('div'):attr('id', 'remarks'):wikitext(args.remarks)
		end
		if args.notes then
			right:tag('hr'):css({
				['margin-top'] = '1em',
				['margin-bottom'] = '1em'
			})
			right:tag('div'):attr('id', 'notes'):wikitext(args.notes)
		end
	end
	
	if args.type == 'book' then
		html:wikitext('[[Category: Indeks - Buku]] ')
	elseif args.type == 'journal' then
		html:wikitext('[[Category: Indeks - Terbitan berkala]] ')
	 elseif args.type == 'collection' then
		html:wikitext('[[Category: Indeks - Koleksi]] ')
	elseif args.type == 'dictionary' then
		html:wikitext('[[Category: Indeks - Kamus]] ')
	elseif args.type == 'phdthesis' then
		html:wikitext('[[Category: Indeks - Tesis]] ')
	end
	html:wikitext('[[Category: Indeks]] ')

	if args.source ~= 'djvu' then
		html:wikitext('[[Category: Buku non-DjVu]] ')
	elseif args.source == 'pdf' then
		html: wikitext ('[[Category: Buku PDF]]') 
	elseif args.source == 'ogg' then
		html: wikitext ('[[Category: Berkas OGG]]') 
	elseif args.source == 'webm' then
		html: wikitext ('[[Category: Berkas WEBM]]') 
	end
	if not args.remarks then
		html: wikitext ('[[Category: Halaman berindeks]]') 
	end

	return tostring(html)
end

local p = {}
 
function p.indexTemplate( frame )
    return indexTemplate( frame )
end
 
return p