code.h(oe)kje

Jonathan Stowe wrote a short piece on a demo he gave on making music with perl and includes code and mp3. He's been using my Audio::SndFile and Audio::LADSPA modules and was kind enough to also write some positive reviews on them.

Audio::LADSPA review, Audio::SndFile review.

I partially fixed an issue with comments inside quoted strings. You can now use // inside a quoted string and it won't be seen as a comment. Especially useful if you've got a URL in a string.

/* ... */ style comments inside quoted strings are still seen as comments, since fixing that seems to be pretty complicated.

Get the javascript.el file here.

Using SLIME, door Marco Baringer is een interessante introductie van SLIME (dé Emacs Lisp mode). Ruby/perl etc mensen opgelet! Zo doe je een "IDE" in een dynamische taal - geen statische bron-code analyse, maar directe interactie met je runtime.

Download 149Mb video in goeie kwaliteit: torrent - HTTP download.

Of bekijk de preview op google video (onleesbaar!).

Deze en meer videos op cliki.net.

Is al eerder gebeurd, dus hopelijk is het tijdelijk.

Dus in de tussentijd is hier ook de originele javascript.el die ik gebruikt heb voor mijn versie.

update: Karl's nieuwe homepage is hier.

De beste javascript mode voor Emacs is deze van Karl Landström. Hij heeft alleen moeite met het correct detecteren van strings en regexes:

Niet leuk als je de source van jQuery opent. (Waarschuwing, dit crasht emacs!)

Ook niet leuk is dat Emacs' ingebouwde syntax-table niet overweg kan
met de complete overloading van / in Javascript (als deel-operator, regex quote, en 2 soorten commentaar marker). Boeh voor Emacs!

De oplossing is dan om alle auto-quoting uit te zetten en het zelf te doen. Kan je net zulke ingewikkelde syntax mee highlighten als je wilt. Hoera voor Emacs!

Relevante passages:

;; --- Syntax Table And Parsing ---

(defvar javascript-mode-syntax-table
  (let ((table (make-syntax-table)))
    (c-populate-syntax-table table)

    ;; switch off build-in quoted string detection
    ;; since that just makes it really hard to detect
    ;; regular expressions and comments
    ;;
    ;; this also has the benefit that multiline strings
    ;; are now not recognized as strings (since javascript does
    ;; not allow them)
    (modify-syntax-entry ?' "." table)
    (modify-syntax-entry ?\" "." table)

    ;; The syntax class of underscore should really be `symbol' ("_")
    ;; but that makes matching of tokens much more complex as e.g.
    ;; "\\" matches part of e.g. "_xyz" and "xyz_abc". Defines
    ;; it as word constituent for now.
    (modify-syntax-entry ?_ "w" table)

    table)
  "Syntax table used in JavaScript mode.")

 
(defconst js-quoted-string-re "\\(\".*?[^\\]\"\\|'.*?[^\\]'\\)")
 
(defconst js-quoted-string-or-regex-re "\\(/.*?[^\\]/\\w*\\|\".*?[^\\]\"\\|'.*?[^\\]'\\)")
 
(defconst js-font-lock-keywords-1
  (list
   "\\<import\\>"
   (list js-function-heading-1-re 1 font-lock-function-name-face)
   (list js-function-heading-2-re 1 font-lock-function-name-face)
 
   ;; detect literal strings following a + operator
   (list (concat "+[ \t]*" js-quoted-string-re)  1 font-lock-string-face)
 
   ;; detect literal strings used in "literal object" keys
   (list (concat "[,{][ \t]*" js-quoted-string-re "[ \t]*:" ) 1 font-lock-string-face)
 
   ;; detects strings and regexes when assigned, passed, returned
   ;; used as an object key string (i.e. bla["some string"]), when used
   ;; as a literal object value (i.e. key: "string"), used as an array
   ;; element, or when they appear as the first expression on a line
   ;; and a few other hairy cases
   (list (concat "[=(:,;[][ \t]*" js-quoted-string-or-regex-re)  1 font-lock-string-face)
   (list (concat "^[ \t]*"      js-quoted-string-or-regex-re) 1 font-lock-string-face)
   (list (concat "return[ \t]*" js-quoted-string-or-regex-re) 1 font-lock-string-face)
 
   ;; detect "autoquoted" object properties... clases with "switch { ...  default: }"
   ;; may not be worth the trouble
   (list "\\(^[ \t]*\\|[,{][ \t]*\\)\\(\\w+\\):" 2 font-lock-string-face))
 
  "Level one font lock.")
 

En dan:

Patch is onderweg naar Karl. In de tussentijd kun je hier mijn versie downloaden.

LispCast is a series of screencasts of Common Lisp development.

Lispcast laat in een serie van videos zien hoe je in Common Lisp een web applicatie schrijft, test, refactored en verder... Interessant materiaal.

De komende sessie gaat over database persistence - ik ben benieuwd!

Ps: als je cl-who niet kent, dan is de 1e aflevering alleen al interessant om te zien hoe veel schoner html/xml er uit ziet als je ze met s-expressions schrijft.

Ik ben jaren geleden al eens begonnen aan een Perl module om (onder andere) modulaire synthesizers te emuleren. En dat werkte wel, maar mooi was het niet:

Maak wat processors....

 
    my $net = Audio::LADSPA::Network->new();
    my $sine = $net->add_plugin( label => 'sine_fcac' );
    my $delay = $net->add_plugin( label => 'delay_5s' );
    my $play = $net->add_plugin('Audio::LADSPA::Plugin::Play');
 

verbind ze met mekaar en zet parameters...

 
    $net->connect($sine,'Output',$delay,'Input');
    $net->connect($delay,'Output',$play,'Input');
 
    $sine->set('Frequency (Hz)' => 440); # set freq
    $sine->set(Amplitude => 1);   # set amp
 
    $delay->set('Delay (Seconds)' => 1); # 1 sec delay
    $delay->set('Dry/Wet Balance' => 0.2); # balance - 0.2
 

en draaien maar!

 
    for ( 0 .. 100 ) {
        $net->run(100);
    }
 

Allemaal leuk, maar veel te veel typ werk en behoorlijk complex.

Op vakantie heb ik laatst Practical Common Lisp doorgelezen en dan ga je natuurlijk denken dat dat beter kan als je functies gebruikt ipv complexe objecten en dat het er in Lisp veel beter uit kan zien.

Dat is dus ook zo :-)

 
; ik ga hier processors gebruiken
(with-processors
    ; maak een paar processors
    ((sine (sine-processor))
     (delay (delay-processor))
     (m (stream-mixer))
     (mlt (stream-mult)))
  (with-audio-stream stream 0 1 ()  ; gebruik 1 audio output
    (dotimes (i 400)
      (write-audio stream
		   (<- m         ; output van m
		       :input-1 (<- sine :frequency 0.1)
		       :factor-1 0.2   ; specificeer vaste parameter
		       :input-2 (<- ^sine)  ; uitvoer van sine processor hierboven
		       :factor-2 0.0)))))
 

Ik gebruik

(<- ... )

als een macro die de juiste output van een processor selecteerd:
:output bij default, anders scrijf je

(<- :andere-output processor .... )

En definieren van een processor is ook erg versimpeld:

(defprocessor mult-processor
    ((output :stream))
    ((input :stream) (factor :scalar))
    ()
  (dotimes (i *num-frames*)
    (setf (aref output i) (* (aref input i) factor))))