%%%==============================================================================
%% Copyright 2024-present by Alceu Frigeri
%%
%% This work may be distributed and/or modified under the conditions of
%%
%% * The [LaTeX Project Public License](http://www.latex-project.org/lppl.txt) ,
%%   version 1.3c (or later) , and/or
%% * The [GNU Affero General Public License](https://www.gnu.org/licenses/agpl-3.0.html) ,
%%   version 3 (or later)
%%
%% This work has the LPPL maintenance status *maintained*.
%%
%% The Current Maintainer of this work is Alceu Frigeri
%%
%% This is version {1.0} {2025/03/03}
%%
%% The list of files that compose this work can be found in the README.md file at
%% https://ctan.org/pkg/tikzcalendarnotes
%%
%%%==============================================================================
\NeedsTeXFormat{LaTeX2e}[2022/06/01]

\ProvidesExplPackage
    {tikzcalendarnotes}
    {2025/03/03}
    {1.0}
    {tikzcalendarnotes - calendar marks and notes}

%%%%%%%
%%%
%%% Just an attempt of having my packages info in a regular way
%%% Idea being: { <pck-name> / pkg info } for each and all.
%%%
%%%%%%%
\keys_define:nn { tikzcalendarnotes / pkg info}
  {
     name        .code:n = {tikzcalendarnotes} ,
     prefix      .code:n = {tikzcalendarnotes} ,
     date        .code:n = {2025/03/03} ,
     version     .code:n = {1.0} ,
     description .code:n = {tikzcalendarnotes - calendar marks and notes}
  }
\cs_if_exist:NF \PkgInfo 
  {
    \NewDocumentCommand \PkgInfo {mm} { \keys_set:nn {#1 / pkg info}{#2} } 
    \NewDocumentCommand \PkgDescription {m} 
      { \noindent Package~ \textbf{\PkgInfo{#1}{name}}~Version:~\PkgInfo{#1}{version}~ -~ \PkgInfo{#1}{date}\par \emph{\PkgInfo{#1}{description}}~\par } 
  }  
%%%%%%%
%%% End of cut-n-paste
%%%%%%%

%\RequirePackage{etoolbox}



%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%

\cs_generate_variant:Nn \msg_error:nnnn {neee ,nVne}


\msg_new:nnnn {tikzcalendarnotes} {dataset already defined}
  {
    (ID:#1)~Dataset~ '#2'~already~defined!
  }
  {
    You~tried~to~create~an~already~defined~Dataset:~'#2'.
    ~Error~Code~ ID:<#1>.
  }

\msg_new:nnnn {tikzcalendarnotes} {invalid dataset}
  {
    (ID:#1)~Invalid~Dataset:~ '#2'
  }
  {
    You~tried~to~use~an~invalid~Dataset:~'#2'.
    ~Error~Code~ ID:<#1>.
  }


\msg_new:nnnn {tikzcalendarnotes} {date not set}
  {
    (ID:#1)~missing~date~key:~ '#2'
  }
  {
    You~should~set~a~date~before:~'#2'.
    ~Error~Code~ ID:<#1>.
  }

\msg_new:nnnn {tikzcalendarnotes} {range not set}
  {
    (ID:#1)~missing~from/to~keys:~ '#2'
  }
  {
    You~should~set~from/to~keys~before:~'#2'.
    ~Error~Code~ ID:<#1>.
  }





%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%

\tl_new:N \l__tikzcalendarnotes_msg_submodule_tl

\seq_new:N  \l__tikzcalendarnotes_dataset_seq
\tl_new:N   \l__tikzcalendarnotes_active_dataset_tl

\bool_new:N \l__tikzcalendarnotes_date_set_flag_bool
\bool_new:N \l__tikzcalendarnotes_hldates_set_flag_bool
\bool_new:N \l__tikzcalendarnotes_from_set_flag_bool
\bool_new:N \l__tikzcalendarnotes_to_set_flag_bool
\bool_new:N \l__tikzcalendarnotes_date_case_bool
\bool_new:N \l__tikzcalendarnotes_hldates_case_bool
\bool_new:N \l__tikzcalendarnotes_range_case_bool
\bool_new:N \l__tikzcalendarnotes_cntweek_case_bool 
\bool_new:N \l__tikzcalendarnotes_nocntweek_case_bool 

\bool_new:N \l__tikzcalendarnotes_keep_counters_pgfkey_bool

\bool_new:N \l__tikzcalendarnotes_year_policy_set_bool
\bool_new:N \l__tikzcalendarnotes_year_label_set_bool

\tl_new:N \l__tikzcalendarnotes_dayspacing_Xshift_key_tl
\tl_new:N \l__tikzcalendarnotes_weekspacing_Yshift_key_tl
\tl_new:N \l__tikzcalendarnotes_inter_month_space_key_tl %matrix column spacing


\tl_new:N \l__tikzcalendarnotes_hl_color_key_tl


\int_new:N \l__tikzcalendarnotes_year_int
\int_new:N \l__tikzcalendarnotes_month_int
\int_new:N \l__tikzcalendarnotes_cnta_int
\int_new:N \l__tikzcalendarnotes_cntb_int

\tl_new:N \l__tikzcalendarnotes_tmpa_tl

\tl_new:N \l__tikzcalendarnotes_begin_iso_tl


\tl_new:N \l__tikzcalendarnotes_dateremark_tmp_tl
\tl_new:N \l__tikzcalendarnotes_dateref_tmp_tl
\tl_new:N \l__tikzcalendarnotes_from_key_tl
\tl_new:N \l__tikzcalendarnotes_to_key_tl
\tl_new:N \l__tikzcalendarnotes_cnt_ifdate_temp_tl
\tl_new:N \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl

\bool_new:N \g__tikzcalendarnotes_firstdraw_bool

\tl_new:N \l__tikzcalendarnotes_TXshift_tmp_tl
\tl_new:N \l__tikzcalendarnotes_TYshift_tmp_tl


\tl_new:N \l__tikzcalendarnotes_TXshift_scaled_tl
\tl_new:N \l__tikzcalendarnotes_TYshift_scaled_tl


\tl_new:N \l__tikzcalendarnotes_radius_tmp_tl
\tl_new:N \l__tikzcalendarnotes_radius_scaled_tl
\tl_new:N \l__tikzcalendarnotes_radius_adj_pgfkey_tl
\tl_new:N \l__tikzcalendarnotes_ref_fontsize_tl


\tl_new:N  \l__tikzcalendarnotes_weeklist_starts_on_tl
\tl_new:N  \l__tikzcalendarnotes_weeklist_ends_on_tl
\int_new:N \l__tikzcalendarnotes_weeklist_delta_int
\int_new:N \l__tikzcalendarnotes_weeklist_starts_on_int




\tl_new:N \l__tikzcalendarnotes_day_A_tl
\tl_new:N \l__tikzcalendarnotes_day_B_tl
\tl_new:N \l__tikzcalendarnotes_day_C_tl
\tl_new:N \l__tikzcalendarnotes_day_D_tl
\tl_new:N \l__tikzcalendarnotes_day_E_tl
\tl_new:N \l__tikzcalendarnotes_day_F_tl
\tl_new:N \l__tikzcalendarnotes_day_G_tl

\tl_new:N \l__tikzcalendarnotes_day_A_style_tl
\tl_new:N \l__tikzcalendarnotes_day_B_style_tl
\tl_new:N \l__tikzcalendarnotes_day_C_style_tl
\tl_new:N \l__tikzcalendarnotes_day_D_style_tl
\tl_new:N \l__tikzcalendarnotes_day_E_style_tl
\tl_new:N \l__tikzcalendarnotes_day_F_style_tl
\tl_new:N \l__tikzcalendarnotes_day_G_style_tl


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%

\cs_generate_variant:Nn \dim_to_decimal:n {e}

\keys_define:nn {tikzcalendarnotes }
  {
    year .usage:n = general ,
    year .tl_set:N = \l__tikzcalendarnotes_year_key_tl ,
    year .default:n = {\year} ,
    
    starting~ at .usage:n = general ,
    starting~ at .tl_set:N = \l__tikzcalendarnotes_starting_at_key_tl ,
    starting~ at .default:n = {1} ,

    number~ of~ months .usage:n = general ,
    number~ of~ months .tl_set:N = \l__tikzcalendarnotes_nmonths_key_tl ,
    number~ of~ months .default:n = {12} ,

    per~ line .usage:n = general ,
    per~ line .tl_set:N = \l__tikzcalendarnotes_perline_key_tl ,
    per~ line .default:n  = {3} ,

    with~ notes .usage:n = general ,
    with~ notes .code:n =  
      {
        \tl_set:Nn \l__tikzcalendarnotes_dayspacing_Xshift_key_tl 
          {25}  % was 14ex
        \tl_set:Nn \l__tikzcalendarnotes_weekspacing_Yshift_key_tl 
          {36}      
        \bool_set_false:N \l__tikzcalendarnotes_compact_key_bool 
          %{\c_false_bool}  
        \tl_set:Nn \l__tikzcalendarnotes_inter_month_space_key_tl 
          {20}  % was 14ex
      } ,
    with~ notes .value_forbidden:n = true ,

    without~ notes .usage:n = general ,
    without~ notes .code:n =  
      {
        \tl_set:Nn \l__tikzcalendarnotes_dayspacing_Xshift_key_tl 
          {15}
        \tl_set:Nn \l__tikzcalendarnotes_weekspacing_Yshift_key_tl 
          {17}
        \bool_set_true:N \l__tikzcalendarnotes_compact_key_bool 
          %{\c_true_bool}  
        \tl_set:Nn \l__tikzcalendarnotes_inter_month_space_key_tl 
          {5} %was 7ex
      } ,
    without~ notes .value_forbidden:n = true ,
    
    compact .usage:n = general ,
    compact .meta:n = { without~ notes } ,
    compact .value_forbidden:n = true ,

    day~ spacing .usage:n = general ,
    day~ spacing .tl_set:N = \l__tikzcalendarnotes_dayspacing_Xshift_key_tl ,
    day~ spacing .value_required:n = true ,

    week~ spacing .usage:n = general ,
    week~ spacing .tl_set:N = \l__tikzcalendarnotes_weekspacing_Yshift_key_tl ,
    week~ spacing .value_required:n = true ,

    month~ spacing .usage:n = general ,
    month~ spacing .tl_set:N = \l__tikzcalendarnotes_inter_month_space_key_tl ,
    month~ spacing .value_required:n = true ,

    data~ set .usage:n = general ,
    data~ set .tl_set:N = \l__tikzcalendarnotes_dataset_key_tl ,
    data~ set .default:n  = {default} ,
    
    name .usage:n = general ,
    name .tl_set:N = \l__tikzcalendarnotes_cal_name_key_tl ,
    name .default:n  = {cal} ,
    
    defaults .usage:n = general ,
    defaults .meta:n = 
      {
        year , starting~ at , number~ of~ months , per~ line , compact , data~ set , 
        name ,
      } ,
    defaults .value_forbidden:n = true , 
  }



\keys_define:nn {tikzcalendarnotes / base set }
  {
    north~ east .usage:n = general ,
    north~ east  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~10}{north~east}
          {
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark posref} {north~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark anchor} {south~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {-\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {-\l__tikzcalendarnotes_TYshift_scaled_tl}    
            \prop_put:cne
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {date ref} {\l__tikzcalendarnotes_to_key_tl}       
          }
      } ,
    north~ east  .value_forbidden:n = true ,
    
    north~ west .usage:n = general ,
    north~ west  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~09}{north~west}
          {
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark posref} {north~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark anchor} {south~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {-\l__tikzcalendarnotes_TYshift_scaled_tl}    
            \prop_put:cne
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {date ref} {\l__tikzcalendarnotes_from_key_tl}       
          }
      } ,
    north~ west  .value_forbidden:n = true ,

    south~ east .usage:n = general ,
    south~ east  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~08}{south~east}
          {
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark posref} {south~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark anchor} {north~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {-\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {\l__tikzcalendarnotes_TYshift_scaled_tl}    
            \prop_put:cne
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {date ref} {\l__tikzcalendarnotes_to_key_tl}       
          }
      } ,
    south~ east  .value_forbidden:n = true ,

    south~ west .usage:n = general ,
    south~ west  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~07}{south~west}
          {
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark posref} {south~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {remark anchor} {north~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {\l__tikzcalendarnotes_TYshift_scaled_tl}    
            \prop_put:cne
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {date ref} {\l__tikzcalendarnotes_from_key_tl}       
          }
      } ,
    south~ west  .value_forbidden:n = true ,

    remark .usage:n = general ,
    remark .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~06}{remark=#1}
          {remark}{#1}
      } ,
    remark .value_required:n = true ,
    
    notes .usage:n = general ,
    notes .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~05}{notes=#1}
          {notes}{#1}
      } ,
    notes .value_required:n = true ,
      
    round .usage:n = general ,
    round .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~04}{round}
          {round}{round}
      } ,
    round .value_forbidden:n = true ,

    square .usage:n = general ,
    square .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~03}{square}
          {square}{square}
      } ,
    square .value_forbidden:n = true ,
    
    color .usage:n = general ,
    color .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~02}{color=#1}
          {day color}{#1}
      } ,
    color .value_required:n = true ,
    
    remark~ style .usage:n = general ,
    remark~ style .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~01}{remark~ style=#1}
          {remark style}{#1}
      } ,
    remark~ style .value_required:n = true ,
    
    note~ style .usage:n = general ,
    note~ style .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~11}{note~ style=#1}
          {note style}{#1}
      } ,
    note~ style .value_required:n = true ,   

    mark~ style .usage:n = general ,
    mark~ style .code:n =
      {
        \__tikzcalendarnotes_keycode:nnnn {keys~00}{mark~ style=#1}
          {draw style}{#1}
      } ,
    mark~ style .value_required:n = true ,
      
  }

\keys_define:nn {} 
  {
    tikzcalendarnotes / date set .inherit:n = 
      { tikzcalendarnotes / base set } 
  } 

\keys_define:nn {tikzcalendarnotes / date set }
  {
    date .usage:n = general ,
    date .code:n = 
      { 
        \bool_set_true:N \l__tikzcalendarnotes_date_set_flag_bool 
          %{\c_true_bool}
        \__tikzcalendarnotes_try_insert_date:nn 
          {#1}
          {} 
      } ,
    date .value_required:n = true ,
  }

\keys_define:nn {tikzcalendarnotes / hl dates set }
  {
    dates .usage:n = general ,
    dates .code:n = 
      {         
        \bool_set_true:N \l__tikzcalendarnotes_hldates_set_flag_bool 
          %{\c_true_bool}
        \bool_set_true:N \l__tikzcalendarnotes_date_set_flag_bool 
          %{\c_true_bool}  % for now. CHANGE IT
          
        \clist_set:Nn \l_tmpa_clist 
          {#1}

        \clist_map_inline:Nn \l_tmpa_clist
          {
            \__tikzcalendarnotes_try_insert_date:nV 
              {##1}
              \l__tikzcalendarnotes_hl_color_key_tl
          }
      } ,
    dates .value_required:n = true ,

    color .usage:n = general ,
    color .tl_set:N = \l__tikzcalendarnotes_hl_color_key_tl ,
    color .value_required:n = true , 
  }



\keys_define:nn {} 
  {
    tikzcalendarnotes / range set .inherit:n = 
      { tikzcalendarnotes / base set } 
  }

\keys_define:nn {tikzcalendarnotes / range set }
  {
    from .usage:n = general ,
    from .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_from_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_from_set_flag_bool 
          %{\c_true_bool}
      } ,
    from  .value_required:n = true ,
    
    to .usage:n = general ,
    to .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_to_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_to_set_flag_bool 
          %{\c_true_bool}
      } ,
    to .value_required:n = true ,
  }

\keys_define:nn {tikzcalendarnotes / no cnt week set }
  {
    from .usage:n = general ,
    from .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_from_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_from_set_flag_bool 
          %{\c_true_bool}
      } ,
    from  .value_required:n = true ,
    
    to .usage:n = general ,
    to .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_to_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_to_set_flag_bool 
          %{\c_true_bool}
      } ,
    to .value_required:n = true ,
  }    

\keys_define:nn {tikzcalendarnotes / cnt week set }
  {
    from .usage:n = general ,
    from .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_from_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_from_set_flag_bool 
          %{\c_true_bool}
      } ,
    from  .value_required:n = true ,
    
    to .usage:n = general ,
    to .code:n =
      {
        \tl_set:Nn \l__tikzcalendarnotes_to_key_tl 
          {#1}
        \bool_set_true:N \l__tikzcalendarnotes_to_set_flag_bool 
          %{\c_true_bool}
      } ,
    to .value_required:n = true ,
    
    up .usage:n = general ,
    up  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~11}{up}
          {
            \__tikzcalendarnotes_try_insert_cntweek:ee 
              {\l__tikzcalendarnotes_from_key_tl}
              {\l__tikzcalendarnotes_to_key_tl}
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt posref} {north~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt anchor} {south~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {-\l__tikzcalendarnotes_TYshift_scaled_tl}    
          }
      } ,
      up .value_forbidden:n = true ,
    
    down .usage:n = general ,
    down  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~12}{down}
          {
            \__tikzcalendarnotes_try_insert_cntweek:ee 
              {\l__tikzcalendarnotes_from_key_tl}
              {\l__tikzcalendarnotes_to_key_tl}
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt posref} {south~ west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt anchor} {north~ east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {\l__tikzcalendarnotes_TYshift_scaled_tl}    
          }
      } ,
      down .value_forbidden:n = true ,

    center .usage:n = general ,
    center  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~13}{center}
          {
            \__tikzcalendarnotes_try_insert_cntweek:ee 
              {\l__tikzcalendarnotes_from_key_tl}
              {\l__tikzcalendarnotes_to_key_tl}
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt posref} {west}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {cnt anchor} {east}       
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {TY shift} {0 pt}    
          }
      } ,
      center .value_forbidden:n = true ,
      
    color .usage:n = general ,
    color  .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~13}{color=#1}
          {
            \__tikzcalendarnotes_try_insert_cntweek:ee 
              {\l__tikzcalendarnotes_from_key_tl}
              {\l__tikzcalendarnotes_to_key_tl}
            \prop_put:cnn 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
              {color} {color=#1}       
          }
      } ,
    color .value_required:n = true ,
    
    starting~ at .usage:n = general ,
    starting~ at .code:n = 
      {
        \__tikzcalendarnotes_keycode:nnn {keys~14}{starting~ at=#1}
          {
            \__tikzcalendarnotes_try_insert_cntweek:ee 
              {\l__tikzcalendarnotes_from_key_tl}
              {\l__tikzcalendarnotes_to_key_tl}
            \int_gset:cn {g__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_from_key_tl : \l__tikzcalendarnotes_to_key_tl _cnt _int}
              {#1 - 1}
          }
      } ,
    starting~ at .value_required:n = true ,
  }


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%


\cs_new_protected:Npn \__tikzcalendarnotes_keycode:nnnn #1#2#3#4
  {
    \bool_if:nTF 
      {\l__tikzcalendarnotes_date_set_flag_bool || \l__tikzcalendarnotes_from_set_flag_bool && \l__tikzcalendarnotes_to_set_flag_bool}
      {
        \bool_if:NT \l__tikzcalendarnotes_range_case_bool
          {
            \__tikzcalendarnotes_try_insert_range:ee {\l__tikzcalendarnotes_from_key_tl}{\l__tikzcalendarnotes_to_key_tl}
          }
        \prop_put:cnn {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
          {#3} {#4}
      }
      {
        \msg_error:nVne {tikzcalendarnotes}{\l__tikzcalendarnotes_msg_submodule_tl}{#1}{#2}
      }  
  }

\cs_new_protected:Npn \__tikzcalendarnotes_keycode:nnn #1#2#3
  {
    \bool_if:nTF 
      {\l__tikzcalendarnotes_date_set_flag_bool || \l__tikzcalendarnotes_from_set_flag_bool && \l__tikzcalendarnotes_to_set_flag_bool}
      {
        \bool_if:NT \l__tikzcalendarnotes_range_case_bool
          {
            \__tikzcalendarnotes_try_insert_range:ee {\l__tikzcalendarnotes_from_key_tl}{\l__tikzcalendarnotes_to_key_tl}
          }
        #3
      }
      {
        \msg_error:nVne {tikzcalendarnotes}{\l__tikzcalendarnotes_msg_submodule_tl}{#1}{#2}
      }  
  }

\cs_generate_variant:Nn \tl_set:Nn {Ne}
\cs_generate_variant:Nn \tl_gset:Nn {Ne}


\makeatletter 
\cs_new_protected:Npn \__tikzcalendarnotes_set_dim_constants: 
  {
    \tl_set:Ne \l__tikzcalendarnotes_ref_fontsize_tl {\f@size}
       
    \tl_set:Ne \l__tikzcalendarnotes_TXshift_scaled_tl 
      { 
        \fp_eval:n {0.6 * \l__tikzcalendarnotes_ref_fontsize_tl + 2pt} pt
      }
    \tl_set:Ne \l__tikzcalendarnotes_TYshift_scaled_tl 
      { 
        \fp_eval:n {0.35 * \l__tikzcalendarnotes_ref_fontsize_tl + 0.5pt} pt
      }
    
    \tl_set:Ne \l__tikzcalendarnotes_radius_scaled_tl 
      { 
        \fp_eval:n {(5.75pt * \l__tikzcalendarnotes_ref_fontsize_tl) / 10pt } pt
      }
  }
\makeatother




\cs_new_protected:Npn \__tikzcalendarnotes_reset_defaults:
  {
    \bool_set_false:N \l__tikzcalendarnotes_date_set_flag_bool 
    \bool_set_false:N \l__tikzcalendarnotes_hldates_set_flag_bool 
    \bool_set_false:N \l__tikzcalendarnotes_from_set_flag_bool 
    \bool_set_false:N \l__tikzcalendarnotes_to_set_flag_bool 
    \bool_set_false:N \l__tikzcalendarnotes_date_case_bool 
    \bool_set_false:N \l__tikzcalendarnotes_hldates_case_bool 
    \bool_set_false:N \l__tikzcalendarnotes_range_case_bool 
    \bool_set_false:N \l__tikzcalendarnotes_cntweek_case_bool  
    \bool_set_false:N \l__tikzcalendarnotes_nocntweek_case_bool  
      
    \tl_set:Nn \l__tikzcalendarnotes_hl_color_key_tl 
      {lightgray}  
  }



%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%

\cs_new_protected:Npn \__tikzcalendarnotes_markdraw:nnn #1#2#3
  {
    \draw [#1] 
      (#3.center) 
        ++(-#2 , -#2) 
        rectangle
    		++(2*#2 , 2*#2) ;
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_markdraw:nnn {eee}

\cs_new_protected:Npn \__tikzcalendarnotes_markdraw_range:nnnn #1#2#3#4
  {
    \draw [#1] 
      (#3.center) 
        ++(-#2 , #2) coordinate(A)
        (#4.center)
        ++( #2 , -#2) 
        rectangle (A) ;
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_markdraw_range:nnnn {eeee}


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%


\cs_new_protected:Npn \__tikzcalendarnotes_new_dataset:n #1
  {
    \seq_if_exist:cTF {l__tikzcalendarnotes_ #1 _dataset_seq}
      {
        \msg_warning:nnne 
          {tikzcalendarnotes}{dataset already defined}
          {new~01}{#1}
      }
      { 
        \seq_new:c {l__tikzcalendarnotes_ #1 _dataset_seq}
        \seq_new:c {l__tikzcalendarnotes_ #1 _range_seq}
        \seq_put_right:Nn \l__tikzcalendarnotes_dataset_seq {#1}
        \seq_new:c {l__tikzcalendarnotes_ #1 _cnt week_seq}
        \seq_new:c {l__tikzcalendarnotes_ #1 _no cntweek_seq}
        \bool_new:c {l__tikzcalendarnotes_ #1 _cnt flag_bool} %for the 1st of every month
        \tl_new:c {l__tikzcalendarnotes_ #1 _cnt hack_tl} %for the 1st of every month
      }
  }  

\cs_new_protected:Npn \__tikzcalendarnotes_select_dataset:n #1
  {
    \seq_if_exist:cTF {l__tikzcalendarnotes_ #1 _dataset_seq}
    { 
      \tl_set:Nn \l__tikzcalendarnotes_active_dataset_tl {#1}
    }
    {  
      \msg_error:nnne 
        {tikzcalendarnotes}{invalid dataset}
        {select~01}{#1}
    }
  }

\__tikzcalendarnotes_new_dataset:n {default} 
\__tikzcalendarnotes_select_dataset:n {default} 


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%



\cs_new_protected:Npn \__tikzcalendarnotes_try_insert_date:nn #1#2
  {
    \prop_if_exist:cF {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop}
      {
        \prop_new:c {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop}
        \seq_put_right:cn 
          { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _dataset_seq }
          { #1 }    
%defaults      
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop} 
          {remark posref} {north~ east}       
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop} 
          {remark anchor} {south~ west}      
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop} 
          {TX shift} {-\l__tikzcalendarnotes_TXshift_scaled_tl}    
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop} 
          {TY shift} {-\l__tikzcalendarnotes_TYshift_scaled_tl}    
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 _prop} 
          {date ref} {#1}       
      }
    \tl_set:Nn \l__tikzcalendarnotes_date_tl {#1}

    \tl_if_blank:nF {#2}
      {
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ \l__tikzcalendarnotes_date_tl _prop} 
          {day color} {#2}  
      }
      
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_try_insert_date:nn {nV}

\cs_new_protected:Npn \__tikzcalendarnotes_try_insert_range:nn #1#2
  {
    \prop_if_exist:cF {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop}
      {
        \prop_new:c {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop}
        \seq_put_right:cn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _range_seq}
          {#1 : #2 _range}        
        \tl_set:Nn \l__tikzcalendarnotes_date_tl 
          {#1 : #2 _range}
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _range _prop} 
          {from} {#1}  
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _range _prop} 
          {to} {#2}  
    
    %defaults      
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop} 
          {remark posref} {north~ east}       
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop} 
          {remark anchor} {south~ west}      
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop} 
          {TX shift} {-\l__tikzcalendarnotes_TXshift_scaled_tl}    
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop} 
          {TY shift} {-\l__tikzcalendarnotes_TYshift_scaled_tl}    
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _range _prop} 
          {date ref} {#2}       
      }

  }

\cs_generate_variant:Nn \__tikzcalendarnotes_try_insert_range:nn {ee}



\cs_new_protected:Npn \__tikzcalendarnotes_try_insert_no_cntweek:nn #1#2
  {
    \prop_if_exist:cF {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _ncnt _prop}
      {
        \prop_new:c {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _ncnt _prop}
        \seq_put_right:cn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _nocntweek_seq}
          {#1 : #2 _ncnt }   
               
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _ncnt _prop} 
          {from} {#1}  
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _ncnt _prop} 
          {to} {#2}  
      }
    \tl_set:Nn \l__tikzcalendarnotes_date_tl 
      {#1 : #2 _ncnt }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_try_insert_no_cntweek:nn {ee}



\cs_new_protected:Npn \__tikzcalendarnotes_try_insert_cntweek:nn #1#2
  {
    \prop_if_exist:cF {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _cnt _prop}
      {
        \prop_new:c {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _cnt _prop}
        \seq_put_right:cn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _cntweek_seq}
          {#1 : #2 _cnt}        
        % the counter is global because months are typed in consecutive scopes, and not in a single go...
        \int_new:c {g__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _cnt _int}

        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _cnt _prop} 
          {from} {#1}  
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ #1 : #2 _cnt _prop} 
          {to} {#2}  
    % defaults: center
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _cnt _prop} 
          {cnt posref} {west}       
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _cnt _prop} 
          {cnt anchor} {east}       
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _cnt _prop} 
          {TX shift} {\l__tikzcalendarnotes_TXshift_scaled_tl}    
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _cnt _prop} 
          {TY shift} {0pt}          
        \prop_put:cnn 
          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _  #1 : #2 _cnt _prop} 
          {color} {}          
      }
    \tl_set:Nn \l__tikzcalendarnotes_date_tl 
      {#1 : #2 _cnt}
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_try_insert_cntweek:nn {ee}



%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%


\cs_new_protected:Npn \__tikzcalendarnotes_month_matrix:nnnn #1#2#3#4  %year ,first ,n months ,per line
  {
    \int_set:Nn \l__tikzcalendarnotes_year_int {#1}
    \int_set:Nn \l__tikzcalendarnotes_month_int {#2}
    \int_set:Nn \l__tikzcalendarnotes_cnta_int {0}
    \int_set:Nn \l__tikzcalendarnotes_cntb_int {0}
    \tl_set:Nn \l__tikzcalendarnotes_tmpa_tl {}
    
   
    \int_while_do:nNnn {\l__tikzcalendarnotes_cnta_int} < {#3}
      {
        \tl_put_right:Ne \l__tikzcalendarnotes_tmpa_tl 
          {
            \exp_not:N \calendar[
                        day~ xshift=\l__tikzcalendarnotes_dayspacing_Xshift_key_tl pt,
                        day~ yshift=\l__tikzcalendarnotes_weekspacing_Yshift_key_tl pt,
                        name=\l__tikzcalendarnotes_cal_name_key_tl ,
                        dates=\int_use:N\l__tikzcalendarnotes_year_int - \int_use:N\l__tikzcalendarnotes_month_int -01 
                               ~ to ~ 
                              \int_use:N\l__tikzcalendarnotes_year_int - \int_use:N\l__tikzcalendarnotes_month_int -last
                        ] ;
          }
        \int_incr:N \l__tikzcalendarnotes_cnta_int
        \int_compare:nNnTF {\l__tikzcalendarnotes_cnta_int} = {#3}
          {
            \tl_put_right:Nn \l__tikzcalendarnotes_tmpa_tl { \\ }
          }
          {
            \int_incr:N \l__tikzcalendarnotes_cntb_int
            \int_compare:nNnTF {\l__tikzcalendarnotes_cntb_int} < {#4} 
              {
                \tl_put_right:Nn \l__tikzcalendarnotes_tmpa_tl { ~ \pgfmatrixnextcell ~ }
              }
              {
                \tl_put_right:Nn \l__tikzcalendarnotes_tmpa_tl { \\ }
                \int_set:Nn \l__tikzcalendarnotes_cntb_int {0}
              }
            \int_incr:N \l__tikzcalendarnotes_month_int
            \int_compare:nNnTF {\l__tikzcalendarnotes_month_int} < {13}
              {}
              {
                \int_set:Nn \l__tikzcalendarnotes_month_int {1}
                \int_incr:N \l__tikzcalendarnotes_year_int
              }
          }
      }

    \l__tikzcalendarnotes_tmpa_tl
  }
  

\makeatletter
\cs_new_eq:NN \__tikzcalendarnotes_tikz_xshift \tikz@lib@cal@xshift
\makeatother


\cs_new_protected:Npn \__tikzcalendarnotes_ifdate_case_counting_tl_set:Nnnnnnn #1#2#3#4#5#6#7
  {
    \bool_if:NF \l__tikzcalendarnotes_keep_counters_pgfkey_bool
      { \int_gzero:c {#3} }
      
    \tl_put_right:Nn #1 
      {
        \ifdate{#2}
          {
            \int_gincr:c {#3}
            \draw (\pgfcalendarsuggestedname.#4) 
              ++(#6)
              node[#5](){ \int_use:c {#3} } ;
            \tl_gput_right:cn {#7}
              {
                \draw (\pgfcalendarsuggestedname.#4 |-  \l__tikzcalendarnotes_cal_name_key_tl - \pgfcalendarifdateyear - \pgfcalendarifdatemonth - 01.#4) 
                  ++(#6)
                  node[#5](){ \int_use:c{#3} } ;                  
              }
          }
          {}                
      }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_ifdate_case_counting_tl_set:Nnnnnnn {Neeeeee}





\cs_new_protected:Npn \__tikzcalendarnotes_pgfcalifdate_case_counting_tl_set:Nnnnnnn #1#2#3#4#5#6#7
  {
      
    \tl_put_right:Nn #1 
      {
        \pgfcalendarifdate{##1}{#2}
          {
            \int_compare:nNnT {\int_use:c{#3}} = {0}
              { \int_gincr:c {#3} }             
            \tl_gput_right:cn {#7}
              {
                \draw (\pgfcalendarsuggestedname.#4 |-  \l__tikzcalendarnotes_cal_name_key_tl - \pgfcalendarifdateyear - \pgfcalendarifdatemonth - 01.#4) 
                  ++(#6)
                  node[#5](){ \int_use:c{#3} } ;                  
              }
          }
          {}                
      }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_pgfcalifdate_case_counting_tl_set:Nnnnnnn {Neeeeee}


\cs_generate_variant:Nn \use:n {V}

\cs_new_protected:Npn \__tikzcalendarnotes_ifdate_case_no_tl_set:Nnn #1#2#3
  {
    \tl_set:Nn #1 
      {
        \ifdate{#3}
          {}
          { #2 }                
      }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_ifdate_case_no_tl_set:Nnn {NVe}




\cs_new_protected:Npn \__tikzcalendarnotes_pgfcalifdate_case_no_tl_set:Nnn #1#2#3
  {
    \tl_set:Nn #1 
      {
        \pgfcalendarifdate{##1}{#3}
          {}
          { #2 }                
      }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_pgfcalifdate_case_no_tl_set:Nnn {NVe}


\cs_new_protected:Npn \__tikzcalendarnotes_shift_adjust_tl_set:Nn #1#2
  {
    \fp_compare:nNnTF {#1} < {0}
      {
        \tl_set:Ne #1 
          {
            \fp_eval:n {#1 + (#2)} pt
          }
      }
      {
        \tl_set:Ne #1 
          {
            \fp_eval:n {#1 - (#2)} pt
          }
      }
  }

\cs_generate_variant:Nn   \__tikzcalendarnotes_shift_adjust_tl_set:Nn {NV , Ne}

\cs_new_protected:Npn \__tikzcalendarnotes_append_pgfcalifdate_test:n #1
  {
    \pgfkeys
      {
        tikz ,
        @calnotes@cnt@if@/.append~ code = {#1} ,
      }
  }
\cs_generate_variant:Nn \__tikzcalendarnotes_append_pgfcalifdate_test:n {V}


\cs_new_protected:Npn \__tikzcalendarnotes_set_ifdate_before_day:nn #1#2
  {
    \pgfkeys
      {
        tikz,
        @calnotes@cnt@if@/.code = {} ,
        execute~ before~ day~ scope = 
          {
            \ifdate{equals = #1}
              {
                \int_set:Nn \l_tmpa_int {\pgfcalendarcurrentweekday + #2}
                \pgfkeys{tikz,@calnotes@cnt@if@ = {#1+ -\int_use:N \l_tmpa_int}}
              }
              {}
          }
      }
  }
\cs_generate_variant:Nn \__tikzcalendarnotes_set_ifdate_before_day:nn {ee}




% #1  \l__tikzcalendarnotes_cnt_ifdate_temp_tl
% #2 l__tikzcalendarnotes_ ##1 _cnt flag_bool
% #3 l__tikzcalendarnotes_ ##1 _cnt hack_tl

\cs_new_protected:Npn \__tikzcalendarnotes_append_tikz_ifdate_after_day:nnn #1#2#3
  {
    \pgfkeys
      {tikz ,
        execute~ after~ day~ scope=
          {  
            \ifdate{\l__tikzcalendarnotes_weeklist_starts_on_tl} 
              { 
                \bool_if:cT {#2}
                  {
                    \tl_use:c {#3}
                    \bool_set_false:c {#2}
                  }
                \tl_gclear:c {#3}
                #1 
              }
              {
                \ifdate{day~ of~ month = 1}
                  {
                    \bool_set_true:c {#2}
                  }
                  {} 
              }
          }
      }
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_append_tikz_ifdate_after_day:nnn {Vnn}




\cs_new_protected:Npn \__tikzcalendarnotes_append_every_calendar_if:nn #1#2
  {
    \pgfkeys
      {
        tikz ,
        every~ calendar/.append~ style=
          {
            if = { (#1) [#2] }
          }
      }
  
  }
\cs_generate_variant:Nn \__tikzcalendarnotes_append_every_calendar_if:nn {ee}




\cs_new_protected:Npn \__tikzcalendarnotes_set_ifdates:n #1
  {
    \__tikzcalendarnotes_set_ifdate_before_day:ee 
      {\l__tikzcalendarnotes_begin_iso_tl} 
      {\int_use:N \l__tikzcalendarnotes_weeklist_delta_int}


    \clist_set:Nn \l_tmpa_clist {#1}
    \clist_map_inline:Nn \l_tmpa_clist
      {
        \tl_clear:N \l__tikzcalendarnotes_cnt_ifdate_temp_tl
        \tl_clear:N \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl
        \__tikzcalendarnotes_select_dataset:n {##1}
        \tl_clear:c {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _cnt hack_tl}
        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _dataset_seq}
          {
            \prop_get:cnNT 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {day color} \l__tikzcalendarnotes_daycolor_tmp_tl
              {
                \__tikzcalendarnotes_append_every_calendar_if:ee
                  {equals=####1}
                  {color=\l__tikzcalendarnotes_daycolor_tmp_tl}
              }
          }

        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _range_seq}
          {
            \prop_get:cnNT 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {day color} \l__tikzcalendarnotes_daycolor_tmp_tl
              {
                \prop_get:cnN 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {from} \l__tikzcalendarnotes_from_tmp_tl
                \prop_get:cnN 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {to} \l__tikzcalendarnotes_to_tmp_tl
                
                \__tikzcalendarnotes_append_every_calendar_if:ee
                  {between=\l__tikzcalendarnotes_from_tmp_tl and \l__tikzcalendarnotes_to_tmp_tl}
                  {color=\l__tikzcalendarnotes_daycolor_tmp_tl}  
              }
          }
          
        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ cnt week_seq}
          {
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {from} \l__tikzcalendarnotes_from_tmp_tl
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {to} \l__tikzcalendarnotes_to_tmp_tl
            \prop_get:cnN  
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {cnt posref} \l__tikzcalendarnotes_cntposref_tmp_tl
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {cnt anchor} \l__tikzcalendarnotes_cntanchor_tmp_tl
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {color} \l__tikzcalendarnotes_color_tmp_tl
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {TX shift} \l__tikzcalendarnotes_TXshift_tmp_tl
              
            \__tikzcalendarnotes_shift_adjust_tl_set:NV
              \l__tikzcalendarnotes_TXshift_tmp_tl
              \l__tikzcalendarnotes_remark_Xshift_adj_pgfkey_tl
              
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {TY shift} \l__tikzcalendarnotes_TYshift_tmp_tl
              
            \fp_compare:nNnF {\l__tikzcalendarnotes_TYshift_tmp_tl} = {0}
              {
                \__tikzcalendarnotes_shift_adjust_tl_set:NV
                  \l__tikzcalendarnotes_TYshift_tmp_tl
                  \l__tikzcalendarnotes_remark_Yshift_adj_pgfkey_tl
              }
              
            \__tikzcalendarnotes_ifdate_case_counting_tl_set:Neeeeee 
              \l__tikzcalendarnotes_cnt_ifdate_temp_tl 
              {between = \l__tikzcalendarnotes_from_tmp_tl+-6 and \l__tikzcalendarnotes_to_tmp_tl}
              {g__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _int}
              {\l__tikzcalendarnotes_cntposref_tmp_tl}
              {anchor=\l__tikzcalendarnotes_cntanchor_tmp_tl , every~ counter , \l__tikzcalendarnotes_color_tmp_tl}
              {0.7*\l__tikzcalendarnotes_TXshift_tmp_tl , 1.5*\l__tikzcalendarnotes_TYshift_tmp_tl}
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _cnt hack_tl}
 
            \__tikzcalendarnotes_pgfcalifdate_case_counting_tl_set:Neeeeee 
              \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl 
              {between = \l__tikzcalendarnotes_from_tmp_tl+-6 and \l__tikzcalendarnotes_to_tmp_tl}
              {g__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _int}
              {\l__tikzcalendarnotes_cntposref_tmp_tl}
              {anchor=\l__tikzcalendarnotes_cntanchor_tmp_tl , every~ counter , \l__tikzcalendarnotes_color_tmp_tl}
              {0.7*\l__tikzcalendarnotes_TXshift_tmp_tl , 1.5*\l__tikzcalendarnotes_TYshift_tmp_tl}
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _cnt hack_tl}

          } % end of cntweek for this <dataset>
          
        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ no cnt week_seq}
          {
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {from} \l__tikzcalendarnotes_from_tmp_tl
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {to} \l__tikzcalendarnotes_to_tmp_tl
              
            \__tikzcalendarnotes_ifdate_case_no_tl_set:NVe 
              \l__tikzcalendarnotes_cnt_ifdate_temp_tl 
              \l__tikzcalendarnotes_cnt_ifdate_temp_tl
              {between = \l__tikzcalendarnotes_from_tmp_tl+-6 and \l__tikzcalendarnotes_to_tmp_tl}

            \__tikzcalendarnotes_pgfcalifdate_case_no_tl_set:NVe 
              \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl 
              \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl
              {between = \l__tikzcalendarnotes_from_tmp_tl+-6 and \l__tikzcalendarnotes_to_tmp_tl}

          } % end of no cntweek for this dataset

          \tl_if_empty:NF \l__tikzcalendarnotes_cnt_ifdate_temp_tl
            {
              \__tikzcalendarnotes_append_tikz_ifdate_after_day:Vnn
                \l__tikzcalendarnotes_cnt_ifdate_temp_tl
                {l__tikzcalendarnotes_ ##1 _cnt flag_bool}
                {l__tikzcalendarnotes_ ##1 _cnt hack_tl}
                
              \__tikzcalendarnotes_append_pgfcalifdate_test:V 
                \l__tikzcalendarnotes_cnt_pgfcalifdate_temp_tl 
            }

      } % end of clist <datasets>
      
          
  }

\cs_generate_variant:Nn \__tikzcalendarnotes_set_ifdates:n {e}


%% from https://tex.stackexchange.com/questions/37709/how-can-i-know-if-a-node-is-already-defined/37713#37713
%% yickes
%% non portable, error prone if the underlining pgf scheme changes... :/
%%
\makeatletter
\cs_new_protected:Npn \__tikzcalendarnotes_setflag_ifdatenode_exist:Nn #1#2
  {
    \cs_if_exist:cTF {pgf@sh@ns@ \l__tikzcalendarnotes_cal_name_key_tl - #2}
      {
        \tl_if_eq:cNTF {pgf@sh@pi@ \l__tikzcalendarnotes_cal_name_key_tl - #2} \pgfpictureid
          { \bool_set_true:N #1  }
          { \bool_set_false:N #1  }
      }
      { \bool_set_false:N #1 }
  }
\makeatother

\cs_generate_variant:Nn \__tikzcalendarnotes_setflag_ifdatenode_exist:Nn {NV}


\cs_new_protected:Npn \__tizecalendarnotes_notes_typeset:nn #1#2 
  {
    \vcoffin_set:Nnn \l_tmpa_coffin
      {\fp_eval:n{#1 - 0.75em}pt} {#2}
    \coffin_typeset:Nnnnn \l_tmpa_coffin
      {l}{t}
      {0pt}{0pt}
  }

\cs_new_protected:Npn \__tikzcalendarnotes_draw_notes:n #1
  {
    \tl_set:Ne \l__tikzcalendarnotes_radius_tmp_tl 
      { 
        \fp_eval:n {\l__tikzcalendarnotes_radius_scaled_tl + \l__tikzcalendarnotes_radius_adj_pgfkey_tl} pt
      }      
      
    \clist_set:Nn \l_tmpa_clist {#1}
    \clist_map_inline:Nn \l_tmpa_clist
      {
        \__tikzcalendarnotes_select_dataset:n {##1}
        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _dataset_seq}
          {
            \__tikzcalendarnotes_setflag_ifdatenode_exist:Nn \l_tmpa_bool {####1}
            \bool_if:NT \l_tmpa_bool
              { 
                \prop_get:cnNF 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {draw style} \l__tikzcalendarnotes_drawstyle_tmp_tl
                  {
                    \tl_set:Nn \l__tikzcalendarnotes_drawstyle_tmp_tl {}
                  }
                  
                \prop_get:cnNT 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {round} \l_tmpa_tl
                  {
                    \__tikzcalendarnotes_markdraw:eee 
                      {
                        every~ mark , 
                        rounded~ corners=\l__tikzcalendarnotes_radius_tmp_tl , 
                        \l__tikzcalendarnotes_drawstyle_tmp_tl
                      }
                      {\l__tikzcalendarnotes_radius_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - ####1}
                  }
                  
                \prop_get:cnNT 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {square} \l_tmpa_tl
                  {
                    \__tikzcalendarnotes_markdraw:eee 
                      {
                        every~ mark , 
                        \l__tikzcalendarnotes_drawstyle_tmp_tl
                      }
                      {\l__tikzcalendarnotes_radius_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - ####1}
                  }
              
                \prop_get:cnNT 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {remark} \l__tikzcalendarnotes_dateremark_tmp_tl
                  {
                    \prop_get:cnNF 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {remark style} \l__tikzcalendarnotes_remarkstyle_tmp_tl
                      {
                        \tl_set:Nn \l__tikzcalendarnotes_remarkstyle_tmp_tl {}
                      }
                    \prop_get:cnN  %TF \prop_get:cnNTF 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {remark posref} \l__tikzcalendarnotes_remarkposref_tmp_tl
                    \prop_get:cnN 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {remark anchor} \l__tikzcalendarnotes_remarkanchor_tmp_tl
                    \prop_get:cnN 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {TX shift} \l__tikzcalendarnotes_TXshift_tmp_tl
                    \__tikzcalendarnotes_shift_adjust_tl_set:NV
                      \l__tikzcalendarnotes_TXshift_tmp_tl
                      \l__tikzcalendarnotes_remark_Xshift_adj_pgfkey_tl
                    
                    \prop_get:cnN 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {TY shift} \l__tikzcalendarnotes_TYshift_tmp_tl
                    \__tikzcalendarnotes_shift_adjust_tl_set:NV
                      \l__tikzcalendarnotes_TYshift_tmp_tl
                      \l__tikzcalendarnotes_remark_Yshift_adj_pgfkey_tl
    
                    \use:e
                      {
                        \exp_not:N\draw
                          (\l__tikzcalendarnotes_cal_name_key_tl - ####1 . \l__tikzcalendarnotes_remarkposref_tmp_tl) 
                          ++(\l__tikzcalendarnotes_TXshift_tmp_tl , \l__tikzcalendarnotes_TYshift_tmp_tl) 
                          node
                            [anchor=\l__tikzcalendarnotes_remarkanchor_tmp_tl , every~ remark , \l__tikzcalendarnotes_remarkstyle_tmp_tl]
                            (\l__tikzcalendarnotes_cal_name_key_tl - ####1 - remark)
                            { \l__tikzcalendarnotes_dateremark_tmp_tl } ;
                      }
                  }
                  
                \bool_if:NF \l__tikzcalendarnotes_compact_key_bool
                  {
                    \prop_get:cnNT 
                      {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                      {notes} \l__tikzcalendarnotes_notes_tmp_tl
                      {
                        \prop_get:cnNF 
                          {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                          {note style} \l__tikzcalendarnotes_notestyle_tmp_tl
                          {
                            \tl_set:Nn \l__tikzcalendarnotes_notestyle_tmp_tl {}
                          }
                          
                        \tl_set:Nn \l__tikzcalendarnotes_TYshift_tmp_tl 
                          {\l__tikzcalendarnotes_TYshift_scaled_tl}
                          
                        \__tikzcalendarnotes_shift_adjust_tl_set:NV
                          \l__tikzcalendarnotes_TYshift_tmp_tl
                          \l__tikzcalendarnotes_remark_Yshift_adj_pgfkey_tl

                        \use:e
                          {
                            \exp_not:N\draw
                              (\l__tikzcalendarnotes_cal_name_key_tl - ####1 . south~ west) 
                              ++(0pt,\l__tikzcalendarnotes_TYshift_tmp_tl)
                              node
                                [anchor=north~ west , every~ note , \l__tikzcalendarnotes_notestyle_tmp_tl]
                                (\l__tikzcalendarnotes_cal_name_key_tl - ####1 - note)
                                {
                                  \exp_not:N\__tizecalendarnotes_notes_typeset:nn
                                    {
                                       \l__tikzcalendarnotes_dayspacing_Xshift_key_tl 
                                    }
                                    {\exp_not:N\noindent \l__tikzcalendarnotes_notes_tmp_tl }
    
                                } ;
                          }
                      }          
                  }
              }
          }



        \seq_map_inline:cn { l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _range_seq}
          {
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {from} \l__tikzcalendarnotes_from_tmp_tl
              
            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {to} \l__tikzcalendarnotes_to_tmp_tl 
                         
            \prop_get:cnNF 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {draw style} \l__tikzcalendarnotes_drawstyle_tmp_tl
              {
                \tl_set:Nn \l__tikzcalendarnotes_drawstyle_tmp_tl {}
              }
              
            \__tikzcalendarnotes_setflag_ifdatenode_exist:NV 
              \l_tmpa_bool 
              {\l__tikzcalendarnotes_from_tmp_tl}
              
            \__tikzcalendarnotes_setflag_ifdatenode_exist:NV 
              \l_tmpb_bool 
              {\l__tikzcalendarnotes_to_tmp_tl}

            \bool_lazy_and:nnT {\l_tmpa_bool} {\l_tmpb_bool}
              {
                \prop_get:cnNT 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {round} \l_tmpa_tl
                  {
                    \__tikzcalendarnotes_markdraw_range:eeee 
                      {
                        every~ mark , 
                        rounded~ corners=\l__tikzcalendarnotes_radius_tmp_tl , 
                        \l__tikzcalendarnotes_drawstyle_tmp_tl
                      }
                      {\l__tikzcalendarnotes_radius_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - \l__tikzcalendarnotes_from_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - \l__tikzcalendarnotes_to_tmp_tl}
                  }
                  
                \prop_get:cnNT 
                  {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                  {square} \l_tmpa_tl
                  {
                    \__tikzcalendarnotes_markdraw_range:eeee 
                      {
                        every~ mark , 
                        \l__tikzcalendarnotes_drawstyle_tmp_tl
                      }
                      {\l__tikzcalendarnotes_radius_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - \l__tikzcalendarnotes_from_tmp_tl}
                      {\l__tikzcalendarnotes_cal_name_key_tl - \l__tikzcalendarnotes_to_tmp_tl}
                }
              }
%%%           

            \prop_get:cnN 
              {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
              {date ref} \l__tikzcalendarnotes_dateref_tmp_tl

            \__tikzcalendarnotes_setflag_ifdatenode_exist:NV 
              \l_tmpa_bool 
              { \l__tikzcalendarnotes_dateref_tmp_tl }

            \bool_if:NT \l_tmpa_bool 
            {
              \prop_get:cnNT 
                {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                {remark} \l__tikzcalendarnotes_dateremark_tmp_tl
                {
                  \prop_get:cnNF 
                    {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                    {remark style} \l__tikzcalendarnotes_remarkstyle_tmp_tl
                    {
                      \tl_set:Nn \l__tikzcalendarnotes_remarkstyle_tmp_tl 
                        {}
                    }
                    
                  \prop_get:cnN   
                    {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                    {remark posref} \l__tikzcalendarnotes_remarkposref_tmp_tl
                    
                  \prop_get:cnN 
                    {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                    {remark anchor} \l__tikzcalendarnotes_remarkanchor_tmp_tl
                    
                  \prop_get:cnN 
                    {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                    {TX shift} \l__tikzcalendarnotes_TXshift_tmp_tl
                    
                  \__tikzcalendarnotes_shift_adjust_tl_set:NV
                    \l__tikzcalendarnotes_TXshift_tmp_tl
                    \l__tikzcalendarnotes_remark_Xshift_adj_pgfkey_tl
                    
                  \prop_get:cnN 
                    {l__tikzcalendarnotes_ \l__tikzcalendarnotes_active_dataset_tl _ ####1 _prop}
                    {TY shift} \l__tikzcalendarnotes_TYshift_tmp_tl
                    
                  \__tikzcalendarnotes_shift_adjust_tl_set:NV
                    \l__tikzcalendarnotes_TYshift_tmp_tl 
                    \l__tikzcalendarnotes_remark_Yshift_adj_pgfkey_tl
  
                  \use:e
                    {
                      \exp_not:N\draw
                        (\l__tikzcalendarnotes_cal_name_key_tl -  \l__tikzcalendarnotes_dateref_tmp_tl . \l__tikzcalendarnotes_remarkposref_tmp_tl) 
                        ++(\l__tikzcalendarnotes_TXshift_tmp_tl ,\l__tikzcalendarnotes_TYshift_tmp_tl) 
                        node
                          [anchor=\l__tikzcalendarnotes_remarkanchor_tmp_tl , every~ remark , \l__tikzcalendarnotes_remarkstyle_tmp_tl]
                          (\l__tikzcalendarnotes_cal_name_key_tl - \l__tikzcalendarnotes_dateref_tmp_tl - remark)
                          { \l__tikzcalendarnotes_dateremark_tmp_tl } ;
                    }
                }
              }
%%%              
          }
      }      
  }
  
\cs_generate_variant:Nn \__tikzcalendarnotes_draw_notes:n {e}


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%  End user's commands
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%


\NewDocumentCommand{\defnewdataset}{m}
  {
    \__tikzcalendarnotes_new_dataset:n {#1}
  }  


\NewDocumentCommand{\setdates}{O{default}m}
  {
    \__tikzcalendarnotes_reset_defaults:
    
    \bool_set_true:N \l__tikzcalendarnotes_date_case_bool 
    \tl_set:Nn \l__tikzcalendarnotes_msg_submodule_tl 
      {date not set}

    \__tikzcalendarnotes_select_dataset:n {#1}
    \keys_set:nn 
      {tikzcalendarnotes / date set}
      {#2}   
  }

\NewDocumentCommand{\sethighlightdates}{O{default}m}
  {
    \__tikzcalendarnotes_reset_defaults:
    
    \bool_set_true:N \l__tikzcalendarnotes_hldates_case_bool 
      %{\c_true_bool}  

    \__tikzcalendarnotes_select_dataset:n {#1}
    \keys_set:nn 
      {tikzcalendarnotes / hl dates set}
      {#2}   
  }


\NewDocumentCommand{\setranges}{O{default}m}
  {
    \__tikzcalendarnotes_reset_defaults:
    
    \bool_set_true:N \l__tikzcalendarnotes_range_case_bool 
    \tl_set:Nn \l__tikzcalendarnotes_msg_submodule_tl 
      {range not set}

    \__tikzcalendarnotes_select_dataset:n {#1}
    \keys_set:nn 
      {tikzcalendarnotes / range set}
      {#2}   
  }



\NewDocumentCommand{\setcountingweeks}{O{default}m}
  {
    \__tikzcalendarnotes_reset_defaults:

    \bool_set_true:N \l__tikzcalendarnotes_cntweek_case_bool 
    \tl_set:Nn \l__tikzcalendarnotes_msg_submodule_tl 
      {range not set}

    \__tikzcalendarnotes_select_dataset:n {#1}
    \keys_set:nn 
      {tikzcalendarnotes / cnt week set}
      {#2}   

   \bool_if:nT 
    {\l__tikzcalendarnotes_from_set_flag_bool && \l__tikzcalendarnotes_to_set_flag_bool}
    {
      \__tikzcalendarnotes_try_insert_cntweek:ee {\l__tikzcalendarnotes_from_key_tl}{\l__tikzcalendarnotes_to_key_tl}  
    }   
  }

\NewDocumentCommand{\suppresscounting}{O{default}m}
  {
     \__tikzcalendarnotes_reset_defaults:
    \bool_set_true:N \l__tikzcalendarnotes_nocntweek_case_bool 
      %{\c_true_bool}  
    \tl_set:Nn \l__tikzcalendarnotes_msg_submodule_tl 
      {range not set}

    \__tikzcalendarnotes_select_dataset:n {#1}
    \keys_set:nn 
      {tikzcalendarnotes / no cnt week set}
      {#2}   

   \bool_if:nT 
    {\l__tikzcalendarnotes_from_set_flag_bool && \l__tikzcalendarnotes_to_set_flag_bool}
    {
      \__tikzcalendarnotes_try_insert_no_cntweek:ee {\l__tikzcalendarnotes_from_key_tl}{\l__tikzcalendarnotes_to_key_tl}  
    }
  }


\cs_new_protected:Npn \__tikzcalendarnotes_prepare_style:nn #1#2
  {

    \pgfkeys{tikz , #1}

    \__tikzcalendarnotes_set_dim_constants:
    
    \keys_set:nn
      {tikzcalendarnotes}
      {defaults , #2}
      
    \tl_set:Ne \l__tikzcalendarnotes_begin_iso_tl 
      {
        \l__tikzcalendarnotes_year_key_tl -
        \l__tikzcalendarnotes_starting_at_key_tl - 01
      }
      
  }


\NewDocumentCommand{\calendarnotesprepare}{O{}m}
  {
    \__tikzcalendarnotes_prepare_style:nn 
      {#1}{#2}
  }

\NewDocumentCommand{\calendarnotessetifs}{}
  {
    \__tikzcalendarnotes_set_ifdates:e 
      {\l__tikzcalendarnotes_dataset_key_tl}
  }

\NewDocumentCommand{\calendarnotesdraw}{}
  {
    \__tikzcalendarnotes_draw_notes:e 
      {\l__tikzcalendarnotes_dataset_key_tl}
  }
  
\NewDocumentCommand{\calendarnotesmatrix}{}
  {
    \matrix[column~ sep=\l__tikzcalendarnotes_inter_month_space_key_tl pt, 
            row~ sep=0.7*\l__tikzcalendarnotes_inter_month_space_key_tl pt] 
      {
        \__tikzcalendarnotes_month_matrix:nnnn
          {\l__tikzcalendarnotes_year_key_tl}
          {\l__tikzcalendarnotes_starting_at_key_tl}
          {\l__tikzcalendarnotes_nmonths_key_tl}
          {\l__tikzcalendarnotes_perline_key_tl} 
      } ;
  }  
  
\NewDocumentCommand{\calendarnotes}{O{}m}
  {
    \__tikzcalendarnotes_prepare_style:nn {#1}{#2}
    
    \__tikzcalendarnotes_set_ifdates:e 
      {\l__tikzcalendarnotes_dataset_key_tl}

    \matrix[column~ sep=\l__tikzcalendarnotes_inter_month_space_key_tl pt, 
            row~ sep=0.7*\l__tikzcalendarnotes_inter_month_space_key_tl pt] 
      {
        \__tikzcalendarnotes_month_matrix:nnnn
          {\l__tikzcalendarnotes_year_key_tl}
          {\l__tikzcalendarnotes_starting_at_key_tl}
          {\l__tikzcalendarnotes_nmonths_key_tl}
          {\l__tikzcalendarnotes_perline_key_tl} 
      } ;
      
    \__tikzcalendarnotes_draw_notes:e 
      {\l__tikzcalendarnotes_dataset_key_tl}

  }


%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%
%%
%%
%%
%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%



\cs_new_protected:Npn \__tikzcalendarnotes_test_jan_first: 
  {
    \int_compare:nNnT {\pgfcalendarifdateday} = {1}
      {
        \int_compare:nNnT {\pgfcalendarifdatemonth} = {1}
          { \pgfcalendarmatchestrue }
      }
  }


\cs_new_protected:Npn \__tikzcalendarnotes_test_year_start: 
  {
    \bool_if:NTF \g__tikzcalendarnotes_firstdraw_bool
      { 
        \bool_gset_false:N \g__tikzcalendarnotes_firstdraw_bool 
        \pgfcalendarmatchestrue 
      }
      { \__tikzcalendarnotes_test_jan_first: }
  }


\cs_new_protected:Npn \__tikzcalendarnotes_test_week_start_or_first:n #1
  {
    \bool_lazy_or:nnTF 
      {
        \int_compare_p:nNn {\pgfcalendarifdateweekday} = {#1}
      } 
      {
        \int_compare_p:nNn {\pgfcalendarifdateday} = {1}
      }
      { \pgfcalendarmatchestrue }
      {}
  }


\cs_generate_variant:Nn \str_range:nnn {enn}

\cs_new_protected:Npn \__tikzcalendarnotes_set_day_acro:NNn #1#2#3
  {
    \int_set:Nn \l_tmpa_int {#3}
    \int_sub:Nn \l_tmpa_int {\l__tikzcalendarnotes_weeklist_delta_int}
    \int_compare:nNnT {\l_tmpa_int} < {0}
      {
        \int_add:Nn \l_tmpa_int {7}
      }   
    \tl_set:Ne #1 {\str_range:enn {\pgfcalendarweekdayname{\int_use:N \l_tmpa_int}}{1}{2}}
    \int_compare:nNnTF {\l_tmpa_int} > {4}
      {
        \int_compare:nNnTF {\l_tmpa_int} = {5}
          {
            \tl_set:Nn #2 {@calnotes@saturday~ fmt}
          }
          {
            \tl_set:Nn #2 {@calnotes@sunday~ fmt}
          }
      }
      {
        \tl_set:Nn #2 {}
      }
  }


\cs_new_protected:Npn \__tikzcalendarnotes_weeklist_set:nnnn #1#2#3#4
  {
    \int_set:Nn \l__tikzcalendarnotes_weeklist_delta_int {#1}
    \tl_set:Nn \l__tikzcalendarnotes_weeklist_starts_on_tl {#2}
    \tl_set:Nn \l__tikzcalendarnotes_weeklist_ends_on_tl {#3}
    \int_set:Nn \l__tikzcalendarnotes_weeklist_starts_on_int {#4}
    
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_A_tl \l__tikzcalendarnotes_day_A_style_tl {0}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_B_tl \l__tikzcalendarnotes_day_B_style_tl {1}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_C_tl \l__tikzcalendarnotes_day_C_style_tl {2}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_D_tl \l__tikzcalendarnotes_day_D_style_tl {3}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_E_tl \l__tikzcalendarnotes_day_E_style_tl {4}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_F_tl \l__tikzcalendarnotes_day_F_style_tl {5}
    \__tikzcalendarnotes_set_day_acro:NNn \l__tikzcalendarnotes_day_G_tl \l__tikzcalendarnotes_day_G_style_tl {6}

  }

%
% make at letter needed due the many pfg variables/constants at use.
%
\makeatletter


\cs_new_protected:Npn \__tikzcalendarnotes_drawyear:
  {
    \pgftransformxshift{-\tikz@lib@cal@xshift}
    \tikzyearcode  % \tikzyearcode is defined by default
    \pgftransformxshift{\tikz@lib@cal@xshift}
  }

\cs_new_protected:Npn \__tikzcalendarnotes_day_xshift:
  {
    \int_set:Nn \l_tmpa_int {\pgfcalendarcurrentweekday + \l__tikzcalendarnotes_weeklist_delta_int}
    \int_compare:nNnT {\l_tmpa_int} > {6}
      { \int_sub:Nn \l_tmpa_int {7} }
    \pgftransformxshift{ \int_use:N\l_tmpa_int * \tikz@lib@cal@xshift }
  }


\cs_new_protected:Npn \__tikzcalendarnodes_daynames_draw:
  {
    \begin{scope}
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_A_style_tl]{\l__tikzcalendarnotes_day_A_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_B_style_tl]{\l__tikzcalendarnotes_day_B_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_C_style_tl]{\l__tikzcalendarnotes_day_C_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_D_style_tl]{\l__tikzcalendarnotes_day_D_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_E_style_tl]{\l__tikzcalendarnotes_day_E_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_F_style_tl]{\l__tikzcalendarnotes_day_F_tl};
    \pgftransformxshift{ \tikz@lib@cal@xshift }
    \node[every~ day,every~ day~ name,\l__tikzcalendarnotes_day_G_style_tl]{\l__tikzcalendarnotes_day_G_tl};
    \end{scope}
    \pgftransformyshift{ -0.85*\tikz@lib@cal@yshift}
  }


\pgfkeys{tikz , 
	calendar~ notes/.style =
    {
  		remember~ picture , 
  		every~ calendar/.style =
        { week~ starts~ on~ x } ,
      month~ text = {\%mt} ,
      every~ month/.style =
        {
          font = \bfseries\itshape ,
        } ,
      day~ text = 
        { \%d0 } ,
  	} , 
  }
  
\pgfkeys{tikz , 
    % 'execute before day scope' is cumulative. 'new style' needed to fully change calendar's behaviour
  day~ names~ on~ top/.style =
    {
     	week~ starts~ on~ x/.append~ style =
        {
          execute~ before~ day~ scope =
            {
              \ifdate{ day~ of~ month = 1 }
                { \__tikzcalendarnodes_daynames_draw: }
                {}
            } ,
        } ,
    } ,
  every~ day~ name/.style =
    {
      font = {\scriptsize\itshape}
    } ,
  }
  
\pgfkeys{tikz , 
	week~ starts~ on~ x/.style =
    {
      execute~ before~ day~ scope =
        {
    			\ifdate{ day~ of~ month = 1 }
            { % On first of month , except when first date in calendar.
      				\ifdate{ equals = \pgfcalendarbeginiso }
                {}
                { \pgftransformyshift{ -\tikz@lib@cal@month@yshift } }
    			  }
            {}
        } , 
        % glancing from the source code.
      tikz@lib@cal@width = 7 , 
      %
      execute~ at~ begin~ day~ scope =
        { \__tikzcalendarnotes_day_xshift: } , 
      execute~ after~ day~ scope =
        {      % shift to the next line , if end of weeklist
          \ifdate{ \l__tikzcalendarnotes_weeklist_ends_on_tl }
            { \pgftransformyshift{ -\tikz@lib@cal@yshift } }
            {}
        } , 
    } , 
    %
    %
  week~ starts~ monday/.code =
    {
      \__tikzcalendarnotes_weeklist_set:nnnn{0}{Monday}{Sunday}{0}
    } ,
  week~ starts~ sunday/.code =
    {
      \__tikzcalendarnotes_weeklist_set:nnnn{1}{Sunday}{Saturday}{6}
    } ,
  week~ starts~ sunday ,
    %
  }
  
\pgfkeys{tikz , 
  @calnotes@sunday~ fmt/.style = 
    {} ,
    %
  every~ sunday/.style = 
    {
      every~ calendar/.append~ style =
        {
          if = {(Sunday)~ [#1]}
        } ,
      @calnotes@sunday~ fmt/.append~ style = {#1} ,
    } ,
    %
  @calnotes@saturday~ fmt/.style =
    {} ,
    %
  every~ weekend/.style = 
    {
      every~ calendar/.append~ style =
        {
          if = {(weekend)~ [#1]}
        } ,
      @calnotes@saturday~ fmt/.append~ style = {#1} ,
      @calnotes@sunday~ fmt/.append~ style = {#1} ,
    } ,
  }
  
  

\pgfkeys{tikz , 
    % hidden style for drawing the year , 
    % it draws it for January and "first month drawn" (which depends on a _bool variable)
	/pgf/calendar/@calnotes@start~ @of~ @year/.code =
    { \__tikzcalendarnotes_test_year_start: } , 
    %
   
  @calnotes@set~ firstdraw~ flag~ @true/.code =
    {
      \bool_gset_true:N \g__tikzcalendarnotes_firstdraw_bool 
          %{\c_true_bool}
    } ,
    
  @calnotes@set~ firstdraw~ flag~ @false/.code =
    {
      \bool_gset_false:N \g__tikzcalendarnotes_firstdraw_bool 
          %{\c_false_bool}
    } ,
    
  @calnotes@set~ year~ policy~ true@/.code =
    {
      \bool_set_true:N \l__tikzcalendarnotes_year_policy_set_bool
    } ,
    
  @calnotes@set~ year~ policy~ if~ not~ set@/.code =
    {
      \bool_if:NF \l__tikzcalendarnotes_year_policy_set_bool
        {
          \bool_set_true:N \l__tikzcalendarnotes_year_policy_set_bool
          \pgfkeys{tikz,year~ label~ by~ january~ and~ start}
        }
    } ,
    
  @calnotes@set~ year~ label~ true@/.code =
    {
      \bool_set_true:N \l__tikzcalendarnotes_year_label_set_bool
    } ,
    
  @calnotes@set~ year~ label~ if~ not~ set@/.code =
    {
      \bool_if:NF \l__tikzcalendarnotes_year_label_set_bool
        {
          \bool_set_true:N \l__tikzcalendarnotes_year_label_set_bool
          \pgfkeys{tikz,year~ label~ left}
        }
    } ,
    
  year~ label~ by~ january~ and~ start/.style = 
    {
      @calnotes@set~ firstdraw~ flag~ @true ,
      @calnotes@set~ year~ policy~ true@ ,
      @calnotes@set~ year~ label~ if~ not~ set@ ,
      execute~ before~ day~ scope =
        {
          \ifdate{@calnotes@start~ @of~ @year}
            { \__tikzcalendarnotes_drawyear: }
            {}
        } , 
    } ,
    
  year~ label~ by~ january~ only/.style =
    {
      @calnotes@set~ firstdraw~ flag~ @false ,
      @calnotes@set~ year~ policy~ true@ ,
      @calnotes@set~ year~ label~ if~ not~ set@ ,
      execute~ before~ day~ scope =
        {
          \ifdate{@calnotes@start~ @of~ @year}
            { \__tikzcalendarnotes_drawyear: }
            {}
        } , 
    } ,
    
    % Style forcing an year label.
	year~ label~ every~ month/.style=
    {
      @calnotes@set~ year~ policy~ true@ ,
      @calnotes@set~ year~ label~ if~ not~ set@ ,
  		execute~ before~ day~ scope =
        {
  			  \ifdate{day~ of~ month = 1}
            { \__tikzcalendarnotes_drawyear: }
            {}
        }
    } , 
  
	year~ label~ left/.style =
    {
      @calnotes@set~ year~ label~ true@ ,
      @calnotes@set~ year~ policy~ if~ not~ set@ ,
      every~ year/.append~ style =
        { 
          anchor = north~ east ,
        } , 
  	} , 
  
	year~ label~ left~ vertical/.style =
    {
      @calnotes@set~ year~ label~ true@ ,
      @calnotes@set~ year~ policy~ if~ not~ set@ ,
      every~ year/.append~ style =
        { 
          anchor = south ,
          rotate = 90 ,
        } , 
  	} , 
    
	year~ label~ left~ corner/.style =
    {
      @calnotes@set~ year~ label~ true@ ,
      @calnotes@set~ year~ policy~ if~ not~ set@ ,
      every~ year/.append~ style =
        { 
          anchor = south ,
          rotate = 45 ,
        } , 
  	} , 
  
  every~ year/.style = 
    { font = \Large\sffamily\bfseries, green!50!black } ,
  }
  
\pgfkeys{tikz , 
  every~ mark/.style =
    { thin , gray } ,
  every~ remark/.style =
    { 
      font = 
        \fontsize{3.5}{4.2}
        \selectfont 
    } ,    
  every~ counter/.style =
    {
      every~ remark
    } ,
  keep~ counters/.code =
    {
      \bool_set_true:N \l__tikzcalendarnotes_keep_counters_pgfkey_bool
    } ,
  @calnotes@note@fontsize/.code = 
    {
      \tl_set:Nn \l__tikzcalendarnotes_notes_fontsize_pgfkey_tl {#1}
    } ,
  every~ note/.style =
    { 
      font = 
        \fontsize{4.5}{4.95}
        \selectfont 
    } ,    
  @calnotes@note@fontsize = 4.5 ,
  remarks~ font size/.style =
    {
      every~ remark/.append~ style =
        {
          font = 
            \fontsize{#1}{\fp_eval:n {1.1*#1}}
            \selectfont 
        }
    } ,
  remarks~ font size/.value~ required ,
  %
  notes~ font size/.style =
    {
      @calnotes@note@fontsize = {#1} ,
      every~ note/.append~ style =
        {
          font = 
            \fontsize{#1}{\fp_eval:n {1.1*#1}}
            \selectfont 
        }
    } ,
  notes~ font size/.value~ required ,
  %
  }
  
\pgfkeys{tikz , 
  Xshift~ adjust/.code =
    {
      \tl_set:Nn \l__tikzcalendarnotes_remark_Xshift_adj_pgfkey_tl {#1 pt}
    } ,
  Xshift~ adjust/.value~ required ,
  %
  Yshift~ adjust/.code =
    {
      \tl_set:Nn \l__tikzcalendarnotes_remark_Yshift_adj_pgfkey_tl {#1 pt}
    } ,
  Yshift~ adjust/.value~ required ,
  %
  radius~ adjust/.code =
    {
      \tl_set:Nn \l__tikzcalendarnotes_radius_adj_pgfkey_tl {#1 pt}
    } ,
  radius~ adjust/.value~ required ,
  %
  radius~ adjust = 0,
  Xshift~ adjust = 0,
  Yshift~ adjust = 0,
 }