Add Adw.MessageDialog responses extension

blueprintcompiler/language/adw_message_dialog.py

@@ -0,0 +1,131 @@
+# adw_message_dialog.py
+#
+# Copyright 2023 James Westman <james@jwestman.net>
+#
+# This file is free software; you can redistribute it and/or modify it
+# under the terms of the GNU Lesser General Public License as
+# published by the Free Software Foundation; either version 3 of the
+# License, or (at your option) any later version.
+#
+# This file is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# SPDX-License-Identifier: LGPL-3.0-or-later
+
+
+from ..decompiler import truthy, decompile_translatable
+from .common import *
+from .contexts import ValueTypeCtx
+from .gobject_object import ObjectContent, validate_parent_type
+from .values import QuotedLiteral, Translated
+
+
+class Response(AstNode):
+    grammar = [
+        UseIdent("id"),
+        Match(":").expected(),
+        AnyOf(QuotedLiteral, Translated).expected("a value"),
+        ZeroOrMore(
+            AnyOf(Keyword("destructive"), Keyword("suggested"), Keyword("disabled"))
+        ),
+    ]
+
+    @property
+    def id(self) -> str:
+        return self.tokens["id"]
+
+    @property
+    def appearance(self) -> T.Optional[str]:
+        if "destructive" in self.tokens:
+            return "destructive"
+        if "suggested" in self.tokens:
+            return "suggested"
+        return None
+
+    @property
+    def enabled(self) -> bool:
+        return "disabled" not in self.tokens
+
+    @property
+    def value(self) -> T.Union[QuotedLiteral, Translated]:
+        return self.children[0]
+
+    @context(ValueTypeCtx)
+    def value_type(self) -> ValueTypeCtx:
+        return ValueTypeCtx(StringType())
+
+    @validate("id")
+    def unique_in_parent(self):
+        self.validate_unique_in_parent(
+            f"Duplicate response ID '{self.id}'",
+            check=lambda child: child.id == self.id,
+        )
+
+
+class Responses(AstNode):
+    grammar = [
+        Keyword("responses"),
+        Match("[").expected(),
+        Delimited(Response, ","),
+        "]",
+    ]
+
+    @property
+    def responses(self) -> T.List[Response]:
+        return self.children
+
+    @validate("responses")
+    def container_is_message_dialog(self):
+        validate_parent_type(self, "Adw", "MessageDialog", "responses")
+
+    @validate("responses")
+    def unique_in_parent(self):
+        self.validate_unique_in_parent("Duplicate responses block")
+
+
+@completer(
+    applies_in=[ObjectContent],
+    applies_in_subclass=("Adw", "MessageDialog"),
+    matches=new_statement_patterns,
+)
+def style_completer(ast_node, match_variables):
+    yield Completion(
+        "responses", CompletionItemKind.Keyword, snippet="responses [\n\t$0\n]"
+    )
+
+
+@decompiler("responses")
+def decompile_responses(ctx, gir):
+    ctx.print(f"responses [")
+
+
+@decompiler("response", cdata=True)
+def decompile_response(
+    ctx,
+    gir,
+    cdata,
+    id,
+    appearance=None,
+    enabled=None,
+    translatable=None,
+    context=None,
+    comments=None,
+):
+    comments, translated = decompile_translatable(
+        cdata, translatable, context, comments
+    )
+    if comments is not None:
+        ctx.print(comments)
+
+    flags = ""
+    if appearance is not None:
+        flags += f" {appearance}"
+    if enabled is not None and not truthy(enabled):
+        flags += " disabled"
+
+    ctx.print(f"{id}: {translated}{flags},")