Function: majutsu-template--type-supports-capability-p

majutsu-template--type-supports-capability-p is a natively compiled function defined in majutsu-template.el.

Signature

(majutsu-template--type-supports-capability-p ACTUAL EXPECTED)

Documentation

Return non-nil if ACTUAL satisfies capability-style EXPECTED.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-template.el
(defun majutsu-template--type-supports-capability-p (actual expected)
  "Return non-nil if ACTUAL satisfies capability-style EXPECTED."
  (setq actual (majutsu-template--type-ref-normalize actual)
        expected (majutsu-template--type-ref-normalize expected))
  (let ((actual-base (majutsu-template--type-ref-base-type actual))
        (expected-base (majutsu-template--type-ref-base-type expected)))
    (pcase expected-base
      ('Any t)
      ('Template
       (or (eq actual-base 'Template)
           (majutsu-template--type-explicitly-converts-to-p actual-base 'Template)))
      ('Stringify
       (or (eq actual-base 'Stringify)
           (majutsu-template--type-explicitly-converts-to-p actual-base 'Template)))
      ('Serialize
       (or (eq actual-base 'Serialize)
           (majutsu-template--type-explicitly-converts-to-p actual-base 'Serialize)))
      (_ nil))))