1  -- SPDX-License-Identifier: AGPL-3.0-or-later
 2  -- Config package for bitfuckit - handles credential storage
 3  
 4  with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
 5  
 6  package Config is
 7  
 8     type Credentials is record
 9        Username : Unbounded_String;
10        App_Password : Unbounded_String;
11        Workspace : Unbounded_String;
12     end record;
13  
14     No_Credentials : constant Credentials := (
15        Username => Null_Unbounded_String,
16        App_Password => Null_Unbounded_String,
17        Workspace => Null_Unbounded_String
18     );
19  
20     function Get_Config_Dir return String;
21     function Get_Config_File return String;
22     function Load_Credentials return Credentials;
23     procedure Save_Credentials (Creds : Credentials);
24     function Has_Credentials return Boolean;
25  
26  end Config;