From 23475691bbee440f7a84a02f4d038718025b7019 Mon Sep 17 00:00:00 2001
From: mösi <mösi@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Fri, 20 Feb 2009 11:09:29 +0000
Subject: Die Compose-Sequenzen sind jetzt in eine eigene Funktion ausgelagert.
 Das eröffnet neue Möglichkeiten in Bezug auf die Wahlfreiheit, die fertigen
 Sequenzen zu verwenden, oder sie beim Start dynamisch erzeugen zu lassen (das
 ist aber noch nicht implementiert).
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://svn.neo-layout.org@1675 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/neo-vars/src/source/makecompose.ahk | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'windows/neo-vars/src/source/makecompose.ahk')

diff --git a/windows/neo-vars/src/source/makecompose.ahk b/windows/neo-vars/src/source/makecompose.ahk
index 544e583..eb4c95b 100644
--- a/windows/neo-vars/src/source/makecompose.ahk
+++ b/windows/neo-vars/src/source/makecompose.ahk
@@ -1907,7 +1907,7 @@ EncodeUnicodeFile(FFrom,FTo) {
         if (ReplaceLeft != "") {
           if (CM%modkeys% != 1) {
             CM%modkeys% := 1
-            Composita := Composita . "CM" modkeys . ":=1`r`n"
+            Composita := Composita . "  CM" modkeys . ":=1`r`n"
           }
         }
         else
@@ -1921,11 +1921,11 @@ EncodeUnicodeFile(FFrom,FTo) {
     }
     if (modkeys != "") {
       ressymb := EncodeUni(ReplaceRight)
-      Composita .= "CD" . modkeys . ":="""  . ressymb . """`r`n"
+      Composita .= "  CD" . modkeys . ":="""  . ressymb . """`r`n"
       if (StrLen(ressymb)==5)
-        Composita .= "CRC" . ressymb . ".="" " . modkeys . """`r`n" 
+        Composita .= "  CRC" . ressymb . ".="" " . modkeys . """`r`n" 
     } else {
-      Composita .= "; illegal " . Xkbsym . " in " . A_LoopField . "`r`n"
+      Composita .= "  `; illegal " . Xkbsym . " in " . A_LoopField . "`r`n"
       Miss := Miss + 1
     }
   }
@@ -1945,7 +1945,7 @@ CompRevision = %1%
 OutputFile = %2%
 
 FileDelete,%OutputFile%
-FileAppend,CompRevision := "%CompRevision%"`r`n, %OutputFile%
+FileAppend,CompRevision := "%CompRevision%"`r`n`r`nLoadDefaultCompose() {`r`n  global`r`n`r`n, %OutputFile%    ; }
 
 loop %Numpars% {
   if (A_Index < 3)
@@ -1953,6 +1953,9 @@ loop %Numpars% {
   EncodeUnicodeFile(%A_Index%, OutputFile)
 }
 
+; {
+FileAppend,},%OutputFile%
+
 ; MsgBox % EncodeUni(DecodeUni("U20ACU0041U0070"))
 
 ; MsgBox % ConvertXkbsym("KP_5") . ConvertXkbsym("a")
\ No newline at end of file
-- 
cgit v1.2.3