Mercurial Hosting > lang

changeset 6:025bb19b65b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use claude
author Franklin Schmidt <fschmidt@gmail.com>
date Thu, 17 Jul 2025 23:19:22 -0600
parents a970b7a01a74
children 255c36830154
files .hgignore src/chat.css src/chat.html.luan src/chat.js src/lib/Chat.luan src/lib/ai/Ai.luan src/lib/ai/claude/Chat.luan src/lib/ai/claude/Claude.luan src/private/Config_sample.luan
diffstat 9 files changed, 157 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/.hgignore	Wed Jul 16 15:08:14 2025 -0600
+++ b/.hgignore	Thu Jul 17 23:19:22 2025 -0600
@@ -3,3 +3,4 @@
 err
 local/
 private/Config.luan
+mine/
--- a/src/chat.css	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/chat.css	Thu Jul 17 23:19:22 2025 -0600
@@ -10,7 +10,7 @@
 
 [waiting-ai-icon] {
 	width: 100px;
-	position: absolute;
+	position: fixed;
 	top: 50%;
 	left: 50%;
 	transform: translate(-50%,-50%);
--- a/src/chat.html.luan	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/chat.html.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -39,8 +39,9 @@
 			@import "/chat.css?s=<%=started%>";
 		</style>
 		<script>
-			let chatId = <%=chat_id%>;
+			let chatId = <%= chat.id %>;
 		</script>
+		<script src="https://cdn.jsdelivr.net/npm/markdown-it@14.1.0/dist/markdown-it.min.js"></script>
 		<script src="/chat.js?s=<%=started%>"></script>
 	</head>
 	<body>
@@ -65,8 +66,8 @@
 				<textarea autofocus oninput="fixTextarea(event)" onkeydown="textareaKey(event)"></textarea>
 				<button onclick="askAi()" title="Send"><img src="/images/send.svg"></button>
 			</div>
-			<img waiting-ai-icon src="/images/spinner_green.gif">
 		</div>
+		<img waiting-ai-icon src="/images/spinner_green.gif">
 		<dialog rename>
 			<h2>Rename Chat</h2>
 			<form action="javascript:saveRenameChat()">
@@ -89,6 +90,9 @@
 				<button onclick="doDeleteChat(this)">Delete</button>
 			</div>
 		</dialog>
+		<script>
+			handleMarkdown();
+		</script>
 	</body>
 </html>
 <%
--- a/src/chat.js	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/chat.js	Thu Jul 17 23:19:22 2025 -0600
@@ -35,11 +35,21 @@
 	document.querySelector('[waiting-ai-icon]').style.display = 'none';
 }
 
+// requires markdown-it
+function handleMarkdown() {
+	let converter = window.markdownit();
+	let divs = document.querySelectorAll('[role]');
+	for( let div of divs ) {
+		div.innerHTML = converter.render(div.textContent);
+	}
+}
+
 function updateAi(html) {
 	hideWaitingAiIcon();
 	document.querySelector('div[messages]').innerHTML = html;
-	//handleMarkdown();
+	handleMarkdown();
 	document.querySelector('textarea').focus();
+	window.scrollTo(0, document.body.scrollHeight);
 /*
 	let scroll = aiDialog.querySelector('[scroll]');
 	setTimeout(function(){
--- a/src/lib/Chat.luan	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/lib/Chat.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -40,7 +40,7 @@
 
 function Chat.new(chat)
 	chat.updated = chat.updated or time_now()
-	chat.ai_name = chat.ai_name or "chatgpt"
+	chat.ai_name = chat.ai_name or "claude"
 	chat.ai = Ai[chat.ai_name]["Chat.luan"] or error()
 
 	function chat.save()
--- a/src/lib/ai/Ai.luan	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/lib/ai/Ai.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -5,7 +5,7 @@
 
 local Ai = {}
 
-local ais = {"chatgpt"}
+local ais = {"claude"}
 local files = {"Chat.luan"}
 for _, ai in ipairs(ais) do
 	local mods = {}
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/lib/ai/claude/Chat.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -0,0 +1,98 @@
+local Luan = require "luan:Luan.luan"
+local error = Luan.error
+local ipairs = Luan.ipairs or error()
+local type = Luan.type or error()
+local String = require "luan:String.luan"
+local starts_with = String.starts_with or error()
+local Html = require "luan:Html.luan"
+local html_encode = Html.encode or error()
+local Parsers = require "luan:Parsers.luan"
+local json_parse = Parsers.json_parse or error()
+local json_string = Parsers.json_string or error()
+local Claude = require "site:/lib/ai/claude/Claude.luan"
+local claude_chat = Claude.chat or error()
+local Logging = require "luan:logging/Logging.luan"
+local logger = Logging.logger "claude/Chat"
+local Thread = require "luan:Thread.luan"
+
+
+local Chat = {}
+
+function Chat.output_messages_html(thread)
+	local messages = thread and json_parse(thread) or {nil}
+	for _, message in ipairs(messages) do
+		local role = message.role or error()
+		local who
+		if role=="assistant" then
+			who = "Claude"
+		elseif role=="user" then
+			who = "You"
+		else
+			error(role)
+		end
+		local function output(text)
+			if not starts_with( text, "[INTERNAL_UPDATE]" ) then
+%>
+				<h3><%=who%></h3>
+				<div role="<%=role%>"><%=html_encode(text)%></div>
+<%
+			end
+		end
+		local content = message.content or error()
+		if type(content) == "string" then
+			output(content)
+		else
+			for _, part in ipairs(content) do
+				if part.type=="text" then
+					local text = part.text or error()
+					output(text)
+				end
+			end
+		end
+	end_for
+end
+
+function Chat.ask(thread,input)
+	local messages = thread and json_parse(thread) or {nil}
+	messages[#messages+1] = {
+		role = "user"
+		content = input
+	}
+--[=[
+	messages[#messages+1] = {
+		role = "assistant"
+		content = [[
+- 1
+- 2
+- 3
+- 4
+- 5
+- 6
+- 7
+- 8
+- 9
+- 10
+]]
+	Thread.sleep(5000)
+	}
+	if true then
+		return json_string(messages)
+	end
+--]=]
+	local resultJson = claude_chat{
+		messages = messages
+	}
+	local result = json_parse(resultJson)
+	-- logger.info(json_string(result))
+	result.type == "message" or error()
+	result.role == "assistant" or error()
+	result.stop_reason == "end_turn" or result.stop_reason == "tool_use" or error()
+	local content = result.content or error()
+	messages[#messages+1] = {
+		role = "assistant"
+		content = content
+	}
+	return json_string(messages)
+end
+
+return Chat
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/lib/ai/claude/Claude.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -0,0 +1,35 @@
+local Luan = require "luan:Luan.luan"
+local error = Luan.error
+local Io = require "luan:Io.luan"
+local uri = Io.uri or error()
+local Parsers = require "luan:Parsers.luan"
+local json_string = Parsers.json_string or error()
+local Config = require "site:/private/Config.luan"
+local Logging = require "luan:logging/Logging.luan"
+local logger = Logging.logger "claude/Claude"
+
+
+local Claude = {}
+
+local url = "https://api.anthropic.com/v1/messages"
+local headers = {
+	["x-api-key"] = Config.claude.key or error()
+	["anthropic-version"] = "2023-06-01"
+	["Content-Type"] = "application/json"
+}
+local model = "claude-sonnet-4-0"
+local max_tokens = 8192
+
+function Claude.chat(content)
+	content.model = content.model or model
+	content.max_tokens = content.max_tokens or max_tokens
+	local options = {
+		method = "POST"
+		headers = headers
+		content = json_string(content)
+	}
+	local response = uri(url,options).read_text()
+	return response
+end
+
+return Claude
--- a/src/private/Config_sample.luan	Wed Jul 16 15:08:14 2025 -0600
+++ b/src/private/Config_sample.luan	Thu Jul 17 23:19:22 2025 -0600
@@ -5,4 +5,7 @@
 		username = "xxx"
 		password = "xxx"
 	}
+	claude = {
+		key = "sk-xxx"
+	}
 }