Source file plugin.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
(*****************************************************************************)
(*                                                                           *)
(*  Copyright (C) 2026 Yves Ndiaye                                           *)
(*                                                                           *)
(* This Source Code Form is subject to the terms of the Mozilla Public       *)
(* License, v. 2.0. If a copy of the MPL was not distributed with this       *)
(* file, You can obtain one at https://mozilla.org/MPL/2.0/.                 *)
(*                                                                           *)
(*****************************************************************************)

(** Operations for plugin. *)

(** Signature of a shakuhachi plugin. *)
module type S = sig
  val name : string
  (** Plugin's name. This name should match the one inside the configuration
      file. *)

  val on_loaded :
    (Skhclibs.Collection.t -> SkhcConfig.Plugin.Config.t -> bool) option
  (** [on_loaded collection plg_conf] is called when the module is successfully
      loaded.*)

  val on_scan_file : (Skhclibs.Collection.t -> string -> string) option
  (** [on_scan_file collection path] is called when a file at [path] will be
      treated for importing. [on_scan_file] returns the path to the file that
      have to being imported. Useful if your want to transcode audiofile before
      importing. *)

  val on_scan_metadata :
    (Skhclibs.Collection.t ->
    string ->
    SkhcMetadata.Metadata.t ->
    SkhcMetadata.Metadata.t
    )
    option
  (** [on_metadata collection path metadata] is called right after the medadata
      being extracted from the audio file at [path] when importing. *)

  val on_file_moved : (Skhclibs.Collection.t -> string -> string -> unit) option
  (** [on_file_moved collection src dst] is called when a file within a
      collection is moved from [src] to [dst] *)

  val on_music_modified :
    (Skhclibs.Collection.t -> SkhcDb.MusicFile.t -> SkhcDb.MusicFile.t -> unit)
    option
  (** [on_music_modified collection old new'] is called when [old] is modified.
      At least a field, other than {i id} and {i updated_at} is different
      between [old] and [new']. *)

  val on_artist_modified :
    (Skhclibs.Collection.t -> SkhcDb.Artist.t -> SkhcDb.Artist.t -> unit) option
  (** [on_artist_modified collection old new'] is called when [old] is modified.
      At least a field, other than {i id} and {i updated_at} is different
      between [old] and [new']. *)

  val on_album_modified :
    (Skhclibs.Collection.t -> SkhcDb.Album.t -> SkhcDb.Album.t -> unit) option
  (** [on_album_modified collection old new'] is called when [old] is modified.
      At least a field, other than {i id} and {i updated_at} is different
      between [old] and [new']. *)

  val on_playlist_modified :
    (Skhclibs.Collection.t -> SkhcDb.Playlist.t -> SkhcDb.Playlist.t -> unit)
    option
  (** [on_playlist_modified collection old new'] is called when [old] is
      modified. At least a field, other than {i id} and {i updated_at} is
      different between [old] and [new']. *)

  val on_playlist_tracks_updated :
    (Skhclibs.Collection.t ->
    SkhcDb.Playlist.t ->
    ( SkhcDb.MusicFile.t
    * SkhcDb.Album.t
    * (string * SkhcDb.Roles.t) SkhcDb.Ids.Map.t
    * SkhcMetadata.Metadata.Values.t SkhcMetadata.Metadata.Properties.t
    )
    list ->
    unit
    )
    option
  (** [on_playlist_tracks_updated collection playlist musics] is called when the
      musics inside of [playlist] has been updated. *)
end

let plugins : (module S) list ref = ref []

(** [register plugin] registers [plugin] to be loaded by [skhc]. *)
let register plugin = plugins := plugin :: !plugins

(** [plugins ()] returns all the plugins currently registered. *)
let plugins () = !plugins