Mejorando el blog del ESLUG (Episodio 2)
Martín Ortega  Marzo 16 2021
Martín Ortega  Marzo 16 2021
Aquí dejo el código que tiene el botón "Con imagen".
Image:Mejorando el blog del ESLUG (Episodio 2)
Esto lo que hacer es dar contenido al campo description, después la hoja de estilos hace el resto, cuando cuente como funcionan los Web Templates explicaré que hago con este campo, pero claro, no lo puedo usar en todos las entradas, el ESLUG tiene casi mil, tendría que ir una a una modificándolas, solo sería dar al botón "Clear" y después decidir si dar al de "Con Imagen" o al de "Sin Imagen", son 10 segundos pero son demasiadas.
Si esto lo usa un forastero de tierra extraña tendría que cambiar un par de cosas en el scripts, el texto Autor y Fecha, el formato de la fecha no, cogerá el suyo.
Lo del contenido lo veo un poco bestia, seguro que hay alguna forma de traerse solo una parte del campo, si algún listo se lee esto y sabe como hacerlo le agradecería que me lo comentara.
De momento el campo lo dejo visible, el motivo es porque hay algunas entradas que solo uso el campo "Addtional HTMLText", todo HTML, en ese caso se trae nada el campo "Content", en el ESLUG no lo usa nadie, solo yo, crearé un Roll y lo ocultaré, o tienes ese Roll o no puedes ver el campo, only para listos.
Igual un listo ve cosas raras en el scripts, demasiados retornos de carro, lo pongo en orden, se ve más claro si quieres hacer algún cambio.

En la entrada anterior ponía el código que tiene la Home, sencillo y en orden, con colorines para ver cuando empieza un contenedor y cuando acaba, si alguien que no sepa mucho de esto entra en el código que tiene la Home Page que tiene este Template sin tocar nada lo normal es que salga corriendo, eso fue lo que hice yo la primera vez, no es que tenga mucho código pero está apelotonado, vale, ya se que es lo mejor a nivel de rendimiento, nada de espacios ni retornos de carro innecesarios, pero para entender como funciona (que es lo que pretendo) se ve mucho mejor como lo hago yo.


Voy a aclarar una cosa del script, si os fijáis empiezo con con un enlace (el de la entrada) y termino cerrando el enlace, pero este campo no se muestra directamente en el Home Page Template, este campo lo añado en el Item Template que usa en Documento de Configuración en el campo "Default Item Template", en este Item le doy formato, por esa razón ahora la entrada en la Home es todo un enlace, bueno, el enlace donde dice si la entrada tiene comentarios es la excepción, le he dado el mismo color para que cante mucho pero si os situáis encima veréis que el "a:hover" tiene el mismo color.
Podría cargarme ese enlace, realmente ambos te llevan al mismo sitio pero con una diferencia, uno te sitúa al principio y el otro en la zona de comentarios, no se igual me lo cargo, yo creo queda más fino sin ese enlace.
Vuelvo a poner el enlace al blog del que estoy hablando.

Blog en construcción  


Sub Click(Source As Button)

   Dim w As New notesuiworkspace
   Dim s As New notessession
   Dim db As notesdatabase
   Dim uidoc As notesuidocument
   Dim note As notesdocument
   Dim cuenta As Integer
   Dim item As NotesItem
   Dim wnpweb As String
   Set s = New NotesSession
   Set db =s.currentdatabase
   Set uidoc=w.currentdocument
   Set note=uidoc.document
   Set w = New NotesUIWorkspace
   Set item = note.GetFirstItem( "description" )
   wnpweb = uidoc.FieldGetText( "pagename" )
   titulo = uidoc.FieldGetText( "Subject" )
   autor = uidoc.FieldGetText( "Author" )
   fecha = uidoc.FieldGetText( "creation" )

   imagen = uidoc.FieldGetText( "imagen" )
   contenido = uidoc.FieldGetText( "content" )
   Call item.AppendToTextList("<a href="+Chr(34)+wnpweb+Chr(34)+">"+Chr(13))
   Call item.AppendToTextList("<div id="+Chr(34)+"contenedorItem"+Chr(34)+">"+Chr(13))
   Call item.AppendToTextList("<div class="+Chr(34)+"imagen"+Chr(34)+">"+Chr(13))
   Call item.AppendToTextList("<img src="+Chr(34)+"../dx/"+imagen+"/$file/"+imagen+Chr(34)+">"+"</div>"+Chr(13))
   Call item.AppendToTextList("<div class="+Chr(34)+"texto"+Chr(34)+">"+Chr(13))
   Call item.AppendToTextList("<div id="+Chr(34)+"subjetmini"+Chr(34)+">"+titulo+"</div>"+Chr(13))
   Call item.AppendToTextList("<div id="+Chr(34)+"autormini"+Chr(34)+">"+"Autor "+autor+"</div>"+Chr(13))
   Call item.AppendToTextList("<div id="+Chr(34)+"fechamini"+Chr(34)+">"+"Fecha "+fecha+"</div>"+Chr(13))
   Call item.AppendToTextList("<div id="+Chr(34)+"content"+Chr(34)+">"+contenido+"</div>"+Chr(13))
   Call item.AppendToTextList("</div>"+"</div>"+Chr(13))
   Call item.AppendToTextList("</a>"+Chr(13))
   Call uidoc.RefreshHideFormulas

End Sub        

Blog for DummiesBlog para Torpes

Mejorando el blog del ESLUG (Episodio 2)