commit e113436b0cd1c6622b2639fc5afea34a034979ad · anil.recoil.org/slop

+6 -5

stack/bushel/bin/bushel_links.ml

···

       29
       29
        
           let filter_tags = if tag = "" then [] else [tag] in

     

       30
       30
        
       

     

       31
       31
        
           (* Fetch bookmarks from Karakeep *)

     

       32
       32
       -
           let bookmarks = Karakeepe.fetch_all_bookmarks ~sw ~env ~api_key ~filter_tags base_url in

     

       32
       32
       +
           let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       33
       33
       +
           let bookmarks = Karakeepe.fetch_all_bookmarks client ~filter_tags () in

     

       33
       34
        
       

     

       34
       35
        
           print_endline (Fmt.str "Retrieved %d bookmarks from Karakeep" (List.length bookmarks));

     

       35
       36
        
       

     
···

       76
       77
        
       

     

       77
       78
        
                     (* Download the asset *)

     

       78
       79
        
                     print_endline (Fmt.str "Downloading %s asset %s..." asset_type asset_id);

     

       79
       79
       -
                     let data = Karakeepe.fetch_asset ~sw ~env ~api_key base_url asset_id in

     

       80
       80
       +
                     let data = Karakeepe.fetch_asset client asset_id in

     

       80
       81
        
       

     

       81
       82
        
                     (* Guess content type based on first bytes *)

     

       82
       83
        
                     let content_type =

     
···

       302
       303
        
       

     

       303
       304
        
         (* Create the bookmark with tags *)

     

       304
       305
        
         try

     

       306
       306
       +
           let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       305
       307
        
           let bookmark = Karakeepe.create_bookmark

     

       306
       306
       -
             ~sw ~env

     

       307
       307
       -
             ~api_key

     

       308
       308
       +
             client

     

       308
       309
        
             ~url

     

       309
       310
        
             ?title

     

       310
       311
        
             ~tags

     

       311
       311
       -
             base_url

     

       312
       312
       +
             ()

     

       312
       313
        
           in

     

       313
       314
        
       

     

       314
       315
        
           (* Create updated link with karakeep data *)

+12 -8

stack/karakeepe/bin/karakeepe_cli.ml

···

       14
       14
        
         in

     

       15
       15
        
       

     

       16
       16
        
         try

     

       17
       17
       +
           let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       17
       18
        
           let bookmarks = Karakeepe.fetch_all_bookmarks

     

       18
       18
       -
             ~sw ~env ~api_key

     

       19
       19
       +
             client

     

       19
       20
        
             ~max_bookmarks:limit

     

       20
       21
        
             ~include_content:true

     

       21
       22
        
             ?filter_tags:(if tags = [] then None else Some tags)

     

       22
       22
       -
             base_url

     

       23
       23
       +
             ()

     

       23
       24
        
           in

     

       24
       25
        
       

     

       25
       26
        
           (* Filter by archived/favourited if requested *)

     
···

       75
       76
        
         in

     

       76
       77
        
       

     

       77
       78
        
         try

     

       78
       78
       -
           let bookmark = Karakeepe.fetch_bookmark_details ~sw ~env ~api_key base_url bookmark_id in

     

       79
       79
       +
           let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       80
       80
       +
           let bookmark = Karakeepe.fetch_bookmark_details client bookmark_id in

     

       79
       81
        
       

     

       80
       82
        
           Printf.printf "Bookmark: %s\n" bookmark.url;

     

       81
       83
        
           Printf.printf "ID: %s\n" bookmark.id;

     
···

       112
       114
        
             Printf.printf "\nAssets:\n";

     

       113
       115
        
             List.iter (fun (id, asset_type) ->

     

       114
       116
        
               Printf.printf "  %s (%s)\n" id asset_type;

     

       115
       115
       -
               Printf.printf "    URL: %s\n" (Karakeepe.get_asset_url base_url id)

     

       117
       117
       +
               Printf.printf "    URL: %s\n" (Karakeepe.get_asset_url client id)

     

       116
       118
        
             ) bookmark.assets

     

       117
       119
        
           end;

     

       118
       120
        
       

     
···

       139
       141
        
       

     

       140
       142
        
           let tags_opt = if tags = [] then None else Some tags in

     

       141
       143
        
       

     

       144
       144
       +
           let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       142
       145
        
           let bookmark = Karakeepe.create_bookmark

     

       143
       143
       -
             ~sw ~env ~api_key

     

       146
       146
       +
             client

     

       144
       147
        
             ~url

     

       145
       148
        
             ?title

     

       146
       149
        
             ?note

     

       147
       150
        
             ?tags:tags_opt

     

       148
       151
        
             ~archived

     

       149
       152
        
             ~favourited

     

       150
       150
       -
             base_url

     

       153
       153
       +
             ()

     

       151
       154
        
           in

     

       152
       155
        
       

     

       153
       156
        
           Printf.printf "✓ Bookmark created successfully!\n";

     
···

       181
       184
        
           1

     

       182
       185
        
         end else begin

     

       183
       186
        
           try

     

       187
       187
       +
             let client = Karakeepe.create ~sw ~env ~api_key ~base_url in

     

       184
       188
        
             let bookmarks = Karakeepe.fetch_all_bookmarks

     

       185
       185
       -
               ~sw ~env ~api_key

     

       189
       189
       +
               client

     

       186
       190
        
               ~max_bookmarks:limit

     

       187
       191
        
               ~filter_tags:tags

     

       188
       192
        
               ~include_content:true

     

       189
       189
       -
               base_url

     

       193
       193
       +
               ()

     

       190
       194
        
             in

     

       191
       195
        
       

     

       192
       196
        
             Printf.printf "Found %d bookmark%s\n\n" (List.length bookmarks)

+38 -24

stack/karakeepe/karakeepe.ml

···

       5
       5
        
       let src = Logs.Src.create "karakeepe" ~doc:"Karakeepe API client"

     

       6
       6
        
       module Log = (val Logs.src_log src : Logs.LOG)

     

       7
       7
        
       

     

       8
       8
       +
       (** Type representing a Karakeepe client session *)

     

       9
       9
       +
       type 'net t_internal = {

     

       10
       10
       +
         api_key: string;

     

       11
       11
       +
         base_url: string;

     

       12
       12
       +
         http_client: (float Eio.Time.clock_ty Eio.Resource.t, 'net Eio.Net.ty Eio.Resource.t) Requests.t;

     

       13
       13
       +
       }

     

       14
       14
       +
       

     

       15
       15
       +
       type t = [`Generic | `Unix] t_internal

     

       16
       16
       +
       

     

       17
       17
       +
       (** Create a new Karakeepe client *)

     

       18
       18
       +
       let create ~sw ~env ~api_key ~base_url : t =

     

       19
       19
       +
         let http_client = Requests.create ~sw env in

     

       20
       20
       +
         { api_key; base_url; http_client }

     

       21
       21
       +
       

     

       8
       22
        
       (** Type representing a Karakeep bookmark *)

     

       9
       23
        
       type bookmark = {

     

       10
       24
        
         id: string;

     
···

       232
       246
        
         )

     

       233
       247
        
       

     

       234
       248
        
       (** Fetch bookmarks from a Karakeep instance with pagination support *)

     

       235
       235
       -
       let fetch_bookmarks ~sw ~env ~api_key ?(limit=50) ?(offset=0) ?cursor ?(include_content=false) ?filter_tags base_url =

     

       249
       249
       +
       let fetch_bookmarks client ?(limit=50) ?(offset=0) ?cursor ?(include_content=false) ?filter_tags () =

     

       236
       250
        
         let url_base = Fmt.str "%s/api/v1/bookmarks?limit=%d&includeContent=%b"

     

       237
       237
       -
                         base_url limit include_content in

     

       251
       251
       +
                         client.base_url limit include_content in

     

       238
       252
        
       

     

       239
       253
        
         let url =

     

       240
       254
        
           match cursor with

     
···

       254
       268
        
         in

     

       255
       269
        
       

     

       256
       270
        
         let headers = Requests.Headers.empty

     

       257
       257
       -
           |> Requests.Headers.set "Authorization" ("Bearer " ^ api_key) in

     

       271
       271
       +
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       258
       272
        
       

     

       259
       273
        
         Log.debug (fun m -> m "Fetching bookmarks from: %s" url);

     

       260
       274
        
       

     

       261
       275
        
         try

     

       262
       262
       -
           let response = Requests.One.get ~sw ~clock:env#clock ~net:env#net ~headers url in

     

       276
       276
       +
           let response = Requests.get client.http_client ~headers url in

     

       263
       277
        
           let status_code = Requests.Response.status_code response in

     

       264
       278
        
           if status_code = 200 then begin

     

       265
       279
        
             let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     
···

       282
       296
        
           raise e

     

       283
       297
        
       

     

       284
       298
        
       (** Fetch all bookmarks from a Karakeep instance using pagination *)

     

       285
       285
       -
       let fetch_all_bookmarks ~sw ~env ~api_key ?(page_size=50) ?max_pages ?max_bookmarks ?filter_tags ?(include_content=false) base_url =

     

       299
       299
       +
       let fetch_all_bookmarks client ?(page_size=50) ?max_pages ?max_bookmarks ?filter_tags ?(include_content=false) () =

     

       286
       300
        
         let rec fetch_pages page_num cursor acc =

     

       287
       301
        
           (* Check if we've reached the max_bookmarks limit *)

     

       288
       302
        
           let reached_limit = match max_bookmarks with

     
···

       298
       312
        
             Log.debug (fun m -> m "Fetching page %d" page_num);

     

       299
       313
        
             let response =

     

       300
       314
        
               match cursor with

     

       301
       301
       -
               | Some cursor_str -> fetch_bookmarks ~sw ~env ~api_key ~limit:page_size ~cursor:cursor_str ~include_content ?filter_tags base_url

     

       302
       302
       -
               | None -> fetch_bookmarks ~sw ~env ~api_key ~limit:page_size ~offset:(page_num * page_size) ~include_content ?filter_tags base_url

     

       315
       315
       +
               | Some cursor_str -> fetch_bookmarks client ~limit:page_size ~cursor:cursor_str ~include_content ?filter_tags ()

     

       316
       316
       +
               | None -> fetch_bookmarks client ~limit:page_size ~offset:(page_num * page_size) ~include_content ?filter_tags ()

     

       303
       317
        
             in

     

       304
       318
        
       

     

       305
       319
        
             let all_bookmarks = acc @ response.data in

     
···

       359
       373
        
         fetch_pages 0 None []

     

       360
       374
        
       

     

       361
       375
        
       (** Fetch detailed information for a single bookmark by ID *)

     

       362
       362
       -
       let fetch_bookmark_details ~sw ~env ~api_key base_url bookmark_id =

     

       363
       363
       -
         let url = Fmt.str "%s/api/v1/bookmarks/%s" base_url bookmark_id in

     

       376
       376
       +
       let fetch_bookmark_details client bookmark_id =

     

       377
       377
       +
         let url = Fmt.str "%s/api/v1/bookmarks/%s" client.base_url bookmark_id in

     

       364
       378
        
       

     

       365
       379
        
         let headers = Requests.Headers.empty

     

       366
       366
       -
           |> Requests.Headers.set "Authorization" ("Bearer " ^ api_key) in

     

       380
       380
       +
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       367
       381
        
       

     

       368
       368
       -
         let response = Requests.One.get ~sw ~clock:env#clock ~net:env#net ~headers url in

     

       382
       382
       +
         let response = Requests.get client.http_client ~headers url in

     

       369
       383
        
         let status_code = Requests.Response.status_code response in

     

       370
       384
        
         if status_code = 200 then begin

     

       371
       385
        
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     
···

       375
       389
        
           failwith (Fmt.str "HTTP error: %d" status_code)

     

       376
       390
        
       

     

       377
       391
        
       (** Get the asset URL for a given asset ID *)

     

       378
       378
       -
       let get_asset_url base_url asset_id =

     

       379
       379
       -
         Fmt.str "%s/api/assets/%s" base_url asset_id

     

       392
       392
       +
       let get_asset_url client asset_id =

     

       393
       393
       +
         Fmt.str "%s/api/assets/%s" client.base_url asset_id

     

       380
       394
        
       

     

       381
       395
        
       (** Fetch an asset from the Karakeep server as a binary string *)

     

       382
       382
       -
       let fetch_asset ~sw ~env ~api_key base_url asset_id =

     

       383
       383
       -
         let url = get_asset_url base_url asset_id in

     

       396
       396
       +
       let fetch_asset client asset_id =

     

       397
       397
       +
         let url = Fmt.str "%s/api/assets/%s" client.base_url asset_id in

     

       384
       398
        
       

     

       385
       399
        
         let headers = Requests.Headers.empty

     

       386
       386
       -
           |> Requests.Headers.set "Authorization" ("Bearer " ^ api_key) in

     

       400
       400
       +
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       387
       401
        
       

     

       388
       388
       -
         let response = Requests.One.get ~sw ~clock:env#clock ~net:env#net ~headers url in

     

       402
       402
       +
         let response = Requests.get client.http_client ~headers url in

     

       389
       403
        
         let status_code = Requests.Response.status_code response in

     

       390
       404
        
         if status_code = 200 then

     

       391
       405
        
           Requests.Response.body response |> Eio.Flow.read_all

     
···

       393
       407
        
           failwith (Fmt.str "Asset fetch error: %d" status_code)

     

       394
       408
        
       

     

       395
       409
        
       (** Create a new bookmark in Karakeep with optional tags *)

     

       396
       396
       -
       let create_bookmark ~sw ~env ~api_key ~url ?title ?note ?tags ?(favourited=false) ?(archived=false) base_url =

     

       410
       410
       +
       let create_bookmark client ~url ?title ?note ?tags ?(favourited=false) ?(archived=false) () =

     

       397
       411
        
         let body_obj = [

     

       398
       412
        
           ("type", `String "link");

     

       399
       413
        
           ("url", `String url);

     
···

       415
       429
        
         let body_str = J.to_string body_json in

     

       416
       430
        
       

     

       417
       431
        
         let headers = Requests.Headers.empty

     

       418
       418
       -
           |> Requests.Headers.set "Authorization" ("Bearer " ^ api_key)

     

       432
       432
       +
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key)

     

       419
       433
        
           |> Requests.Headers.set "Content-Type" "application/json"

     

       420
       434
        
         in

     

       421
       435
        
       

     

       422
       422
       -
         let url_endpoint = Fmt.str "%s/api/v1/bookmarks" base_url in

     

       436
       436
       +
         let url_endpoint = Fmt.str "%s/api/v1/bookmarks" client.base_url in

     

       423
       437
        
         let body = Requests.Body.of_string Requests.Mime.json body_str in

     

       424
       424
       -
         let response = Requests.One.post ~sw ~clock:env#clock ~net:env#net ~headers ~body url_endpoint in

     

       438
       438
       +
         let response = Requests.post client.http_client ~headers ~body url_endpoint in

     

       425
       439
        
       

     

       426
       440
        
         let status_code = Requests.Response.status_code response in

     

       427
       441
        
         if status_code = 201 || status_code = 200 then begin

     
···

       438
       452
        
               let tags_body = `O [("tags", `A tag_objects)] in

     

       439
       453
        
               let tags_body_str = J.to_string tags_body in

     

       440
       454
        
       

     

       441
       441
       -
               let tags_url = Fmt.str "%s/api/v1/bookmarks/%s/tags" base_url bookmark.id in

     

       455
       455
       +
               let tags_url = Fmt.str "%s/api/v1/bookmarks/%s/tags" client.base_url bookmark.id in

     

       442
       456
        
               let tags_body = Requests.Body.of_string Requests.Mime.json tags_body_str in

     

       443
       443
       -
               let tags_response = Requests.One.post ~sw ~clock:env#clock ~net:env#net ~headers ~body:tags_body tags_url in

     

       457
       457
       +
               let tags_response = Requests.post client.http_client ~headers ~body:tags_body tags_url in

     

       444
       458
        
       

     

       445
       459
        
               let tags_status = Requests.Response.status_code tags_response in

     

       446
       460
        
               if tags_status = 200 then

     

       447
       447
       -
                 fetch_bookmark_details ~sw ~env ~api_key base_url bookmark.id

     

       461
       461
       +
                 fetch_bookmark_details client bookmark.id

     

       448
       462
        
               else

     

       449
       463
        
                 bookmark

     

       450
       464
        
           | _ -> bookmark

+34 -43

stack/karakeepe/karakeepe.mli

···

       1
       1
        
       (** Karakeepe API client interface (Eio version) *)

     

       2
       2
        
       

     

       3
       3
       +
       (** Type representing a Karakeepe client session *)

     

       4
       4
       +
       type t

     

       5
       5
       +
       

     

       6
       6
       +
       (** Create a new Karakeepe client

     

       7
       7
       +
           @param sw Eio switch for resource management

     

       8
       8
       +
           @param env Eio environment (provides clock and network)

     

       9
       9
       +
           @param api_key API key for authentication

     

       10
       10
       +
           @param base_url Base URL of the Karakeep instance

     

       11
       11
       +
           @return A client instance *)

     

       12
       12
       +
       val create :

     

       13
       13
       +
         sw:Eio.Switch.t ->

     

       14
       14
       +
         env:< clock: float Eio.Time.clock_ty Eio.Resource.t;

     

       15
       15
       +
               net: [`Generic | `Unix] Eio.Net.ty Eio.Resource.t;

     

       16
       16
       +
               fs: Eio.Fs.dir_ty Eio.Path.t; .. > ->

     

       17
       17
       +
         api_key:string ->

     

       18
       18
       +
         base_url:string ->

     

       19
       19
       +
         t

     

       20
       20
       +
       

     

       3
       21
        
       (** Type representing a Karakeep bookmark *)

     

       4
       22
        
       type bookmark = {

     

       5
       23
        
         id: string;

     
···

       31
       49
        
       val parse_bookmark_response : Ezjsonm.value -> bookmark_response

     

       32
       50
        
       

     

       33
       51
        
       (** Fetch bookmarks from a Karakeep instance with pagination support

     

       34
       34
       -
           @param sw Eio switch for resource management

     

       35
       35
       -
           @param env Eio environment (provides clock and network)

     

       36
       36
       -
           @param api_key API key for authentication

     

       52
       52
       +
           @param client Karakeepe client instance

     

       37
       53
        
           @param limit Number of bookmarks to fetch per page (default: 50)

     

       38
       54
        
           @param offset Starting index for pagination (0-based) (default: 0)

     

       39
       55
        
           @param cursor Optional pagination cursor for cursor-based pagination (overrides offset when provided)

     

       40
       56
        
           @param include_content Whether to include full content (default: false)

     

       41
       57
        
           @param filter_tags Optional list of tags to filter by

     

       42
       42
       -
           @param base_url Base URL of the Karakeep instance

     

       43
       58
        
           @return The bookmark response *)

     

       44
       59
        
       val fetch_bookmarks :

     

       45
       45
       -
         sw:Eio.Switch.t ->

     

       46
       46
       -
         env:< clock: [> float Eio.Time.clock_ty ] Eio.Resource.t; net: [> [> `Generic] Eio.Net.ty ] Eio.Resource.t; .. > ->

     

       47
       47
       -
         api_key:string ->

     

       60
       60
       +
         t ->

     

       48
       61
        
         ?limit:int ->

     

       49
       62
        
         ?offset:int ->

     

       50
       63
        
         ?cursor:string ->

     

       51
       64
        
         ?include_content:bool ->

     

       52
       65
        
         ?filter_tags:string list ->

     

       53
       53
       -
         string ->

     

       66
       66
       +
         unit ->

     

       54
       67
        
         bookmark_response

     

       55
       68
        
       

     

       56
       69
        
       (** Fetch all bookmarks from a Karakeep instance using pagination

     

       57
       57
       -
           @param sw Eio switch for resource management

     

       58
       58
       -
           @param env Eio environment (provides clock and network)

     

       59
       59
       -
           @param api_key API key for authentication

     

       70
       70
       +
           @param client Karakeepe client instance

     

       60
       71
        
           @param page_size Number of bookmarks to fetch per page (default: 50)

     

       61
       72
        
           @param max_pages Maximum number of pages to fetch (None for all pages)

     

       62
       73
        
           @param max_bookmarks Maximum total number of bookmarks to return (None for all)

     

       63
       74
        
           @param filter_tags Optional list of tags to filter by

     

       64
       75
        
           @param include_content Whether to include full content (default: false)

     

       65
       65
       -
           @param base_url Base URL of the Karakeep instance

     

       66
       76
        
           @return All bookmarks combined *)

     

       67
       77
        
       val fetch_all_bookmarks :

     

       68
       68
       -
         sw:Eio.Switch.t ->

     

       69
       69
       -
         env:< clock: [> float Eio.Time.clock_ty ] Eio.Resource.t; net: [> [> `Generic] Eio.Net.ty ] Eio.Resource.t; .. > ->

     

       70
       70
       -
         api_key:string ->

     

       78
       78
       +
         t ->

     

       71
       79
        
         ?page_size:int ->

     

       72
       80
        
         ?max_pages:int ->

     

       73
       81
        
         ?max_bookmarks:int ->

     

       74
       82
        
         ?filter_tags:string list ->

     

       75
       83
        
         ?include_content:bool ->

     

       76
       76
       -
         string ->

     

       84
       84
       +
         unit ->

     

       77
       85
        
         bookmark list

     

       78
       86
        
       

     

       79
       87
        
       (** Fetch detailed information for a single bookmark by ID

     

       80
       80
       -
           @param sw Eio switch for resource management

     

       81
       81
       -
           @param env Eio environment (provides clock and network)

     

       82
       82
       -
           @param api_key API key for authentication

     

       83
       83
       -
           @param base_url Base URL of the Karakeep instance

     

       88
       88
       +
           @param client Karakeepe client instance

     

       84
       89
        
           @param bookmark_id ID of the bookmark to fetch

     

       85
       90
        
           @return The complete bookmark details *)

     

       86
       91
        
       val fetch_bookmark_details :

     

       87
       87
       -
         sw:Eio.Switch.t ->

     

       88
       88
       -
         env:< clock: [> float Eio.Time.clock_ty ] Eio.Resource.t; net: [> [> `Generic] Eio.Net.ty ] Eio.Resource.t; .. > ->

     

       89
       89
       -
         api_key:string ->

     

       90
       90
       -
         string ->

     

       92
       92
       +
         t ->

     

       91
       93
        
         string ->

     

       92
       94
        
         bookmark

     

       93
       95
        
       

     
···

       96
       98
        
       val to_bushel_link : ?base_url:string -> bookmark -> Bushel.Link.t

     

       97
       99
        
       

     

       98
       100
        
       (** Fetch an asset from the Karakeep server as a binary string

     

       99
       99
       -
           @param sw Eio switch for resource management

     

       100
       100
       -
           @param env Eio environment (provides clock and network)

     

       101
       101
       -
           @param api_key API key for authentication

     

       102
       102
       -
           @param base_url Base URL of the Karakeep instance

     

       101
       101
       +
           @param client Karakeepe client instance

     

       103
       102
        
           @param asset_id ID of the asset to fetch

     

       104
       103
        
           @return The binary asset data *)

     

       105
       104
        
       val fetch_asset :

     

       106
       106
       -
         sw:Eio.Switch.t ->

     

       107
       107
       -
         env:< clock: [> float Eio.Time.clock_ty ] Eio.Resource.t; net: [> [> `Generic] Eio.Net.ty ] Eio.Resource.t; .. > ->

     

       108
       108
       -
         api_key:string ->

     

       109
       109
       -
         string ->

     

       105
       105
       +
         t ->

     

       110
       106
        
         string ->

     

       111
       107
        
         string

     

       112
       108
        
       

     

       113
       113
       -
       (** Get the asset URL for a given asset ID

     

       114
       114
       -
           @param base_url Base URL of the Karakeep instance

     

       109
       109
       +
       (** Get the asset URL for a given client and asset ID

     

       110
       110
       +
           @param client Karakeepe client instance

     

       115
       111
        
           @param asset_id ID of the asset

     

       116
       112
        
           @return The full URL to the asset *)

     

       117
       113
        
       val get_asset_url :

     

       118
       118
       -
         string ->

     

       114
       114
       +
         t ->

     

       119
       115
        
         string ->

     

       120
       116
        
         string

     

       121
       117
        
       

     

       122
       118
        
       (** Create a new bookmark in Karakeep with optional tags

     

       123
       123
       -
           @param sw Eio switch for resource management

     

       124
       124
       -
           @param env Eio environment (provides clock and network)

     

       125
       125
       -
           @param api_key API key for authentication

     

       119
       119
       +
           @param client Karakeepe client instance

     

       126
       120
        
           @param url The URL to bookmark

     

       127
       121
        
           @param title Optional title for the bookmark

     

       128
       122
        
           @param note Optional note to add to the bookmark

     

       129
       123
        
           @param tags Optional list of tag names to add to the bookmark

     

       130
       124
        
           @param favourited Whether the bookmark should be marked as favourite (default: false)

     

       131
       125
        
           @param archived Whether the bookmark should be archived (default: false)

     

       132
       132
       -
           @param base_url Base URL of the Karakeep instance

     

       133
       126
        
           @return The created bookmark *)

     

       134
       127
        
       val create_bookmark :

     

       135
       135
       -
         sw:Eio.Switch.t ->

     

       136
       136
       -
         env:< clock: [> float Eio.Time.clock_ty ] Eio.Resource.t; net: [> [> `Generic] Eio.Net.ty ] Eio.Resource.t; .. > ->

     

       137
       137
       -
         api_key:string ->

     

       128
       128
       +
         t ->

     

       138
       129
        
         url:string ->

     

       139
       130
        
         ?title:string ->

     

       140
       131
        
         ?note:string ->

     

       141
       132
        
         ?tags:string list ->

     

       142
       133
        
         ?favourited:bool ->

     

       143
       134
        
         ?archived:bool ->

     

       144
       144
       -
         string ->

     

       135
       135
       +
         unit ->

     

       145
       136
        
         bookmark