From c52fc75a6e379bf06bd2c82d485ed8e90b609c62 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 24 Jan 2016 06:19:43 +0100
Subject: [PATCH] libman, fetch DUB package, fine tweaks

---
 src/ce_libmaneditor.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index 02136051..c8665742 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -180,10 +180,10 @@ begin
   pth := GetEnvironmentVariable('HOME') + '/.dub/packages/' + nme + '-master';
   {$ENDIF}
   itf := getMessageDisplay;
-  if pth.dirExists then
+  if pth.dirExists and not DeleteDirectory(pth, false) then
   begin
     upd := true;
-    itf.message('information, the dub package is already fetched and will be upgraded', nil, amcApp, amkInf);
+    itf.message('information, the dub package is already fetched and will be upgraded', nil, amcMisc, amkInf);
   end;
 
   // fetch / updgrade
@@ -219,7 +219,7 @@ begin
   end;
   if err <> 0 then
   begin
-    itf.message('error, failed to fetch or upgrade the repository', nil, amcApp, amkErr);
+    itf.message('error, failed to fetch or upgrade the repository', nil, amcMisc, amkErr);
     exit;
   end;
 
@@ -247,7 +247,7 @@ begin
   end;
   if err <> 0 then
   begin
-    itf.message('error, failed to compile the package to register', nil, amcApp, amkErr);
+    itf.message('error, failed to compile the package to register', nil, amcMisc, amkErr);
     exit;
   end;
 
@@ -265,7 +265,7 @@ begin
       try
         for idx := 0 to prj.sourcesCount-1 do
           str.Add(prj.sourceAbsolute(idx));
-        if not upd then with List.Items.Add do
+        with List.Items.Add do
         begin
           Caption := nme;
           SubItems.Add(prj.outputFilename);
@@ -284,7 +284,7 @@ begin
       end;
     end else
       itf.message('warning, the package json description can not be found or the target is not a static library',
-        nil, amcApp, amkWarn);
+        nil, amcMisc, amkWarn);
   finally
     prj.Free;
     EntitiesConnector.endUpdate;