Vee Satayamas veer66

Text processing

veer66 / halo.rb

Created September 17, 2022 01:01

	require "gtk3"

	app = Gtk::Application.new "rocks.veer66.Halo", :flags_none

	app.signal_connect :activate do \|app\|
	window = Gtk::ApplicationWindow.new(app)
	window.set_title "Halo"
	vbox = Gtk::Box.new(Gtk::Orientation::VERTICAL)

	t1 = Gtk::TextView.new

veer66 / halo.tcl

Created September 16, 2022 16:06

	#!/usr/bin/wish

	grid [text .t1 -width 80 -height 30]
	grid [ttk::button .b1 -text "chow BOYD" -command {.t1 insert end [exec "ls"]; .t1 insert end "\n\n"}]
	grid [ttk::button .b2 -text "chow Tapemodel"]
	grid [ttk::button .b3 -text "chow matrix"]
	grid [ttk::button .b4 -text "chow kick"]
	grid [ttk::button .b5 -text "Exit" -command {exit 0}]

veer66 / player1.html

Created September 6, 2022 09:51

	<!DOCTYPE html>
	<html>
	<body>
	<audio controls="false" id="player"></audio>
	<div id="playlist"></div>
	<script>
	var mp3_idx = 0;
	var mp3_urls = ["http://download.watnapahpong.org/mp3/audio_book/20-สังโยชน์/001-ที่ตั้งแห่งสัญโญชน์ และสัญโญชน์.mp3",
	"http://download.watnapahpong.org/mp3/audio_book/20-สังโยชน์/002-ที่ตั้งแห่งอุปาทาน และอุปาท.mp3",
	"http://download.watnapahpong.org/mp3/audio_book/20-สังโยชน์/003-ความเพลิน คือ อุปาทาน.mp3",

veer66 / feeder.opml

Last active August 9, 2022 07:31

feeds

	<?xml version="1.0" encoding="UTF-8"?>
	<opml version="1.1">
	<head>
	<title>
	Feeder
	</title>
	</head>
	<body>
	<outline title="Clojure" text="Clojure">
	<outline title="Inside Clojure" text="Inside Clojure" type="rss" xmlUrl="http://insideclojure.org/feed.xml"/>

veer66 / .emacs

Last active September 9, 2022 15:29

	(require 'package)

	(setq package-archives '(("elpa" . "https://elpa.gnu.org/packages/")
	("melpa" . "https://melpa.org/packages/")))

	(package-initialize)

	(custom-set-variables
	;; custom-set-variables was added by Custom.
	;; If you edit it by hand, you could mess it up, so be careful.

veer66 / .emacs

Created July 13, 2022 15:44

	(require 'package)

	(setq package-archives '(("elpa" . "https://elpa.gnu.org/packages/")
	("melpa" . "https://melpa.org/packages/")))

	(package-initialize)

	(custom-set-variables
	;; custom-set-variables was added by Custom.
	;; If you edit it by hand, you could mess it up, so be careful.

veer66 / fonts.conf

Created July 11, 2022 04:25

บางทีเวลาติดตั้ง font แล้วภาษาไทยไม่ได้อย่างใจ มันต้องไปแก้พวก alias อีกหน่อย แล้วเอาไปใส่ $HOME/.config/fontconfig/fonts.conf #MXLinux

	<?xml version='1.0'?>
	<!DOCTYPE fontconfig SYSTEM 'fonts.dtd'>
	<fontconfig>
	<match>
	<test compare="contains" name="lang">
	<string>th</string>
	</test>
	<edit mode="prepend" name="family">
	<string>Noto Sans Thai</string>
	</edit>

veer66 / install-emacs-28.1.bash

Created June 2, 2022 08:10

	#!/bin/bash

	export PKG_CONFIG_PATH=$HOME/lib64/pkgconfig:$HOME/lib/pkgconfig
	export LD_RUN_PATH=$HOME/lib:$HOME/lib64
	export LD_LIBRARY_PATH=$HOME/lib:$HOME/lib64
	export LDFLAGS="-L$HOME/lib -L$HOME/lib64"

	rm -rf libunistring-1.0 libidn2-2.3.2 nettle-3.6 gmp-6.2.1 emacs-28.1

	curl https://ftp.gnu.org/gnu/libunistring/libunistring-1.0.tar.gz \| tar -xzvf - && \

veer66 / l_tag.rb

Created March 23, 2022 14:20

Use Ruby's ractor to run Apertium tools

	NUMBER_OF_WORKERS = 8

	def tag(sent, line_no)
	tag_str = nil
	IO.popen("lt-proc ../data/eng-tha.automorf.bin \| cg-proc -n -1 ../data/eng-tha.rlx.bin", "r+") do \|f\|
	f.write sent
	f.close_write
	tag_str = f.gets
	end
	return tag_str

veer66 / kinship_example.pl

Created February 2, 2022 01:11