iani

* ACTIVE orgmode/sc: 1 node/process per buffer. navigate n/p in org mode :orgmode:emacs:livecoding:supercollider:
 :PROPERTIES:
 :DATE: <2013-09-30 Mon 13:21>
 :ENTRYTYPE: note
 :END:

** Basic idea: Keep code in orgmode nodes, but edit it in temporary separate buffer


u** Terminology: o-nodes, s-nodes

iani

(
a = { | gate = 1 |
	var env, envPlayer, source;
	
	env = Env.adsr;
	envPlayer = EnvGen.kr(env, gate);
	
	source = WhiteNoise.ar(0.1);
	

iani

// Session of Tue Dec 17 12:33:56 2013
// Loading buffers
Server.default.boot;

//: Test how to open a dialog window for choosing the path of the buffer to load:
// Here we just post the path.
Dialog.openPanel({ | path |
	path.postln;
})

iani

// Session of Tue Dec 17 13:28:06 2013
/*  
	Controlling the start and end points of a looped buffer
	For this we need to use a different technique:  BufRd + Phasor.
	
	Explore a sound buffer by looping continuously over small segments of the buffer. 
	MouseX controls the position of the loop in the buffer, 
	MouseY controls the (proportional) duration of the loop.
*/

iani

// IZ Dec 17, 2013 (11:31 PM)
/*

(Save this file as WatchSamplesInDir.sc and put it inside SuperCollider Extensions folder.
Then recompile. )

Watches the wav files in a chosen directory.
If any files are added, they are read into buffers.
If any files are removed, their buffers are freed. 
When any buffer is read or freed, a changed notification is issued. 

iani

(See: 
- http://www.emacswiki.org/emacs/ELPA 
- See: http://emacsworld.blogspot.gr/2013/12/a-few-unrelated-emacs-tips.html
)

#+BEGIN_SRC elisp
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                         ("marmalade" . "http://marmalade-repo.org/packages/")
                         ("melpa" . "http://melpa.milkbox.net/packages/")))

iani

/*
//
(
// initialise ~step var (for count the current step)
~step=0;
a = LHCV((
	symbol: { | self, symbol |
		self.soundOn.postln;
		if (self.soundOn) {
			(instrument: \test, degree: (A: 11, B: 12, C: 13, D: 14)[symbol]).play;

iani

/*
// synth definition already written in SynthDef.synthDefDir
(
SynthDef(\LHCV, { | out=0, clk=1, vclk=2, id=0, step=0, resetVal=0|
   var clock, varclock, latch;
   clock = LFPulse.kr(clk);
   varclock = LFPulse.kr(vclk);
   latch = Latch.kr(Stepper.kr(varclock, step: step, resetval: resetVal), clock);
   Out.kr(out, SendTrig.kr(Changed.kr(latch), id, latch))
}).writeOnce;

iani

(add-hook 'org-mode-hook
          (lambda () (imenu-add-to-menubar "Imenu")))
(setq org-imenu-depth 3)

(defun org-icicle-occur ()
  "In org-mode, show entire buffer contents before running icicle-occur.
 Otherwise icicle-occur will not place cursor at found location,
 if the location is hidden."
  (interactive)

iani

* Add, remove, save agenda file list

#+BEGIN_SRC emacs-lisp
  (defvar org-agenda-list-save-path
    "~/.emacs.d/savefile/org-agenda-list.el"
  "Path to save the list of files belonging to the agenda.")

  (defun org-agenda-save-file-list ()
    "Save list of desktops from file in org-agenda-list-save-path"
    (interactive)