Public Access
Files auf Encoding UTF-8 geändert.
This commit is contained in:
@@ -1,22 +1,22 @@
|
|||||||
tell application id "DNtp"
|
tell application id "DNtp"
|
||||||
set monthNames to {"01_Januar", "02_Februar", "03_MŠrz", "04_April", "05_Mai", "06_Juni", "07_Juli", "08_August", "09_September", "10_Oktober", "11_November", "12_Dezember"}
|
set monthNames to {"01_Januar", "02_Februar", "03_März", "04_April", "05_Mai", "06_Juni", "07_Juli", "08_August", "09_September", "10_Oktober", "11_November", "12_Dezember"}
|
||||||
|
|
||||||
set monthVariants to {"januar", "jan", "january", Â
|
set monthVariants to {"januar", "jan", "january", ¬
|
||||||
"februar", "feb", "february", Â
|
"februar", "feb", "february", ¬
|
||||||
"mŠrz", "maerz", "mrz", "mŠr", "march", "mar", Â
|
"märz", "maerz", "mrz", "mär", "march", "mar", ¬
|
||||||
"april", "apr", Â
|
"april", "apr", ¬
|
||||||
"mai", "may", Â
|
"mai", "may", ¬
|
||||||
"juni", "jun", "june", Â
|
"juni", "jun", "june", ¬
|
||||||
"juli", "jul", "july", Â
|
"juli", "jul", "july", ¬
|
||||||
"august", "aug", Â
|
"august", "aug", ¬
|
||||||
"september", "sep", "sept", Â
|
"september", "sep", "sept", ¬
|
||||||
"oktober", "okt", "october", "oct", Â
|
"oktober", "okt", "october", "oct", ¬
|
||||||
"november", "nov", Â
|
"november", "nov", ¬
|
||||||
"dezember", "dez", "december", "dec"}
|
"dezember", "dez", "december", "dec"}
|
||||||
|
|
||||||
set selRecs to selection as list
|
set selRecs to selection as list
|
||||||
if (count of selRecs) is 0 then
|
if (count of selRecs) is 0 then
|
||||||
display dialog "Bitte einen Ordner in DEVONthink auswŠhlen." buttons {"OK"} default button "OK"
|
display dialog "Bitte einen Ordner in DEVONthink auswählen." buttons {"OK"} default button "OK"
|
||||||
return
|
return
|
||||||
end if
|
end if
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,18 +1,18 @@
|
|||||||
(*
|
(*
|
||||||
uuid_anzeigen.scpt
|
uuid_anzeigen.scpt
|
||||||
|
|
||||||
Zeigt Name, Typ und UUID des aktuell ausgewŠhlten DEVONthink-Objekts an.
|
Zeigt Name, Typ und UUID des aktuell ausgewählten DEVONthink-Objekts an.
|
||||||
Die UUID wird zusŠtzlich in die Zwischenablage kopiert.
|
Die UUID wird zusätzlich in die Zwischenablage kopiert.
|
||||||
|
|
||||||
Zweck:
|
Zweck:
|
||||||
- Diagnose
|
- Diagnose
|
||||||
- manuelles Nachschlagen einer DEVONthink-UUID
|
- manuelles Nachschlagen einer DEVONthink-UUID
|
||||||
- Vorbereitung fŸr das manuelle Aktualisieren von BELEGE_ROOT_UUID
|
- Vorbereitung für das manuelle Aktualisieren von BELEGE_ROOT_UUID
|
||||||
*)
|
*)
|
||||||
|
|
||||||
tell application id "DNtp"
|
tell application id "DNtp"
|
||||||
set sel to selection
|
set sel to selection
|
||||||
if sel is {} then error "Bitte zuerst ein Objekt in DEVONthink auswŠhlen."
|
if sel is {} then error "Bitte zuerst ein Objekt in DEVONthink auswählen."
|
||||||
|
|
||||||
set r to item 1 of sel
|
set r to item 1 of sel
|
||||||
|
|
||||||
@@ -29,8 +29,8 @@ end tell
|
|||||||
|
|
||||||
set the clipboard to recUUID
|
set the clipboard to recUUID
|
||||||
|
|
||||||
display dialog "AusgewŠhltes Objekt:" & return & return & Â
|
display dialog "Ausgewähltes Objekt:" & return & return & ¬
|
||||||
"Name: " & recName & return & Â
|
"Name: " & recName & return & ¬
|
||||||
"Typ: " & recType & return & Â
|
"Typ: " & recType & return & ¬
|
||||||
"UUID: " & recUUID & return & return & Â
|
"UUID: " & recUUID & return & return & ¬
|
||||||
"Die UUID wurde in die Zwischenablage kopiert." buttons {"OK"} default button "OK"
|
"Die UUID wurde in die Zwischenablage kopiert." buttons {"OK"} default button "OK"
|
||||||
+46
-46
@@ -2,18 +2,18 @@
|
|||||||
START.scpt - Version 1.4
|
START.scpt - Version 1.4
|
||||||
Rolle dieses Scripts
|
Rolle dieses Scripts
|
||||||
--------------------
|
--------------------
|
||||||
Dieses Script ist der sichtbare Einstiegspunkt fŸr Anwender:innen.
|
Dieses Script ist der sichtbare Einstiegspunkt für Anwender:innen.
|
||||||
Es selbst verschickt keine Belege und fŸhrt auch keine Einrichtung durch,
|
Es selbst verschickt keine Belege und führt auch keine Einrichtung durch,
|
||||||
sondern Ÿbernimmt nur zwei Aufgaben:
|
sondern übernimmt nur zwei Aufgaben:
|
||||||
1. PrŸfen, ob relativ zur aktuellen DEVONthink-Auswahl eine Konfigurationsdatei
|
1. Prüfen, ob relativ zur aktuellen DEVONthink-Auswahl eine Konfigurationsdatei
|
||||||
fŸr den Belegversand existiert.
|
für den Belegversand existiert.
|
||||||
2. Falls in dieser Konfiguration SHOW_README=true gesetzt ist,
|
2. Falls in dieser Konfiguration SHOW_README=true gesetzt ist,
|
||||||
einen kurzen Willkommen-/Hinweisdialog anzeigen.
|
einen kurzen Willkommen-/Hinweisdialog anzeigen.
|
||||||
3. Danach das Setup-Script _belegversand_setup.scpt starten.
|
3. Danach das Setup-Script _belegversand_setup.scpt starten.
|
||||||
Das Setup-Script entscheidet anschlie§end selbst:
|
Das Setup-Script entscheidet anschließend selbst:
|
||||||
- ob bereits eine gŸltige Einrichtung vorliegt und direkt das Hauptscript
|
- ob bereits eine gültige Einrichtung vorliegt und direkt das Hauptscript
|
||||||
gestartet werden kann,
|
gestartet werden kann,
|
||||||
- oder ob zunŠchst die Konfiguration eingerichtet werden muss.
|
- oder ob zunächst die Konfiguration eingerichtet werden muss.
|
||||||
Wichtig:
|
Wichtig:
|
||||||
--------
|
--------
|
||||||
START.scpt ist bewusst klein gehalten.
|
START.scpt ist bewusst klein gehalten.
|
||||||
@@ -31,22 +31,22 @@ property configRecordName : "belegversand.conf"
|
|||||||
(*
|
(*
|
||||||
runSiblingScript(scriptFileName)
|
runSiblingScript(scriptFileName)
|
||||||
--------------------------------
|
--------------------------------
|
||||||
LŠdt und startet ein weiteres AppleScript aus dem Unterordner "Helpers/scripts".
|
Lädt und startet ein weiteres AppleScript aus dem Unterordner "Helpers/scripts".
|
||||||
Parameter:
|
Parameter:
|
||||||
- scriptFileName : Dateiname des aufzurufenden Scripts, z. B.
|
- scriptFileName : Dateiname des aufzurufenden Scripts, z. B.
|
||||||
"_belegversand_setup.scpt"
|
"_belegversand_setup.scpt"
|
||||||
Ablauf:
|
Ablauf:
|
||||||
- absolute Basis-Path setzen (Home + fest Pfad zu Belegversand_1-4)
|
- absolute Basis-Path setzen (Home + fest Pfad zu Belegversand_1-4)
|
||||||
- daran den Unterordner "Helpers/scripts" und den Dateinamen anhŠngen
|
- daran den Unterordner "Helpers/scripts" und den Dateinamen anhängen
|
||||||
- prŸfen, ob die Scriptdatei existiert
|
- prüfen, ob die Scriptdatei existiert
|
||||||
- Script laden
|
- Script laden
|
||||||
- Script ausfŸhren
|
- Script ausführen
|
||||||
Fehlerbehandlung:
|
Fehlerbehandlung:
|
||||||
- wenn die Datei nicht gefunden wird -> Hinweisdialog
|
- wenn die Datei nicht gefunden wird -> Hinweisdialog
|
||||||
- wenn das Laden oder Starten fehlschlŠgt -> Hinweisdialog mit Fehlermeldung
|
- wenn das Laden oder Starten fehlschlägt -> Hinweisdialog mit Fehlermeldung
|
||||||
Wichtig:
|
Wichtig:
|
||||||
--------
|
--------
|
||||||
Der absolute Pfad ist invariant und unabhŠngig vom Speicherort dieses Scripts.
|
Der absolute Pfad ist invariant und unabhängig vom Speicherort dieses Scripts.
|
||||||
*)
|
*)
|
||||||
on runSiblingScript(scriptFileName)
|
on runSiblingScript(scriptFileName)
|
||||||
-- Absolute Basis-Path (Home + fest Installation)
|
-- Absolute Basis-Path (Home + fest Installation)
|
||||||
@@ -76,14 +76,14 @@ Verwendung in START.scpt:
|
|||||||
Hier wird dieser Handler genutzt, um den Inhalt der Datei
|
Hier wird dieser Handler genutzt, um den Inhalt der Datei
|
||||||
"_config/belegversand.conf" als Text einzulesen.
|
"_config/belegversand.conf" als Text einzulesen.
|
||||||
Ablauf:
|
Ablauf:
|
||||||
- zunŠchst plain text versuchen
|
- zunächst plain text versuchen
|
||||||
- wenn das fehlschlŠgt, auf content ausweichen
|
- wenn das fehlschlägt, auf content ausweichen
|
||||||
- wenn beides fehlschlŠgt, leeren String zurŸckgeben
|
- wenn beides fehlschlägt, leeren String zurückgeben
|
||||||
Hinweis:
|
Hinweis:
|
||||||
--------
|
--------
|
||||||
Die Konvertierung erscheint hier als "rich text", weil AppleScript/Script Editor
|
Die Konvertierung erscheint hier als "rich text", weil AppleScript/Script Editor
|
||||||
solche Stellen beim Kompilieren teilweise selbststŠndig umschreiben kann.
|
solche Stellen beim Kompilieren teilweise selbstständig umschreiben kann.
|
||||||
Der funktionale Zweck ist hier aber: Textinhalt lesbar zurŸckgeben.
|
Der funktionale Zweck ist hier aber: Textinhalt lesbar zurückgeben.
|
||||||
*)
|
*)
|
||||||
on recordText(theRecord)
|
on recordText(theRecord)
|
||||||
tell application id "DNtp"
|
tell application id "DNtp"
|
||||||
@@ -109,7 +109,7 @@ Sucht innerhalb einer DEVONthink-Gruppe ein direktes Kind mit bestimmtem Namen.
|
|||||||
Parameter:
|
Parameter:
|
||||||
- parentRecord : die Gruppe, in der gesucht werden soll
|
- parentRecord : die Gruppe, in der gesucht werden soll
|
||||||
- childName : Name des gesuchten direkten Kinds
|
- childName : Name des gesuchten direkten Kinds
|
||||||
RŸckgabe:
|
Rückgabe:
|
||||||
- den gefundenen DEVONthink-Record
|
- den gefundenen DEVONthink-Record
|
||||||
- oder missing value, wenn nichts passt
|
- oder missing value, wenn nichts passt
|
||||||
Verwendung in START.scpt:
|
Verwendung in START.scpt:
|
||||||
@@ -134,15 +134,15 @@ getTopParentGroup(theRecord)
|
|||||||
----------------------------
|
----------------------------
|
||||||
Ermittelt die oberste Gruppe einer DEVONthink-Hierarchie ausgehend von einem Record.
|
Ermittelt die oberste Gruppe einer DEVONthink-Hierarchie ausgehend von einem Record.
|
||||||
Ablauf:
|
Ablauf:
|
||||||
- starte mit dem aktuell Ÿbergebenen Record
|
- starte mit dem aktuell übergebenen Record
|
||||||
- frage wiederholt nach dessen Eltern
|
- frage wiederholt nach dessen Eltern
|
||||||
- solange es noch einen Parent gibt, gehe eine Ebene nach oben
|
- solange es noch einen Parent gibt, gehe eine Ebene nach oben
|
||||||
- sobald kein Parent mehr vorhanden ist, ist die Wurzel erreicht
|
- sobald kein Parent mehr vorhanden ist, ist die Wurzel erreicht
|
||||||
Verwendung in START.scpt:
|
Verwendung in START.scpt:
|
||||||
-------------------------
|
-------------------------
|
||||||
START.scpt kennt die gewŸnschte Datenbank nicht direkt.
|
START.scpt kennt die gewünschte Datenbank nicht direkt.
|
||||||
Darum nimmt es irgendein ausgewŠhltes Objekt in DEVONthink
|
Darum nimmt es irgendein ausgewähltes Objekt in DEVONthink
|
||||||
und geht davon Ÿber die Parent-Kette bis zur obersten Gruppe hoch.
|
und geht davon über die Parent-Kette bis zur obersten Gruppe hoch.
|
||||||
Dort wird dann _config gesucht.
|
Dort wird dann _config gesucht.
|
||||||
Vorteil:
|
Vorteil:
|
||||||
--------
|
--------
|
||||||
@@ -167,18 +167,18 @@ end getTopParentGroup
|
|||||||
(*
|
(*
|
||||||
configValue(configText, keyName)
|
configValue(configText, keyName)
|
||||||
--------------------------------
|
--------------------------------
|
||||||
Liest aus einem einfachen key=value-Konfigurationstext den Wert zu einem bestimmten SchlŸssel.
|
Liest aus einem einfachen key=value-Konfigurationstext den Wert zu einem bestimmten Schlüssel.
|
||||||
Parameter:
|
Parameter:
|
||||||
- configText : kompletter Textinhalt der Konfigurationsdatei
|
- configText : kompletter Textinhalt der Konfigurationsdatei
|
||||||
- keyName : gesuchter SchlŸssel, z. B. "SHOW_README"
|
- keyName : gesuchter Schlüssel, z. B. "SHOW_README"
|
||||||
RŸckgabe:
|
Rückgabe:
|
||||||
- Textwert des gefundenen SchlŸssels
|
- Textwert des gefundenen Schlüssels
|
||||||
- oder missing value, wenn kein passender Eintrag existiert
|
- oder missing value, wenn kein passender Eintrag existiert
|
||||||
Funktionsweise:
|
Funktionsweise:
|
||||||
---------------
|
---------------
|
||||||
- zeilenweise durch die Konfiguration gehen
|
- zeilenweise durch die Konfiguration gehen
|
||||||
- prŸfen, ob eine Zeile mit "KEY=" beginnt
|
- prüfen, ob eine Zeile mit "KEY=" beginnt
|
||||||
- den Teil rechts vom "=" zurŸckgeben
|
- den Teil rechts vom "=" zurückgeben
|
||||||
*)
|
*)
|
||||||
on configValue(configText, keyName)
|
on configValue(configText, keyName)
|
||||||
set keyPrefix to keyName & "="
|
set keyPrefix to keyName & "="
|
||||||
@@ -201,11 +201,11 @@ findConfigInCurrentDB()
|
|||||||
Sucht die Konfigurationsdatei belegversand.conf relativ zur aktuellen DEVONthink-Auswahl.
|
Sucht die Konfigurationsdatei belegversand.conf relativ zur aktuellen DEVONthink-Auswahl.
|
||||||
Ablauf:
|
Ablauf:
|
||||||
1. aktuelle Auswahl holen
|
1. aktuelle Auswahl holen
|
||||||
2. falls nichts ausgewŠhlt ist -> missing value
|
2. falls nichts ausgewählt ist -> missing value
|
||||||
3. von der Auswahl zur DB-Wurzel hochgehen
|
3. von der Auswahl zur DB-Wurzel hochgehen
|
||||||
4. dort die Gruppe _config suchen
|
4. dort die Gruppe _config suchen
|
||||||
5. darin die Datei belegversand.conf suchen
|
5. darin die Datei belegversand.conf suchen
|
||||||
RŸckgabe:
|
Rückgabe:
|
||||||
- den gefundenen Config-Record
|
- den gefundenen Config-Record
|
||||||
- oder missing value, wenn keine passende Konfiguration existiert
|
- oder missing value, wenn keine passende Konfiguration existiert
|
||||||
Wichtig:
|
Wichtig:
|
||||||
@@ -231,25 +231,25 @@ end findConfigInCurrentDB
|
|||||||
(*
|
(*
|
||||||
showWelcomeDialogIfNeeded()
|
showWelcomeDialogIfNeeded()
|
||||||
---------------------------
|
---------------------------
|
||||||
Zeigt den Start-/Willkommensdialog an, falls die Konfiguration dies wŸnscht.
|
Zeigt den Start-/Willkommensdialog an, falls die Konfiguration dies wünscht.
|
||||||
Ablauf:
|
Ablauf:
|
||||||
1. Config-Datei relativ zur aktuellen Auswahl suchen
|
1. Config-Datei relativ zur aktuellen Auswahl suchen
|
||||||
2. Config-Datei lesen
|
2. Config-Datei lesen
|
||||||
3. Wert SHOW_README auslesen
|
3. Wert SHOW_README auslesen
|
||||||
4. falls SHOW_README=true -> Hinweisdialog anzeigen
|
4. falls SHOW_README=true -> Hinweisdialog anzeigen
|
||||||
5. falls User "Diesen Dialog nicht mehr anzeigen" wŠhlt:
|
5. falls User "Diesen Dialog nicht mehr anzeigen" wählt:
|
||||||
SHOW_README auf false in der Config zurŸckschreiben
|
SHOW_README auf false in der Config zurückschreiben
|
||||||
Hinweis:
|
Hinweis:
|
||||||
--------
|
--------
|
||||||
START.scpt fŸhrt selbst keine Einrichtung und keinen Versand durch.
|
START.scpt führt selbst keine Einrichtung und keinen Versand durch.
|
||||||
Der Dialog ist nur eine Hilfe fŸr Anwender:innen.
|
Der Dialog ist nur eine Hilfe für Anwender:innen.
|
||||||
Er verweist auf die interne README-Datei in _config.
|
Er verweist auf die interne README-Datei in _config.
|
||||||
Bewusst einfach:
|
Bewusst einfach:
|
||||||
----------------
|
----------------
|
||||||
Es gibt hier nur zwei Buttons:
|
Es gibt hier nur zwei Buttons:
|
||||||
- "Weiter"
|
- "Weiter"
|
||||||
- "Diesen Dialog nicht mehr anzeigen"
|
- "Diesen Dialog nicht mehr anzeigen"
|
||||||
Die README wird nicht direkt aus dem Dialog gešffnet.
|
Die README wird nicht direkt aus dem Dialog geöffnet.
|
||||||
*)
|
*)
|
||||||
on showWelcomeDialogIfNeeded()
|
on showWelcomeDialogIfNeeded()
|
||||||
set configRecord to my findConfigInCurrentDB()
|
set configRecord to my findConfigInCurrentDB()
|
||||||
@@ -262,12 +262,12 @@ on showWelcomeDialogIfNeeded()
|
|||||||
set showReadmeLower to do shell script "printf %s " & quoted form of showReadmeVal & " | tr '[:upper:]' '[:lower:]'"
|
set showReadmeLower to do shell script "printf %s " & quoted form of showReadmeVal & " | tr '[:upper:]' '[:lower:]'"
|
||||||
if showReadmeLower is not "true" then return
|
if showReadmeLower is not "true" then return
|
||||||
|
|
||||||
set msgText to "Willkommen beim Belegversand, Version 1.4." & return & return & Â
|
set msgText to "Willkommen beim Belegversand, Version 1.4." & return & return & ¬
|
||||||
"Mit dieser Funktion kannst du Dokumente aus dieser DEVONthink-Datenbank auswŠhlen, in ein ZIP-Archiv packen und als Mail-Entwurf vorbereiten." & return & return & Â
|
"Mit dieser Funktion kannst du Dokumente aus dieser DEVONthink-Datenbank auswählen, in ein ZIP-Archiv packen und als Mail-Entwurf vorbereiten." & return & return & ¬
|
||||||
"Anschlie§end kšnnen die verarbeiteten Dokumente mit dem Tag 'gesendet' markiert werden. Der Versand wird zusŠtzlich in Protokolldateien dokumentiert." & return & return & Â
|
"Anschließend können die verarbeiteten Dokumente mit dem Tag 'gesendet' markiert werden. Der Versand wird zusätzlich in Protokolldateien dokumentiert." & return & return & ¬
|
||||||
"Hinweise zur Einrichtung und Benutzung findest du in der Datei:" & return & Â
|
"Hinweise zur Einrichtung und Benutzung findest du in der Datei:" & return & ¬
|
||||||
"README-Belegversand" & return & Â
|
"README-Belegversand" & return & ¬
|
||||||
"im Ordner:" & return & Â
|
"im Ordner:" & return & ¬
|
||||||
"_config"
|
"_config"
|
||||||
|
|
||||||
set choice to button returned of (display dialog msgText buttons {"Diesen Dialog nicht mehr anzeigen", "Weiter"} default button "Weiter")
|
set choice to button returned of (display dialog msgText buttons {"Diesen Dialog nicht mehr anzeigen", "Weiter"} default button "Weiter")
|
||||||
@@ -302,8 +302,8 @@ Ablauf:
|
|||||||
Wichtig:
|
Wichtig:
|
||||||
--------
|
--------
|
||||||
START.scpt delegiert die eigentliche Entscheidung an das Setup-Script.
|
START.scpt delegiert die eigentliche Entscheidung an das Setup-Script.
|
||||||
Dort wird geprŸft:
|
Dort wird geprüft:
|
||||||
- existiert schon eine gŸltige Konfiguration?
|
- existiert schon eine gültige Konfiguration?
|
||||||
-> dann Hauptscript starten
|
-> dann Hauptscript starten
|
||||||
- oder muss erst eingerichtet werden?
|
- oder muss erst eingerichtet werden?
|
||||||
*)
|
*)
|
||||||
|
|||||||
Reference in New Issue
Block a user