Skip to content

Commit

Permalink
Create OLL.global property set
Browse files Browse the repository at this point in the history
This is renamed from OLL.configurations (or OLL.presets)
and will now be used for other OLL behavioural settings (see #56)
  • Loading branch information
uliska committed Jul 16, 2020
1 parent b34dd12 commit 22e00e1
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions internal/properties.ily
Original file line number Diff line number Diff line change
Expand Up @@ -322,7 +322,7 @@ Skipping definition."
(os-path-join-dots propset-path)))))


\definePropertySet OLL.configurations #'()
\definePropertySet OLL.global #'()

#(define (merge-configuration-filters global by-propset)
(let*
Expand Down Expand Up @@ -359,13 +359,13 @@ Skipping definition."
#(define (use-by-configuration propset-path props)
"Property available inside a with-property-set generated function.
Determines whether the configuration (given or not) allows the application
of the function regarding the OLL.configurations use-configurations/ignore-configurations
of the function regarding the OLL.global use-configurations/ignore-configurations
properties.
NOTE: This is always available as a check that returns #t or #f,
but it is the responsibility of the function to act upon the information."
(let*
((configuration (assq-ref props 'configuration))
(_global (get-propset-configuration-filters '(OLL configurations)))
(_global (get-propset-configuration-filters '(OLL global)))
(_by-propset (get-propset-configuration-filters propset-path))
(_configuration-filters (merge-configuration-filters _global _by-propset))
(use-configurations-prop (assq-ref _configuration-filters 'use-only-configurations))
Expand Down

0 comments on commit 22e00e1

Please sign in to comment.