1 files changed, 31 insertions, 0 deletions
diff --git a/tex/context/base/attr-neg.mkiv b/tex/context/base/attr-neg.mkiv
new file mode 100644
index 000000000..20a1489c3
--- /dev/null
+++ b/tex/context/base/attr-neg.mkiv
@@ -0,0 +1,31 @@
+%D \module
+%D   [       file=attr-neg,
+%D        version=2007.06.06,
+%D          title=\CONTEXT\ Attribute Macros,
+%D       subtitle=Negation,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright=PRAGMA-ADE]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\writestatus{loading}{ConTeXt Attribute Macros / Negation}
+
+\registerctxluafile{attr-neg}{1.001}
+
+\unprotect
+
+\def\registernegative#1#2%
+  {\setevalue{(ns:#1)}{\attribute\negativeattribute\ctxlua{tex.write(attributes.negatives.register('#2'))}\relax}}
+
+\def\dotriggernegative
+  {\ctxlua{attributes.negatives.enable()}%
+   \gdef\dotriggernegative##1{\csname(ns:##1)\endcsname}%
+   \dotriggernegative}
+
+\registernegative{positive}{positive}
+\registernegative{negative}{negative}
+
+\protect \endinput