UI

build.sbt

@@ -1,15 +1,19 @@
-ThisBuild / version := "0.1.0-RC"
+import Dependencies.dependencies
+
+ThisBuild / version := "0.1.0-RC2-SNAPSHOT"
 
 ThisBuild / scalaVersion := "2.13.8"
 
-assemblyJarName in assembly := "chi-0.1.0-rc.jar"
+assemblyJarName in assembly := "chi-0.1.0-rc2-snapshot.jar"
 
 lazy val root = (project in file("."))
   .settings(
     name := "chi",
-    libraryDependencies ++= Seq(
-      "org.scala-lang.modules" % "scala-parser-combinators_2.13" % "2.1.1",
-      "org.scalactic"          %% "scalactic"                    % "3.2.11",
-      "org.scalatest"          %% "scalatest"                    % "3.2.11" % "test"
-    )
+    libraryDependencies ++= dependencies
   )
+
+// Fix deduplication error during merge (see https://stackoverflow.com/questions/25144484/sbt-assembly-deduplication-found-error)
+assemblyMergeStrategy in assembly := {
+  case PathList("META-INF", xs @ _*) => MergeStrategy.discard
+  case x                             => MergeStrategy.first
+}

project/Dependencies.scala

@@ -0,0 +1,17 @@
+import sbt._
+
+object Dependencies {
+  lazy val testDependencies = Seq(
+    "org.scalactic" %% "scalactic" % "3.2.11",
+    "org.scalatest" %% "scalatest" % "3.2.11" % "test",
+  )
+
+  lazy val uiDependencies = Seq(
+    "com.github.weisj" % "darklaf-core" % "2.7.3",
+    "com.fifesoft" % "rsyntaxtextarea" % "3.2.0"
+  )
+
+  lazy val dependencies = Seq(
+    "org.scala-lang.modules" % "scala-parser-combinators_2.13" % "2.1.1",
+  ) ++ testDependencies ++ uiDependencies
+}

src/main/scala/com/melvic/chi/Main.scala

@@ -1,11 +1,25 @@
 package com.melvic.chi
 
-import scala.annotation.tailrec
-import scala.io.StdIn.readLine
+import com.github.weisj.darklaf.LafManager
+import com.github.weisj.darklaf.theme.DarculaTheme
+import com.melvic.chi.views.menus.MainView
+
+import javax.swing.SwingUtilities
 
 //noinspection SpellCheckingInspection
 object Main {
-  def main(args: Array[String]): Unit = {
-    Repl()
-  }
+  def main(args: Array[String]): Unit =
+    args match {
+      case Array("repl", _ @_*) => Repl()
+      case _                    => runUI()
+    }
+
+  def runUI(): Unit =
+    SwingUtilities.invokeLater(new Runnable() {
+      LafManager.install(new DarculaTheme)
+
+      override def run(): Unit = {
+        new MainView(generateAndShow).setVisible(true)
+      }
+    })
 }

src/main/scala/com/melvic/chi/eval/package.scala

@@ -0,0 +1,10 @@
+package com.melvic.chi
+
+import com.melvic.chi.out.Result
+
+package object eval {
+  type Evaluate = String => String
+
+  def generateAndShow: Evaluate = code =>
+    Result.show(CodeGen.fromSignatureString(code))
+}

src/main/scala/com/melvic/chi/package.scala

@@ -5,7 +5,7 @@ import com.melvic.chi.out.Result
 
 package object chi {
   type Result[A] = Result.Result[A]
+  type Evaluate = eval.Evaluate
 
-  def generateAndShow(code: String): String =
-    Result.show(CodeGen.fromSignatureString(code))
+  val generateAndShow = eval.generateAndShow
 }

src/main/scala/com/melvic/chi/views/AreaView.scala

@@ -0,0 +1,29 @@
+package com.melvic.chi.views
+
+import org.fife.ui.rsyntaxtextarea.{RSyntaxTextArea, Style, SyntaxConstants, Token, TokenTypes}
+import org.fife.ui.rtextarea.RTextScrollPane
+import org.fife.ui.rsyntaxtextarea.Theme
+import java.io.IOException
+
+import java.awt.{Color, Font}
+
+class AreaView extends RSyntaxTextArea(50, 50) {
+  setSyntaxEditingStyle(SyntaxConstants.SYNTAX_STYLE_SCALA)
+  setCodeFoldingEnabled(true)
+
+  updateStyle()
+  setFont(new Font(getFont.getName, getFont.getStyle, 16))
+
+  private def updateStyle(): Unit =
+    try {
+      val theme = Theme.load(getClass.getResourceAsStream("/org/fife/ui/rsyntaxtextarea/themes/dark.xml"))
+      theme.apply(this)
+    } catch {
+      case ioe: IOException =>
+        ioe.printStackTrace()
+    }
+}
+
+object AreaView {
+  def withScrollPane = new RTextScrollPane(new AreaView)
+}

src/main/scala/com/melvic/chi/views/EditorView.scala

@@ -0,0 +1,46 @@
+package com.melvic.chi.views
+
+import com.melvic.chi.Evaluate
+
+import java.awt.BorderLayout
+import java.awt.event.{KeyEvent, KeyListener}
+import javax.swing.{JPanel, JSplitPane}
+
+class EditorView(evaluate: Evaluate) extends JPanel {
+  val inputView = AreaView.withScrollPane
+  val outputView = {
+    val out = AreaView.withScrollPane
+    out.getTextArea.setEditable(false)
+    out
+  }
+
+  private val splitPane = {
+    val splitPane = new JSplitPane(JSplitPane.HORIZONTAL_SPLIT, inputView, outputView)
+    splitPane.setOneTouchExpandable(true)
+    splitPane.setResizeWeight(0.5)
+    splitPane
+  }
+
+  setLayout(new BorderLayout)
+  add(splitPane, BorderLayout.CENTER)
+
+  inputView.getTextArea.addKeyListener(new KeyListener {
+    override def keyTyped(e: KeyEvent): Unit = {}
+
+    override def keyPressed(e: KeyEvent): Unit = {}
+
+    override def keyReleased(e: KeyEvent): Unit = run()
+  })
+
+  def run(): Unit = {
+    val programs = inputView.getTextArea.getText.split("\n")
+    val outputs = programs.map(_.trim).filter(_.nonEmpty).map(evaluate)
+    outputView.getTextArea.setText(outputs.mkString("\n\n"))
+  }
+
+  def clear(): Unit = {
+    inputView.getTextArea.setText("")
+    outputView.getTextArea.setText("")
+  }
+}
+

src/main/scala/com/melvic/chi/views/menus/EditorMenu.scala

@@ -0,0 +1,25 @@
+package com.melvic.chi.views.menus
+
+import com.melvic.chi.Evaluate
+import com.melvic.chi.views.EditorView
+
+import java.awt.event.{ActionEvent, ActionListener, KeyEvent}
+import javax.swing.{JMenu, JMenuItem, KeyStroke}
+
+class EditorMenu(editorView: EditorView) extends JMenu("Editor") {
+  add(runMenuItem)
+  add(clearMenuItem)
+
+  private def runMenuItem = {
+    val runMenuItem = new JMenuItem("Run")
+    runMenuItem.setAccelerator(KeyStroke.getKeyStroke(KeyEvent.VK_R, ActionEvent.CTRL_MASK))
+    runMenuItem.addActionListener(_ => editorView.run())
+    runMenuItem
+  }
+
+  private def clearMenuItem = {
+    val clearMenuItem = new JMenuItem("Clear")
+    clearMenuItem.addActionListener(_ => editorView.clear())
+    clearMenuItem
+  }
+}

src/main/scala/com/melvic/chi/views/menus/MainView.scala

@@ -0,0 +1,19 @@
+package com.melvic.chi.views.menus
+
+import com.melvic.chi.Evaluate
+import com.melvic.chi.views.EditorView
+
+import java.awt._
+import javax.swing._
+
+class MainView(evaluate: Evaluate) extends JFrame {
+  val editorView = new EditorView(evaluate)
+
+  setContentPane(editorView)
+  setTitle("Chi")
+  setJMenuBar(new MenuBarView(editorView))
+  setDefaultCloseOperation(WindowConstants.EXIT_ON_CLOSE)
+  pack()
+  setLocationRelativeTo(null)
+  setExtendedState(Frame.MAXIMIZED_BOTH)
+}

src/main/scala/com/melvic/chi/views/menus/MenuBarView.scala

@@ -0,0 +1,25 @@
+package com.melvic.chi.views.menus
+
+import com.melvic.chi.Evaluate
+import com.melvic.chi.views.EditorView
+
+import java.awt.event.{ActionEvent, KeyEvent}
+import javax.swing.{JMenu, JMenuBar, JMenuItem, KeyStroke}
+
+class MenuBarView(editorView: EditorView) extends JMenuBar {
+  val fileMenu = createMenuItem(
+    new JMenu("File"),
+    "Exit",
+    Some(KeyStroke.getKeyStroke(KeyEvent.VK_Q, ActionEvent.CTRL_MASK))
+  )
+
+  def createMenuItem(menu: JMenu, itemName: String, keyStroke: Option[KeyStroke] = None): JMenu = {
+    val menuItem = new JMenuItem(itemName)
+    keyStroke.foreach(menuItem.setAccelerator)
+    menu.add(menuItem)
+    menu
+  }
+
+  add(fileMenu)
+  add(new EditorMenu(editorView))
+}