CSS Editor

[gp]

Hi,

gibt es irgendwo einen CSS Editor für die N8 CSS Datei?

Ich möchte gerne dem User die Möglichkeit geben die Farben in der Inbox/Sent/ usw anzupassen - z.B. so wie es in N7 aussieht, ausserdem ist das Grau auf einigen Notebook-Bildschirmen nicht so gut zu erkennen.

Da wir einige recht unbedarfte User haben, möchte ich sie nicht direkt in der Datei rummachen lassen.

Grüße

Guido

[ata]

... ich weiß nicht wie weit eure User CSS-Handling durchschauen - ich würde eher 3-4 CSS-Dateien zur Verfügung stellen und eine Auswahl treffen lassen, die dann dynamisch beim Öffnen angezogen wird, bzw. die Style-Informationen im Header dynamisch anhand eines Profils ziehen. Ein "Normal"-User ist mit CSS wohl eher überfordert...
 
Toni

[gp]

Ich habe mir jetzt erst einmal mit einem Quick-and-Dirty Ansatz geholfen:
Habe ein Profil Dokument erstellt, in dem der User die Farben und Styles für ungelesene / gelesene Mails und den Auswahl-Balken setzen kann.

Durch Klick auf einen Button, werden diese Werte in dias CSS File eingetragen.

Alledings ist der Code sehr einfach gehalten und kennt noch keine Kommentare im CSS, wenn man also selbst im CSS rumgemacht hat und u.U. die originalzeilen auskommentiert hat, gibt es u.U. "interessante" Ergebnisse.

Ich poste hier mal den Code - sozusagen als Anregung.
Der Code sucht die entsprechenden Tags und entfernt alles zwichen { } und fügt die gewünschten Styles dort ein. Nicht besonders schön, aber es funktioniert.

Vielleicht findet sich ja jemand, der es besser macht :-)
GetRegValue() ist eine Funktion, mit der ich mir aus der Registry Daten auslesen kann - benutze ich um das Notes Program Verzeichnis zu finden.

Ich habe festgestellt, dass man "Weight" und "Style" kaum beeinflussen kann.
Style ist immer "normal" und "Weight" = normal|bold funktioniert nur bei ungelesenen Mails. Bei gelesenen Mails wird das Setting im CSS ignoriert bzw. overruled von anderen Parametern. Hatte noch keine Zeit, das Form dahingehend zu ändern.


Hier der Button Code:

Code

Sub Click(Source As Button)
	Dim ui As New NotesUIWorkspace
	Dim session As NotesSession
	Dim thisdb As NotesDatabase
	Dim stream As NotesStream
	Dim filename As String
	Dim css As String
	Dim css1 As String
	Dim uidoc As NotesUIDocument
	Dim nl As String
	Dim f As String
	Dim p1 As Integer
	Dim p2 As Integer
	Dim p3 As Integer
	Dim NotesProgDir As String
	Dim s As String
	Dim L List As String
	
	On Error Goto err1
	
	Set session = New NotesSession
	Set thisdb = session.CurrentDatabase
	Set stream = session.CreateStream
	Set uidoc = ui.currentdocument
	nl = Chr$(13) & Chr$(10)
	
	' ==============================	
	' Get program Dirctory
	' ==============================
	NotesProgDir = GetRegValue (HKEY_LOCACL_MACHINE , "Software\Lotus\Notes", "Path")
	If NotesProgDir="" Then
		Messagebox "Cannot find registry entries"
		Exit Sub
	End If
	Print "Notes Program Dir = " & NotesProgDir
	
	' ==============================	
	' Get notes.css
	' ==============================	
	s = Dir$(NotesProgDir & "framework\shared\eclipse\plugins\com.ibm.notes.branding_3.*", 16)
	If s="" Then
		Messagebox "Cannot find branding plugin"
		Exit Sub
	End If
	Filename = NotesProgDir & "framework\shared\eclipse\plugins\" & s & "\themes\notes.css"
	Print "CSS file = " & filename
	
	If Not stream.Open(filename, "ASCII") Then
		Messagebox filename,, "Open failed"
		Exit Sub
	End If
	If stream.Bytes = 0 Then
		Messagebox filename,, "File has no content"
		Exit Sub
	End If
	
	css = stream.ReadText()
	Call stream.Close
	Print "CSS read: " & Len( css) & " characters"
	
	
	' ============================================
	' create a backup if no backup exists
	' ============================================
	On Error Resume Next
	s = ""
	s = Dir$( Filename & ".bak" )
	On Error Goto err1
	If s="" Then 
		f = Freefile
		Open Filename & ".bak" For Output As f
		Print #f,css
		Close #f
		Print "Backup of notes.css created"
	End If
	
	' ===========================================
	' here we go to modify the css
	' ===========================================
	
	' *** unread messages ***
	Erase L
	L(0) = "mailtable>row>unread"
	L(1)= "mailtable.Inbox>row>unread"
	L(2)= "mailtable.Drafts>row>unread"
	L(3)= "mailtable.Sent>row>unread"
	L(4)= "mailtable.FollowUp>row>unread"
	L(5)= "mailtable.AllDocuments>row>unread"
	L(6)= "mailtable.Trash>row>unread"
	L(7)= "mailtable.Junk>row>unread"
	Forall K In L
		p1=0
		p2=0
		p3=0
		css1 = ""
		p1 = Instr ( 1, css, K, 5 )
		If p1>0 Then p2 = Instr ( p1, css, "{" )
		If p2>0 Then p3 = Instr ( p2, css, "}" )
		If p3>0 Then
			css1 = css1 & nl
			css1 = css1 & Chr$(9) & "color: #" & Ucase(Right$("000000" & uidoc.fieldGetText( "cUnread"),6)) & ";" & nl
			css1 = css1 & Chr$(9) & "font-style: l" & uidoc.fieldGetText( "stUnread") & ";" & nl		
			If Listtag(K)="0" Then 
				css1 = css1 & Chr$(9) & "font-family: Tahoma, Times, Helvetica;" & nl
				css1 = css1 & Chr$(9) & "font-size: 8pt" & uidoc.fieldGetText( "sUnread") & ";" & nl
				css1 = css1 & Chr$(9) & "font-weight: " & uidoc.fieldGetText( "wUnread") & ";" & nl
			End If
			Print K & " changed"
			css = Left$(css, p2) & css1 & Mid$( css, p3)
		End If
	End Forall
	
	' *** read messages ***
	Erase L
	L(0) = "mailtable>row>read"
	L(1)= "mailtable.Inbox>row>read"
	L(2)= "mailtable.Drafts>row>read"
	L(3)= "mailtable.Sent>row>read"
	L(4)= "mailtable.FollowUp>row>read"
	L(5)= "mailtable.AllDocuments>row>read"
	L(6)= "mailtable.Trash>row>read"
	L(7)= "mailtable.Junk>row>read"
	Forall K In L
		p1=0
		p2=0
		p3=0
		css1 = ""
		p1 = Instr ( 1, css, K, 5 )
		If p1>0 Then p2 = Instr ( p1, css, "{" )
		If p2>0 Then p3 = Instr ( p2, css, "}" )
		If p3>0 Then
			css1 = css1 & nl
			css1 = css1 & Chr$(9) & "color: #" & Ucase(Right$("000000" & uidoc.fieldGetText(  "cRead"),6)) & ";" & nl
			css1 = css1 & Chr$(9) & "font-style: " & uidoc.fieldGetText( "stRead") & ";" & nl
			If Listtag(K)="0" Then 
				css1 = css1 & Chr$(9) & "font-family: Tahoma, Times, Helvetica;" & nl
				css1 = css1 & Chr$(9) & "font-size: " & uidoc.fieldGetText( "sRead") & ";" & nl
				css1 = css1 & Chr$(9) & "font-weight: " & uidoc.fieldGetText( "wRead") & ";" & nl
			End If
			Print K & " changed"
			css = Left$(css, p2) & css1 & Mid$( css, p3)
		End If
	End Forall
	
	' *** primary selection ***
	Erase L
	L(0) = "mailtable > row > primarySelection"
	L(1)= "mailtable>row>primarySelection"
	Forall K In L
		p1=0
		p2=0
		p3=0
		css1 = ""
		p1 = Instr ( 1, css, K, 5 )
		If p1>0 Then p2 = Instr ( p1, css, "{" )
		If p2>0 Then p3 = Instr ( p2, css, "}" )
		If p3>0 Then
			css1 = css1 & nl
			css1 = css1 & Chr$(9) & "background-color:" & nl
			css1 = css1 & Chr$(9) & Chr$(9) & "#" & Ucase(Right$("000000" & uidoc.fieldGetText(  "psCol1"),6)) & nl
			css1 = css1 & Chr$(9) & Chr$(9) & "#" & Ucase(Right$("000000" & uidoc.fieldGetText(  "psCol2"),6)) & nl
			css1  = css1 & Chr$(9) & Chr$(9) & "100%;" & nl
			css1 = css1 & Chr$(9) & "color: #" & Ucase(Right$("000000" & uidoc.fieldGetText(  "psCol3"),6)) & nl
			Print K & " changed"
			css = Left$(css, p2) & css1 & Mid$( css, p3)
		End If
	End Forall	
 
	Print "saving css file " & filename
	f = Freefile
	Open filename For Output As f
	Print #f,css
	Close #f
	
	Messagebox "Colors have been changed." & nl & "You need to restart Notes"
	
	Exit Sub
	
err1:
	Print "Click(): " & Error$ & " in line " & Erl
	Messagebox "Click(): " & Error$ & " in line " & Erl
	Exit Sub
End Sub

[ata]

... elegant...

Toni 

[michael-r]

Respekt. Aufgrund eines Benutzers vermisse ich eigentlich diese Funktionalität im 8er Eclipse Client.

MFG Michael

[arlina]

Hallo Zusammen,

ich hab gerade die Version 8.0.2 installiert und schwupps wurden meine Mails wieder schwarz angezeigt. Die alte CSS ist verschwunden, im Ordner C:\Programme\lotus\notes\framework\shared\eclipse\plugins  gibt es keinen branding Ordner mehr.

Wenn jemand von Euch die nächsten Tage die Version installiert , mit der Bitte um Feedback wie ich wieder meine Mails rot kriege :-)

LG
Sabrina

[muenzpraeger]

Hi!

Den branding-Ordner gibt es wohl noch. IBM war nur so "schlau" und hat mit 8.0.2 (übrigens auch mit 8.5) die CSS in eine .jar (com.ibm.notes.branding_8.0.2.20080809-0430.jar) reingepackt.

Da ist nix mehr mit "mal eben editieren"...schon gar nicht über eine GUI für User.

VG,
René

[arlina]

schnüff und wie kriegt frau ihre mails wieder rot ?
Ich überles die schwarz-fett Mails immer :-(

Irgendwelche Ideen ?

Folgender Versuch hat nicht funktioniert

1. wegsichern von com.ibm.notes.branding_8.0.2.20080809-0430.jar
2. Entpacken der Jar
3. ändern der settings für ungelesene mails
4. packen des ordners als zip und umbenennen in JAR
5. Zurückpacken in den Ursprungsordner

--> Notes ließ sich nicht mehr starten ;-)

[michael-r]

Hat René doch geschrieben, dass es nicht so einfach geht.

Eventuelle ein anderes Theme:
http://noteswidgets.com/widgetcatalog.nsf/ba41eb819360187085257384004c8d0f/82ad73f97dba655e862574a6003db984?OpenDocument

MFG Michael

[Micha B]

IBM sagt dazu:

Starting in Notes 8.0.2, the notes.css file is contained within a .jar file. Modifying the notes.css file requires extracting the host .jar file, updating the notes.css file as described above, and then recreating the .jar file using the Java™ Development Kit (JDK).

The .jar file and location are in:
<program dir>\framework\shared\eclipse\plugins\com.ibm.notes.branding_8.0.2.20080809-0430.jar

NOTE: The .jar file name will change based on the version number.

http://www.ibm.com/support/docview.wss?rs=899&uid=swg21273378

Ich finde das ziemlich grässlich und würde mich über einen Eintrag in den Voreinstellungen freuen. Ich frage mich weiterhin was sich ein Entwickler bei sowas denkt...

[flaite]

Als Lösung für Customization der css wäre es vermutlich besser, wenn es einen Punkt geben würde, in den man ein eigenes css eindocken kann und das die IBM Standard-Einstellungen überschreibt, anstatt das Leute programmatisch oder nicht im existierenden css editieren.

[Ralf_M_Petter]

@Michab Der Entwickler denkt sich ich habe die Anforderung Notes doppelt so schnell starten zu lassen und führe die notwendigen Schritte dazu durch. Ich denke mal die Änderbarkeit des Css ist nicht offiziell supported und deshalb haben sie keine schöne Lösung gemacht.

Grüße

Ralf

[Micha B]

Hallo Ralf!
Ich möchte keine Diskussion lostreten, aber mal 2 Anmerkungen:
1. 8.0.2 fühlt sich für mich zäher an als 8.0.1. Und mit dem auf Eclipse basierten Designer bin ich überhaupt noch nicht warm geworden.
2. Ich habe noch das gejammere von Usern im Ohr: Outlook (2003) ist soooo schön, Notes (7.0.x) dagegen soooo hässlich... Mittlerweile zeigt der Notes Client ungelesene Mails so an wie Outlook und die selben User heulen herum: Ich will sie wieder rot haben... *kopfschüttel* Ehrlich gesagt hätte ich ein klares Statement vom Hersteller erwartet wie "Ist so, basta, ihr wolltet es doch so".