From be9185695804b83521d140917078f3e4d42fb6fd Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 26 Jun 2016 00:49:26 +0200
Subject: [PATCH] libman, persists the package list and faster get

---
 src/ce_libmaneditor.pas | 36 ++++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index 10fe685b..86660afa 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -15,11 +15,14 @@ type
 
   TDubPackageQueryForm = class(TForm)
   private
+    class var fList: TStringList;
     cbb: TComboBox;
     function getText: string;
     procedure getList(sender: TObject);
   public
     class function showAndWait(out value: string): TModalResult; static;
+    class procedure classCtor;
+    class procedure classDtor;
     constructor Create(TheOwner: TComponent); override;
     property text: string read getText;
   end;
@@ -177,6 +180,16 @@ begin
   itm.Selected := True;
 end;
 
+class procedure TDubPackageQueryForm.classCtor;
+begin
+  fList := TStringList.Create;
+end;
+
+class procedure TDubPackageQueryForm.classDtor;
+begin
+  fList.Free;
+end;
+
 constructor TDubPackageQueryForm.Create(TheOwner: TComponent);
 var
   bok: TBitBtn;
@@ -196,6 +209,7 @@ begin
   cbb.AutoComplete := true;
   cbb.Align := alClient;
   cbb.BorderSpacing.Around := 6;
+  cbb.Items.AddStrings(fList);
   cbb.Sorted:= true;
 
   bww := TBitBtn.Create(self);
@@ -240,28 +254,26 @@ var
   pge: string;
   cli: TFPHTTPClient;
 begin
-  cbb.Items.Clear;
+  fList.Clear;
   cli := TFPHTTPClient.Create(nil);
   try
     try
-      pge := cli.Get('https://code.dlang.org/');
+      pge := cli.Get('https://code.dlang.org/packages/index.json');
     except
       pge := '';
     end;
   finally
     cli.Free;
   end;
-  // note, also works with regex \"packages\/[a-zA-Z0-9_-]+\"
   with TStringRange.create(pge) do while not empty do
   begin
-    if popUntil('"')^.startsWith('"packages/') then
-    begin
-      popUntil('/')^.popFront;
-      cbb.Items.Add(takeUntil('"').yield);
-      popUntil('"')^.popFront;
-    end
-    else popFront;
+    popUntil('"');
+    popFront;
+    fList.Add(takeUntil('"').yield);
+    popFront;
   end;
+  cbb.Items.clear;
+  cbb.Items.AddStrings(fList);
 end;
 
 function TDubPackageQueryForm.getText: string;
@@ -785,4 +797,8 @@ begin
   end;
 end;
 
+initialization
+  TDubPackageQueryForm.classCtor;
+finalization
+  TDubPackageQueryForm.classDtor;
 end.