Aliases: \ exchanged against /

aplteam · Aug 16, 2024 · 704f613 · 704f613
1 parent 6472070
commit 704f613
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 4 deletions.
diff --git a/APLSource/Cider/History.apla b/APLSource/Cider/History.apla
@@ -6,7 +6,9 @@
  '    * Question regarding package updates clarified'
  '    * Editing the list of aliases refused to accept the perfectly legal character "_"'
  '    * Deleting all aliase by removing all contents from the edit window did not work'
- '    * `CheckForDropboxConflicts` now ignores an empty path rather than crashing on it '
+ '    * When aliases were edited, all "\" are replaced by "/"'
+ '    * Editing the list of aliases asks for cancellation now in case of a problem '
+ '    * `CheckForDropboxConflicts` now ignores an empty path rather than crashing on it'
  '    * Packages updated    '
  '* 0.42.1 ⋄ 2024-07-12'
  '  * Cider now comes with Release Notes.'

diff --git a/APLSource/Cider/UC/EditAliasFile.aplf b/APLSource/Cider/UC/EditAliasFile.aplf
@@ -1,4 +1,4 @@
- {r}←EditAliasFile dummy;filename;data_;Local;aliases;b;report;buff;b2;b3;flag;b4;b5;aliases_;b6
+ {r}←EditAliasFile dummy;filename;data_;Local;aliases;b;report;buff;b2;b3;flag;b4;b5;aliases_;b6;firstFlag
  r←''
  filename←P.GetCiderAliasFilename
  :If ~⎕NEXISTS filename
@@ -8,7 +8,14 @@
  aliases_←P.GetCiderAliasFileContent ⍬
  :If 0<≢aliases←⍕aliases_
      aliases_←⊃¨{⍺,'=',⍵}/¨↓aliases_
+     firstFlag←1
      :Repeat
+         :If ~firstFlag
+         :AndIf ~1 ##.CommTools.YesOrNo'AliasProbplem@There is a problem; would you like to fix it? ("N" looses changes!)'
+             r←'Cancelled by user'
+             :Return
+         :EndIf
+         firstFlag←0
          ⎕ED'aliases'
          :If 0=≢' '~⍨∊aliases
              :If ##.CommTools.YesOrNo'DeleteAllAliase@Sure you want to delete all aliases?'
@@ -23,6 +30,7 @@
          aliases←{⍵↓⍨+/∧\' '=⍵}¨aliases
          aliases←↑{⍵{((⍵-1)↑⍺)(⍵↓⍺)}⍵⍳' '}¨aliases
          aliases[;2]←aliases[;2]~¨'"'
+         aliases[;2]←{'/'@(⍸⍵='\')⊢⍵}¨aliases[;2]
          aliases[;2]←{⍵↓⍨-+/∧\' '=⌽⍵}∘{⍵↓⍨+/∧\' '=⍵}¨aliases[;2]
          aliases←⊃¨{⍺,'=',⍵}/¨↓aliases
          flag←0

diff --git a/APLSource/Cider/Version.aplf b/APLSource/Cider/Version.aplf
@@ -1,3 +1,3 @@
  r←Version
 ⍝ See also `History`
- r←'0.42.2-beta-7+671'`
+ r←'0.42.2-beta-10+671'
diff --git a/apl-package.json b/apl-package.json
@@ -21,5 +21,5 @@
   tags: "project-management",
   tatin_version: "0.103.0",
   userCommandScript: "APLSource/Cider_UC.dyalog",
-  version: "0.42.2+782",
+  version: "0.42.2+785",
 }