epanji

[Script Info]
; Script generated by CLARAOKE v0.1.13 ( https://github.com/epanji/claraoke )
Title: Test
ScriptType: v4.00+
Collisions: Normal
PlayResX: 1280
PlayResY: 720
PlayDepth: 0
Timer: 100.0000
WrapStyle: 0

epanji

$ pwd
/tmp
$ cat clarafx.lisp
(define-effect (my-own-effect var)
  (modifier 'fad :arg1 250 :arg2 0)
  (modifier 'move
            :arg1 (- (width var)) :arg2 (base-y1 var)
            :arg3 (base-x1 var) :arg4 (base-y1 var)
            :arg5 0 :arg6 300))

epanji

(in-package :cl-user)

(asdf:load-system :cl-cont :silent t)
(use-package :cl-cont)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Continuation
;;;
(defun make-generator (input)

epanji

(import (scheme base) (scheme write))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Continuation
;;;
(define-syntax let/cc
  (syntax-rules ()
    ((_ name body ...)
     (call/cc

epanji

~ » ptime sanverter -c -f vtt /tmp/bad-source.vtt                                                                                                                                          ~  

Success converting /tmp/bad-source.vtt to /tmp/bad-source-rev.vtt.

real 0.26
user 0.29
sys 0.01
~ » diff /tmp/bad-source.vtt /tmp/bad-source-rev.vtt                                                                                                                                       ~  
1a2,3
> Kind: captions

epanji

#!/bin/sh

sanverter -prx 426 -pry 240 \
          -fn 'DejaVu Sans' -fs 12 \
          -ml 100 -mr 100 -mv 36 \
          -b -1 -i -1 \
          -f ass -e supersede $@

epanji

#!/bin/sh
#
# Author: Panji Kusuma <epanji at gmail dot com>
#
# Assume user already in video group
# Place these 3 lines in /etc/rc.d/rc.local and uncomment the lines
#
# echo 100 > /sys/class/backlight/intel_backlight/brightness
# chmod 664 /sys/class/backlight/intel_backlight/brightness
# chown root:video /sys/class/backlight/intel_backlight/brightness

epanji

#!/usr/bin/env -S sbcl --script
;;;;
;;;; Save this file to /usr/local/bin/my-favorite-subtitle
;;;;
;;;; Usage:
;;;;   my-favorite-subtitle <file.srt|file.vtt>
;;;;
;;;; Debug:
;;;;   DEBUG=1 my-favorite-subtitle <file.srt|file.vtt>
;;;;

epanji

#!/usr/bin/sbcl --script
;;;;
;;;; finalize-html-from-url
;;;; ======================
;;;;
;;;; #!/usr/bin/python3
;;;;
;;;; from selenium import webdriver
;;;; import time, sys
;;;;

epanji

(load (merge-pathnames "Examples/mysub.lisp" (asdf:system-source-directory "claraoke")))

(in-package :claraoke-user)

(defparameter *mysub* (parse-script #p"/tmp/mysub.ass"))
(defparameter *fx1* (parse-script #p"/tmp/mysub.ass"))
(defparameter *fx2* (parse-script #p"/tmp/mysub.ass"))

(insert-style *mysub* (style "FX1" :fontname "DejaVu San" :alignment 5 :primary-colour (random-color) :back-colour "gray" :shadow 0 :outline 2 :italic -1))
(insert-style *mysub* (style "FX2" :fontname "DejaVu San" :alignment 2 :primary-colour "white" :fontsize 24))