monadic-chat 0.1.3 → 0.2.0

data/apps/code/code.rb

@@ -21,54 +21,54 @@ class Code < MonadicApp
       "stop" => nil
     }
     method = OpenAI.model_to_method(params["model"])
-    template = case method
-               when "completions"
-                 TEMPLATES["research/code"]
-               when "chat/completions"
-                 TEMPLATES["normal/code"]
-               end
-    super(params,
-          template,
-          {},
-          "messages",
-          "response",
-          proc do |res|
+    case method
+    when "completions"
+      tjson = TEMPLATES["normal/code"]
+      tmarkdown = TEMPLATES["research/code"]
+    when "chat/completions"
+      tjson = TEMPLATES["normal/code"]
+      tmarkdown = nil
+    end
+    super(params: params,
+          tjson: tjson,
+          tmarkdown: tmarkdown,
+          placeholders: {},
+          prop_accumulator: "messages",
+          prop_newdata: "response",
+          update_proc: proc do
             case method
             when "completions"
-              # obj = objectify
               ############################################################
-              # Research mode recuder defined here                       #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # Research mode reduder defined here                       #
+              # @messages: messages to this point                        #
+              # @metadata: currently available metdata sent from GPT     #
               ############################################################
+
               conditions = [
-                res["messages"].size > 1,
-                res["tokens"].to_i > params["max_tokens"].to_i / 2
+                @messages.size > 1,
+                @metadata["tokens"].to_i > params["max_tokens"].to_i / 2
               ]
-              if conditions.all?
-                res["messages"].shift(1)
-                res["turns"] = res["turns"].to_i - 1
-              end
-              res
+
+              @metadata["turns"] = @metadata["turns"].to_i - 1 if conditions.all?
+
             when "chat/completions"
-              # obj = objectify
               ############################################################
               # Normal mode recuder defined here                         #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # @messages: messages to this point                        #
               ############################################################
+
               conditions = [
-                res.size > @num_retained_turns * 2 + 1
+                @messages.size > @num_retained_turns * 2 + 1
               ]
+
               if conditions.all?
-                res.each_with_index do |ele, i|
+                @messages.each_with_index do |ele, i|
                   if ele["role"] != "system"
-                    res.delete_at i
+                    @messages.delete_at i
                     break
                   end
                 end
               end
-              res
             end
           end
          )

data/{samples → apps}/linguistic/linguistic.json

@@ -1,6 +1,6 @@
 {"messages": [
   {"role": "system",
-   "content": "You are an English syntactic/semantic/pragmatic analyzer. Analyze the new prompt from the user below and execute a syntactic parsing. Give your response in a variation of the penn treebank format, but use brackets [ ] instead of parentheses ( ). Also, give your response in a markdown code span. The sentence must always be parsed if the user's input sentence is enclosed in double quotes. If pasing the sentence is extremely difficult, or the input is not enclosed in double quotes, let the user know."
+   "content": "You are an English syntactic/semantic/pragmatic analyzer. Analyze the new prompt from the user below and execute a syntactic parsing. Give your response in a variation of the penn treebank format, but use brackets [ ] instead of parentheses ( ). Also, give your response in a markdown code span. The sentence must always be parsed if the user's input sentence is enclosed in double quotes. Let the user know if parsing the sentence is difficult or the input must be enclosed in double quotes."
   },
   {"role": "user",
    "content": "\"We saw a beautiful sunset.\""
@@ -13,5 +13,11 @@
   },
   {"role": "assistant",
    "content": "`[S [NP We] [IP [I didn't] [VP [V take] [NP [Det a] [N picture] ] ] ] ] ]`"
+  },
+  {"role": "user",
+   "content": "\"We didn't have a camera.\""
+  },
+  {"role": "assistant",
+   "content": "`[S [NP We] [IP [I didn't] [VP [V have] [NP [Det a] [N camera] ] ] ] ] ]`"
   }
 ]}

data/apps/linguistic/linguistic.md

@@ -0,0 +1,46 @@
+{{SYSTEM}}
+
+All prompts by "user" in the "messages" property are continuous in content. If parsing the input sentence is extremely difficult, or the input is not enclosed in double quotes, let the user know.
+
+Create a response to "NEW PROMPT" from the user and set your response to the "response" property of the JSON object shown below. The preceding conversation is stored in "PAST MESSAGES". In "PAST MESSAGES", "assistant" refers to you.
+
+NEW PROMPT: {{PROMPT}}
+
+PAST MESSAGES:
+{{MESSAGES}}
+
+JSON:
+
+```json
+{
+  "prompt": "\"We didn't have a camera.\"",
+  "response": "`[S [NP We] [VP [V didn't] [VP [V have] [NP [Det a] [N camera] ] ] ] ] ]`\n\n###\n\n",
+  "mode": "linguistic",
+  "turns": 3,
+  "sentence_type": ["declarative"],
+  "sentiment": ["sad"],
+  "summary": "The user saw a beautiful sunset, but did not take a picture because the user did not have a camera.",
+  "tokens": 351
+}
+```
+
+Make sure the following content requirements are all fulfilled:
+
+- keep the value of the "mode" property at "linguistic"
+- set the new prompt to the "prompt" property
+- create your response to the new prompt based on "PAST MESSAGES" and set it to "response"
+- analyze the new prompt's sentence type and set a sentence type value such as "interrogative", "imperative", "exclamatory", or "declarative" to the "sentence_type" property
+- analyze the new prompt's sentiment and set one or more sentiment types such as "happy", "excited", "troubled", "upset", or "sad" to the "sentiment" property
+- summarize the user's messages so far and update the "summary" property with a text of fewer than 100 words using as many discourse markers such as "because", "therefore", "but", and "so" to show the logical connection between the events.
+- update the value of "tokens" with the number of tokens of the resulting JSON object"
+- increment the value of "turns" by 1
+
+Make sure the following formal requirements are all fulfilled:
+
+- do not use invalid characters in the JSON object
+- escape double quotes and other special characters in the text values in the resulting JSON object
+- check the validity of the generated JSON object and correct any possible parsing problems before returning it 
+
+Add "\n\n###\n\n" at the end of the "response" value.
+
+Wrap the JSON object with "<JSON>\n" and "\n</JSON>".

data/{samples → apps}/linguistic/linguistic.rb

@@ -21,51 +21,54 @@ class Linguistic < MonadicApp
       "stop" => nil
     }
     method = OpenAI.model_to_method(params["model"])
-    template = case method
-               when "completions"
-                 TEMPLATES["research/linguistic"]
-               when "chat/completions"
-                 TEMPLATES["normal/linguistic"]
-               end
-    super(params,
-          template,
-          {},
-          "messages",
-          "response",
-          proc do |res|
+    case method
+    when "completions"
+      tjson = TEMPLATES["normal/linguistic"]
+      tmarkdown = TEMPLATES["research/linguistic"]
+    when "chat/completions"
+      tjson = TEMPLATES["normal/linguistic"]
+      tmarkdown = nil
+    end
+    super(params: params,
+          tjson: tjson,
+          tmarkdown: tmarkdown,
+          placeholders: {},
+          prop_accumulator: "messages",
+          prop_newdata: "response",
+          update_proc: proc do
             case method
             when "completions"
-              # obj = objectify
               ############################################################
-              # Research mode recuder defined here                       #
-              # obj: old Hash object                                     #
-              # res: new response Hash object to be modified             #
+              # Research mode reduder defined here                       #
+              # @messages: messages to this point                        #
+              # @metadata: currently available metdata sent from GPT     #
               ############################################################
+
               conditions = [
-                res["messages"].size > 1,
-                res["tokens"].to_i > params["max_tokens"].to_i / 2
+                @messages.size > 1,
+                @metadata["tokens"].to_i > params["max_tokens"].to_i / 2
               ]
-              if conditions.all?
-                res["messages"].shift(1)
-                res["turns"] = res["turns"].to_i - 1
-              end
-              res
+
+              @metadata["turns"] = @metadata["turns"].to_i - 1 if conditions.all?
+
             when "chat/completions"
-              # obj = objectify
               ############################################################
               # Normal mode recuder defined here                         #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # @messages: messages to this point                        #
               ############################################################
-              if res.size > @num_retained_turns * 2 + 1
-                res.each_with_index do |ele, i|
+
+              conditions = [
+                @messages.size > @num_retained_turns * 2 + 1
+              ]
+
+              if conditions.all?
+                @messages.each_with_index do |ele, i|
                   if ele["role"] != "system"
-                    res.delete_at i
+                    @messages.delete_at i
                     break
                   end
                 end
               end
-              res
             end
           end
          )

data/apps/novel/novel.json

@@ -1,4 +1,8 @@
 {"messages": [
   {"role": "system",
-   "content": "You and I are collaboratively writing a novel. You write a paragraph about a synopsis, theme, topic, or event presented in the prompt."}
+   "content": "You and the user are collaboratively writing a novel. You write a paragraph elaborating on a synopsis, theme, topic, or event presented in the prompt."},
+   {"role": "user",
+    "content": "The preface to the novel is presented."},
+   {"role": "assistant",
+    "content": "What follows is a story that an AI assistant tells. It is guaranteed that this will be an incredibly realistic and exciting novel."}
 ]}

data/apps/novel/novel.md

@@ -1,17 +1,21 @@
-You are a professional novel-writing AI assistant. You and the user are collaboratively writing a novel. You write a paragraph about a theme, topic, or event presented in the new prompt below. The preceding prompts and paragraphs are contained in the "messages" property.
+{{SYSTEM}}
+
+Create a response to "NEW PROMPT" from the user and set your response to the "response" property of the JSON object shown below. The preceding conversation is stored in "PAST MESSAGES". In "PAST MESSAGES", "assistant" refers to you.
 
 NEW PROMPT: {{PROMPT}}
 
-Your response must be returned in the form of a JSON object having the structure shown below:
+PAST MESSAGES:
+{{MESSAGES}}
+
+JSON:
 
 ```json
 {
-  "prompt": "The prefice to the novel is presented",
-  "response": "What follows is the story that an AI assistant tells. It is guaranteed that this will be an incredibly realistic and interesting novel.\n\n###\n\n",
+  "prompt": "The preface to the novel is presented",
+  "response": "What follows is a story that an AI assistant tells. It is guaranteed that this will be an incredibly realistic and interesting novel.\n\n###\n\n",
   "mode": "novel",
   "turns": 1,
-  "tokens": 147,
-  "messages": [{"user": "The prefice to the novel is presented", "assistant": "What follows is the story that an assistant tells. It is guaranteed that this will be an incredibly realistic and interesting novel.\n\n###\n\n"}]
+  "tokens": 147
 }
 ```
 
@@ -20,15 +24,15 @@ Make sure the following content requirements are all fulfilled:
 - keep the value of the "mode" property at "novel"
 - set the new prompt to the "prompt" property
 - create your new paragraph in response to the new prompt and set it to "response"
-- do not repeat in your response what is already told in the "messages"
-- insert both the new prompt and the response after all the existing items in the "messages"
+- do not repeat in your response what is already told in "PAST MESSAGES"
 - update the value of "tokens" with the number of tokens of the resulting JSON object"
+- Make your response as detailed as possible within the maximum limit of 200 words
 
 Make sure the following formal requirements are all fulfilled:
 
 - do not use invalid characters in the JSON object
 - escape double quotes and other special characters in the text values in the resulting JSON object
-- increment the value of "turns" by 1 and update the property so that the value of "turns" equals the number of the items in the "messages" of the resulting JSON object
+- increment the value of "turns" by 1
 - check the validity of the generated JSON object and correct any possible parsing problems before returning it 
 
 Add "\n\n###\n\n" at the end of the "response" value.

data/apps/novel/novel.rb

@@ -21,54 +21,54 @@ class Novel < MonadicApp
       "stop" => nil
     }
     method = OpenAI.model_to_method(params["model"])
-    template = case method
-               when "completions"
-                 TEMPLATES["research/novel"]
-               when "chat/completions"
-                 TEMPLATES["normal/novel"]
-               end
-    super(params,
-          template,
-          {},
-          "messages",
-          "response",
-          proc do |res|
+    case method
+    when "completions"
+      tjson = TEMPLATES["normal/novel"]
+      tmarkdown = TEMPLATES["research/novel"]
+    when "chat/completions"
+      tjson = TEMPLATES["normal/novel"]
+      tmarkdown = nil
+    end
+    super(params: params,
+          tjson: tjson,
+          tmarkdown: tmarkdown,
+          placeholders: {},
+          prop_accumulator: "messages",
+          prop_newdata: "response",
+          update_proc: proc do
             case method
             when "completions"
-              # obj = objectify
               ############################################################
-              # Research mode recuder defined here                       #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # Research mode reduder defined here                       #
+              # @messages: messages to this point                        #
+              # @metadata: currently available metdata sent from GPT     #
               ############################################################
+
               conditions = [
-                res["messages"].size > 1,
-                res["tokens"].to_i > params["max_tokens"].to_i / 2
+                @messages.size > 1,
+                @metadata["tokens"].to_i > params["max_tokens"].to_i / 2
               ]
-              if conditions.all?
-                res["messages"].shift(1)
-                res["turns"] = res["turns"].to_i - 1
-              end
-              res
+
+              @metadata["turns"] = @metadata["turns"].to_i - 1 if conditions.all?
+
             when "chat/completions"
-              # obj = objectify
               ############################################################
               # Normal mode recuder defined here                         #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # @messages: messages to this point                        #
               ############################################################
+
               conditions = [
-                res.size > @num_retained_turns * 2 + 1
+                @messages.size > @num_retained_turns * 2 + 1
               ]
+
               if conditions.all?
-                res.each_with_index do |ele, i|
+                @messages.each_with_index do |ele, i|
                   if ele["role"] != "system"
-                    res.delete_at i
+                    @messages.delete_at i
                     break
                   end
                 end
               end
-              res
             end
           end
          )

data/apps/translate/translate.json

@@ -1,4 +1,4 @@
 {"messages": [
   {"role": "system",
-   "content": "You are a multilingual translator capable of professionally translating many languages. Translate the given text to {{TARGET_LANG}} in a way that the new sentence sounds connected to the preceding text. If there is specific translation that should be used for a particular expression, the user present the translation in a pair parentheses right after the original expression, which is enclose by a pair of brackets. Check both current and preceding user messages and use those specific translations every time a corresponding expression appears in the user input."}
+   "content": "You are a multilingual translator capable of professionally translating many languages. Translate the given text to {{TARGET_LANG}}. If a specific translation should be used for a particular expression, the user presents the translation in a pair of parentheses right after the original expression. Check both current and preceding user messages and use those specific translations every time a corresponding expression appears in the user input."}
 ]}

data/apps/translate/translate.md

@@ -1,18 +1,22 @@
-You are a multilingual translator AI assistant capable of professionally translating many languages. Translate the text from the user presented in the new prompt below to {{TARGET_LANG}} in a way that the new sentence sounds connected to the preceding text in the "messages".If there is specific translation that should be used for a particular expression, the user present the translation in a pair parentheses right after the original expression, which is enclose by a pair of brackets. Check both current and preceding user messages and use those specific translations every time a corresponding expression appears in the user input.
+{{SYSTEM}}
+
+Create a response to "NEW PROMPT" from the user and set your response to the "response" property of the JSON object shown below. The preceding conversation is stored in "PAST MESSAGES". In "PAST MESSAGES", "assistant" refers to you. Make your response as detailed as possible.
 
 NEW PROMPT: {{PROMPT}}
 
-Your response must be returned in the form of a JSON object having the structure shown below:
+PAST MESSAGES:
+{{MESSAGES}}
+
+JSON:
 
 ```json
 {
   "mode": "translate",
-  "turns": 2,
-  "prompt": "これは日本語の文です。",
+  "turns": 0,
+  "prompt": "これは日本語(Japanese)の文(sentence)です。",
   "response": "This is a sentence in Japanese.\n\n###\n\n",
   "target_lang": "English",
-  "tokens": 194,
-  "messages": [{"user": "Original and translated text follow(続きます).", "assistant": "原文と翻訳文が続きます。\n\n###\n\n"}, {"user": "これは日本語の文(sentence)です。", "assistant": "This is a sentence in Japanese.\n\n###\n\n"}]
+  "tokens": 194
 }
 ```
 
@@ -20,17 +24,16 @@ Make sure the following requirements are all fulfilled:
 
 - keep the value of the "mode" property at "translate"
 - set the text in the new prompt presented above to the "prompt" property
-- translate the new prompt text to the language specified in the "target_lang" and set the translation to the "response" property
-- insert the new prompt text and the newly created "response" after all the existing items in the "messages"
+- translate the new prompt text to the language specified in the "target_lang" set it to "response"
+ and set the translation to the "response" property
 - update the value of "tokens" with the number of tokens of the resulting JSON object"
 
 Make sure the following formal requirements are all fulfilled:
 
 - do not use invalid characters in the JSON object
 - escape double quotes and other special characters in the text values in the resulting JSON object
-- increment the value of "turns" by 1 and update the property so that the value of "turns" equals the number of the items in the "messages" of the resulting JSON object
+- increment the value of "turns" by 1
 - check the validity of the generated JSON object and correct any possible parsing problems before returning it 
-- wrap the JSON object with "<JSON>\n" and "\n</JSON>" (IMPORTANT)
 
 Add "\n\n###\n\n" at the end of the "response" value.
 

data/apps/translate/translate.rb

@@ -25,54 +25,54 @@ class Translate < MonadicApp
       "{{TARGET_LANG}}" => "Enter target language"
     }
     method = OpenAI.model_to_method(params["model"])
-    template = case method
-               when "completions"
-                 TEMPLATES["research/translate"]
-               when "chat/completions"
-                 TEMPLATES["normal/translate"]
-               end
-    super(params,
-          template,
-          replacements,
-          "messages",
-          "response",
-          proc do |res|
+    case method
+    when "completions"
+      tjson = TEMPLATES["normal/translate"]
+      tmarkdown = TEMPLATES["research/translate"]
+    when "chat/completions"
+      tjson = TEMPLATES["normal/translate"]
+      tmarkdown = nil
+    end
+    super(params: params,
+          tjson: tjson,
+          tmarkdown: tmarkdown,
+          placeholders: replacements,
+          prop_accumulator: "messages",
+          prop_newdata: "response",
+          update_proc: proc do
             case method
             when "completions"
-              # obj = objectify
               ############################################################
-              # Research mode recuder defined here                       #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # Research mode reduder defined here                       #
+              # @messages: messages to this point                        #
+              # @metadata: currently available metdata sent from GPT     #
               ############################################################
+
               conditions = [
-                res["messages"].size > 1,
-                res["tokens"].to_i > params["max_tokens"].to_i / 2
+                @messages.size > 1,
+                @metadata["tokens"].to_i > params["max_tokens"].to_i / 2
               ]
-              if conditions.all?
-                res["messages"].shift(1)
-                res["turns"] = res["turns"].to_i - 1
-              end
-              res
+
+              @metadata["turns"] = @metadata["turns"].to_i - 1 if conditions.all?
+
             when "chat/completions"
-              # obj = objectify
               ############################################################
               # Normal mode recuder defined here                         #
-              # obj: old Hash object (uncomment a line above before use) #
-              # res: new response Hash object to be modified             #
+              # @messages: messages to this point                        #
               ############################################################
+
               conditions = [
-                res.size > @num_retained_turns * 2 + 1
+                @messages.size > @num_retained_turns * 2 + 1
               ]
+
               if conditions.all?
-                res.each_with_index do |ele, i|
+                @messages.each_with_index do |ele, i|
                   if ele["role"] != "system"
-                    res.delete_at i
+                    @messages.delete_at i
                     break
                   end
                 end
               end
-              res
             end
           end
          )

data/bin/monadic-chat

@@ -57,6 +57,7 @@ module MonadicMenu
       openai_completion ||= MonadicChat.authenticate
       exit unless openai_completion
 
+      max_app_name_width = APPS.reduce(8) { |accum, app| app.length > accum ? app.length : accum } + 2
       parameter = PROMPT_SYSTEM.select(" Current mode: #{print_mode.call(mode)}\n\nSelect item:",
                                        per_page: 10,
                                        cycle: true,
@@ -67,18 +68,18 @@ module MonadicMenu
           next unless TEMPLATES["#{mode}/#{app}"]
 
           desc = eval("#{app.capitalize}::DESC", binding, __FILE__, __LINE__)
-          menu.choice "#{BULLET} #{PASTEL.bold(app.capitalize)} #{desc}", app
+          menu.choice "#{BULLET} #{PASTEL.bold(app.capitalize.ljust(max_app_name_width))} #{desc}", app
         end
 
         case mode
         when "research"
-          menu.choice "#{BULLET} #{PASTEL.bold("Mode")} Switch from #{PASTEL.bold.red("Research")} (current) to #{PASTEL.bold.green("Normal")}", "mode"
+          menu.choice "#{BULLET} #{PASTEL.bold("Mode".ljust(max_app_name_width))} Switch from #{PASTEL.bold.red("Research")} (current) to #{PASTEL.bold.green("Normal")}", "mode"
         when "normal"
-          menu.choice "#{BULLET} #{PASTEL.bold("Mode")} Switch from #{PASTEL.bold.green("Normal")} (current) to #{PASTEL.bold.red("Research")}", "mode"
+          menu.choice "#{BULLET} #{PASTEL.bold("Mode".ljust(max_app_name_width))} Switch from #{PASTEL.bold.green("Normal")} (current) to #{PASTEL.bold.red("Research")}", "mode"
         end
 
-        menu.choice "#{BULLET} #{PASTEL.bold("Readme")} Open Readme/Documentation", "readme"
-        menu.choice "#{BULLET} #{PASTEL.bold("Quit")} Quit/Exit/Bye", "exit"
+        menu.choice "#{BULLET} #{PASTEL.bold("Readme".ljust(max_app_name_width))} Open Readme/Documentation", "readme"
+        menu.choice "#{BULLET} #{PASTEL.bold("Quit".ljust(max_app_name_width))} Quit/Exit/Bye", "exit"
       end
 
       begin

data/lib/monadic_app.rb

@@ -12,26 +12,34 @@ Thread.abort_on_exception = false
 
 class MonadicApp
   include MonadicChat
-  attr_reader :template
+  attr_reader :template, :messages
 
-  def initialize(params, template, placeholders, prop_accumulated, prop_newdata, update_proc)
+  def initialize(params:, tjson:, tmarkdown:, placeholders:, prop_accumulator:, prop_newdata:, update_proc:)
     @threads = Thread::Queue.new
     @responses = Thread::Queue.new
     @placeholders = placeholders
-    @prop_accumulated = prop_accumulated
+    @prop_accumulator = prop_accumulator
     @prop_newdata = prop_newdata
     @completion = nil
     @update_proc = update_proc
-    @params_original = params
-    @params = @params_original.dup
-    @template_original = File.read(template)
+    @params_initial = params
+    @params = @params_initial.dup
+    @html = false
+
     @method = OpenAI.model_to_method @params["model"]
 
+    @metadata = {}
+
+    @messages_initial = JSON.parse(File.read(tjson))["messages"]
+    @messages = @messages_initial.dup
+
     case @method
     when "completions"
-      @template = @template_original.dup
+      @template_initial = File.read(tmarkdown)
+      @template = @template_initial.dup
     when "chat/completions"
-      @template = JSON.parse @template_original
+      @template_initial = ""
+      @template = ""
     end
   end
 
@@ -54,7 +62,8 @@ class MonadicApp
       when /\A\s*(?:data|context)\s*\z/i
         show_data
       when /\A\s*(?:html)\s*\z/i
-        set_html
+        @html = true
+        show_html
       when /\A\s*(?:save)\s*\z/i
         save_data
       when /\A\s*(?:load)\s*\z/i