Différences entre les pages « Module:Palette » et « Arthur Young »

De Les Mots de l'agronomie
(Différence entre les pages)
imported>Jacques Ducloy
m (1 révision importée)
 
imported>Pierre Morlon
m
 
Ligne 1 : Ligne 1 :
local Palette = { }
+
'''[[A pour personnalité::Y|Arthur Young]]''' (1741-1820) est un agriculteur et agronome britannique. Parmi ses ouvrages, le ''Voyage en France'', paru en 1792, fournit des informations précieuses sur la France rurale de l'époque.
  
function Palette.listePalette( frame )
+
==Listes des articles dans lesquels Arthur Young est cité==
local args = frame.args
+
{{#ask:[[A pour personne citée::{{PAGENAME}}]]
local parentArgs = frame:getParent().args
+
|format=ul
+
}}
local wikiTable = { '<div class="navbox-container" style="clear:both;">\n' }
 
setmetatable( wikiTable, { __index = table } )  -- permet d'utiliser les fonctions de table comme des méthodes
 
local palettesVerticales = ''
 
 
local maxPalette = tonumber( args.maxPalette ) or 4
 
local categoriePaletteInconnue = '[[Catégorie:Modèle Palette - Palette inconnue]]'
 
local categorieTropDePalette = '[[Catégorie:Modèle Palette - Page contenant trop de palettes]]'
 
local categoriePaletteEnDouble = '[[Catégorie:Modèle Palette - Palette affichée en double]]'
 
 
local categories = { }
 
 
local function _erreur( texte, param, ... )
 
if param then texte = texte:format( param, ... )
 
end
 
local sep = #wikiTable > 1 and '<hr>' or ''
 
return sep .. '<p><strong class="error" style="padding-left:.5em;">' .. texte .. '</strong></p>\n'
 
end
 
local function _pasDePalette()
 
return _erreur( 'Erreur dans l’utilisation du [[Modèle:Palette]] : paramètre obligatoire absent.' )
 
end
 
 
local function _paletteInconnue( i )
 
categories.paletteInconnue = categoriePaletteInconnue
 
local nomPalette = mw.text.trim( parentArgs[i] )
 
return _erreur( 'Erreur : il n’existe pas de modèle {{[[Modèle:Palette %s|Palette %s]]}} [[Aide:Palette de navigation|(aide)]]', nomPalette, nomPalette )
 
end
 
  
local function _paletteEnDouble ( i )
+
==Liste des annexes dans lesquelles Arthur Young est cité==
categories.paletteEnDouble = categoriePaletteEnDouble
+
{{#ask:[[A pour personne citée dans les annexes::{{PAGENAME}}]]
return "" -- inutile d'afficher une erreur visible pour ce cas puisque la mise en page n'est pas cassée
+
|format=ul
end
+
}}
 
local function _paletteAvecParametres( i )
 
local argsPalette = { }
 
for n, v in pairs( parentArgs ) do
 
if not tonumber(n) then
 
if n:match( ' ' .. i .. '$' ) then
 
argsPalette[ n:sub(1, n:len() - 1 - tostring(i):len() ) ] = v
 
elseif n == 'nocat' .. i then
 
argsPalette.nocat = v
 
elseif not argsPalette[n] and n ~= 'stylecorps' then
 
argsPalette[n] = v
 
end
 
end
 
end
 
return frame:expandTemplate{ title = 'Palette ' .. mw.text.trim(parentArgs[i]), args = argsPalette }
 
end
 
 
local function _tropDePalettes()
 
categories.tropDePalette = categorieTropDePalette
 
return _erreur( 'Erreur dans le [[Modèle:Palette]] : trop de palettes (maximum : %s)', maxPalette )
 
end
 
 
 
local boite = parentArgs['titre boîte déroulante'] or parentArgs['titre boite déroulante']
 
if boite then
 
wikiTable[1] = '<div class="NavFrame navbox-container" style="clear:both;" >\n'
 
.. '<div class="NavHead" style="text-align:center; height:1.6em; background-color:'
 
.. ( parentArgs.couleurFondT or '#CCF' )
 
.. '; color:' .. ( parentArgs.couleurTexteT or 'black' ) .. ';">'
 
.. boite
 
.. '</div>\n<div class="NavContent" style="margin-top:2px;">\n'
 
end
 
local i = 1
 
 
while parentArgs[i] and i <= maxPalette  do
 
if parentArgs[i]:match( '%S' ) then
 
local j
 
for j = 1, i - 1 do
 
    if args[i] == args[j] and not args[i]:match('^palette ') then
 
wikiTable:insert ( _paletteEnDouble(i))
 
end
 
end
 
if parentArgs[i]:match( '<table class="navbox' ) or parentArgs[i]:match( '{| ?class="navbox' ) then
 
wikiTable:insert( parentArgs[i] )
 
else
 
local codePalette = args[i]
 
local testCodePalette = codePalette:lower()
 
if testCodePalette:match( '^%[%[:modèle:' ) then                  -- La palette n'existe pas
 
wikiTable:insert( _paletteInconnue( i ) )
 
elseif testCodePalette:match( '^palette avec paramètres' ) then  -- C'est une palette nécessitant des paramètres nommés
 
wikiTable:insert( _paletteAvecParametres( i ) )
 
elseif testCodePalette:match( '^palette verticale avec paramètres' ) then  -- C'est une palette verticale nécessitant des paramètres nommés
 
palettesVerticales = palettesVerticales .. ( _paletteAvecParametres( i ) )
 
elseif testCodePalette:match( '^palette verticale' ) then        -- C'est une palette verticale
 
palettesVerticales = palettesVerticales .. codePalette:sub( 18 )
 
else
 
wikiTable:insert( (codePalette:gsub( '^<div class="navbox-container"', '<div' ) ) )
 
end
 
end
 
end
 
i = i + 1
 
end
 
 
if i == 1 then
 
wikiTable:insert( _pasDePalette() )
 
elseif i > maxPalette and parentArgs[i] and parentArgs[i] ~= '' then
 
wikiTable:insert( _tropDePalettes() )
 
end
 
if #wikiTable == 1 then
 
wikiTable[1] = palettesVerticales
 
else
 
if boite then
 
wikiTable:insert( '</div>' )
 
end
 
wikiTable:insert( '</div>' .. palettesVerticales )
 
end
 
if mw.title.getCurrentTitle().namespace == 0 then
 
for i, v in pairs( categories ) do
 
wikiTable:insert( v )
 
end
 
end
 
 
return wikiTable:concat()
 
end
 
  
 +
==Pour en savoir plus==
  
return Palette
+
*Biographie d'[[wikipedia.fr:Arthur_Young|Arthur Young]] sur Wikipedia.
 +
*McDonald D., 1908. ''Agricultural writers from Sir Walter of Henley to Arthur Young, 1200 - 1800'', 190-195. [http://www.archive.org/stream/agriculturalwrit00mcdorich#page/190/mode/2up Texte intégral] sur le site Internet Archive.
 +
 
 +
==Ouvrages consultables en ligne==
 +
 
 +
*Young A., 1794. ''Voyages en France pendant les années 1787, 88, 89, 90''. 2è éd., Paris, Buisson, t.II, 492 p. Texte intégral sur le site du [http://abu.cnam.fr/BIB/auteurs/younga.html CNAM], sur [http://fr.wikisource.org/wiki/Voyages_en_France_en_1787,_1788_et_1789 Wikisource], ou sur le site de la [http://abu.cnam.fr/cgi-bin/go?voyfran1 Bibliothèque Universelle] (ABU).
 +
*Young A., [    ], 1809. Questions concernant les avantages et les désavantages du parc, pour les moutons. Traduction par C. Pictet, in « ''Cours d’agriculture angloise, avec les développemens utiles aux agriculteurs du continent'', vol. 7, Genève : 387-402. [http://books.google.fr/books?id=fkI7AAAAcAAJ&pg=PA499&lpg=PA499&dq=%2BYoung+%2BPictet+%2Bparc+%2Bmoutons&source=bl&ots=-zl_qAdCq2&sig=JiPyMK-RSdU1Rw4FD6N7o4f9IhM&hl=fr&ei=5AVkTJm-FMKH4gbrgvngCQ&sa=X&oi=book_result&ct=result&resnum=1&ved=0CBUQ6AEwAA#v=onepage&q=%2BYoung%20%2BPictet%20%2Bparc%20%2Bmoutons&f=false Texte intégral] sur GoogleBooks.
 +
 
 +
{{DEFAULTSORT:Young,Arthur}}
 +
[[Catégorie:Hommes célèbres]]
 +
__NOTOC__

Version actuelle datée du 11 mars 2013 à 18:11

Arthur Young (1741-1820) est un agriculteur et agronome britannique. Parmi ses ouvrages, le Voyage en France, paru en 1792, fournit des informations précieuses sur la France rurale de l'époque.

Listes des articles dans lesquels Arthur Young est cité

Liste des annexes dans lesquelles Arthur Young est cité

Pour en savoir plus

  • Biographie d'Arthur Young sur Wikipedia.
  • McDonald D., 1908. Agricultural writers from Sir Walter of Henley to Arthur Young, 1200 - 1800, 190-195. Texte intégral sur le site Internet Archive.

Ouvrages consultables en ligne

  • Young A., 1794. Voyages en France pendant les années 1787, 88, 89, 90. 2è éd., Paris, Buisson, t.II, 492 p. Texte intégral sur le site du CNAM, sur Wikisource, ou sur le site de la Bibliothèque Universelle (ABU).
  • Young A., [ ], 1809. Questions concernant les avantages et les désavantages du parc, pour les moutons. Traduction par C. Pictet, in « Cours d’agriculture angloise, avec les développemens utiles aux agriculteurs du continent, vol. 7, Genève : 387-402. Texte intégral sur GoogleBooks.