in parallel to http://onezero.mine.nu/cgi-bin/wiki.pl/
planned code experiments
1) program which writes/creates programs a la GA
a) which manipulate image cubes (micro) - pixelers
manipulation of cubes also at macro level - arrangers
classic GA - successful code (that which does not generate errors) is rewarded by adding it to pool from which code merges operat and so on -> new populations loop.
2) program which writes programs to write sentences
again a question of vocabulary for sentences and for code
a shared code/sentence vocabulary as was attempted in earlier code experiments (where?)
code as/in sentences - code which writes code which writes code
3) still in need of model that works at micro and macro levels (think of sentence construction) - that scales without interior marking of that scaling - knowledge of levels but use of generic functions across levels - such generic functions with level knowledge could be abstracted out under similarly OOP model outlined in SICP
for example streams are a chunked representation - they can be overseen so are unsuitable
here is .emacs
(tool-bar-mode nil) (menu-bar-mode nil) (scroll-bar-mode nil) ;;emacswiki html (add-to-list 'load-path "/root/sacha-stable/planner") (add-to-list 'load-path "/root/sacha-stable/remember") (add-to-list 'load-path "/root/sacha-stable/emacs-wiki") (setq emacs-wiki-style-sheet "<style type=\"text/css\"> a.nonexistent { font-weight: bold; background-color: white; color: #FF2222; } a.nonexistent:visited { background-color: white; color: #FF2222; } body { background: pink; color: black; margin-left: 5%; margin-right: 5%; margin-top: 3% } em { font-style: italic; } strong { font-weight: bold } ul { list-style-type: disc } dl.contents { margin-top: 0 } dt.contents { margin-bottom: 0 } p.verse { white-space: pre; margin-left: 5% } pre { white-space: pre; margin-left: 5% } pre.fontlock { white-space: pre; margin-left: 5%; border-color: black; border-width: 1px; border-style: solid; background: rgb(255,228,196); margin: 1em; padding: 1em; text-align: left; } span.default { background: rgb(255,228,196); color: rgb(47,79,79); font-style: normal; font-weight: 500; font-stretch: semi-condensed; font-family: misc-fixed; font-size: 9pt; text-decoration: none; } span.default a { background: rgb(255,228,196); color: rgb(47,79,79); font-style: normal; font-weight: 500; font-stretch: semi-condensed; font-family: misc-fixed; font-size: 9pt; text-decoration: underline; } span.builtin { color: rgb(186,85,211) } span.builtin a { color: rgb(186,85,211) } span.type { color: rgb(0,139,139) } span.type a { color: rgb(0,139,139) } span.keyword { color: rgb(205,0,0) } span.keyword a { color: rgb(205,0,0) } span.comment { color: rgb(79,148,205) } span.comment a { color: rgb(79,148,205) } span.constant { background: rgb(255,218,185); color: rgb(205,133,0) } span.constant a { background: rgb(255,218,185); color: rgb(205,133,0) } span.warning { color: rgb(255,0,0) } span.warning a { color: rgb(255,0,0) } span.function-name { color: rgb(0,0,205) } span.function-name a { color: rgb(0,0,205) } span.variable-name { color: rgb(145,44,238) } span.variable-name a { color: rgb(145,44,238) } span.string { background: rgb(255,218,185); color: rgb(34,139,34) } span.string a { background: rgb(255,218,185); color: rgb(34,139,34) } </style>") ;;; Load everything ... (require 'emacs-wiki) (require 'htmlfontify) (require 'cl) (add-to-list 'emacs-wiki-markup-tags '("fontlock" t t t sd-emacs-wiki-fontlock-tag)) (defun sd-htmlfontify-insert-region (buffer begin end) "Insert into BUFFER the htmlified text between BEGIN and END." (save-excursion (let* ((hfy-optimisations (cons 'skip-refontification hfy-optimisations)) (input-text (buffer-substring begin end)) (temp-file (make-temp-file "html-input")) output-buffer) (with-temp-buffer (insert input-text) (setq buffer-file-name temp-file) (save-excursion (setq output-buffer (htmlfontify-buffer nil nil))) (set-buffer-modified-p nil)) (unwind-protect (let (b e yanked-output) (set-buffer output-buffer) (goto-char (point-min)) (search-forward "<pre>\n") (setq b (line-beginning-position)) (goto-char (point-max)) (search-backward "</pre>") (forward-line -1) (setq e (line-beginning-position)) (setq yanked-output (buffer-substring-no-properties b e)) (set-buffer buffer) (insert yanked-output)) (set-buffer output-buffer) (set-buffer-modified-p nil) (delete-file temp-file) (kill-buffer output-buffer))))) (defun sd-emacs-wiki-fontlock-tag (beg end attrs highlight-p) (if highlight-p (goto-char end) (let ((end-marker (set-marker (make-marker) (1+ end))))) (save-restriction (narrow-to-region beg end) (let* ((mode (cdr (assoc "mode" attrs))) (start (progn (forward-line) (point))) (stop (progn (goto-char end) (beginning-of-line) (point))) (text (buffer-substring-no-properties start stop)) (buffer (current-buffer))) (delete-region beg end) (with-temp-buffer (insert text) (when (and mode (and (stringp mode) (functionp (intern mode)))) (funcall (intern mode)) (font-lock-fontify-buffer)) (sd-htmlfontify-insert-region buffer (point-min) (point-max))) (goto-char (point-min)) (insert "<pre class=\"fontlock\">\n") (goto-char (point-max)) (insert "</pre>\n") (add-text-properties (point-min) (point-max) '(rear-nonsticky (read-only) read-only t)))) (goto-char end))) (require 'emacs-wiki-mathml) (global-set-key [a] esc-map) (global-set-key "\C-h" 'delete-backward-char) (global-set-key "\C-xh" 'help) (normal-erase-is-backspace-mode 1) (setq inferior-lisp-program "sbcl") ;;(load "/root/acl70_trial/eli/fi-site-init") (require 'w3m-load) ;; Load planner (require 'planner) (require 'planner-diary) (require 'remember-planner) (setq remember-handler-functions '(remember-planner-append)) (setq remember-annotation-functions planner-annotation-functions) (global-set-key "\C-xp" 'planner-goto-plan-page) (global-set-key "\C-xa" 'upload-all) (load "remem.el") (setq remem-prog-dir "/usr/bin") (setq remem-database-dir "~/RA-indexes") (setq remem-scopes-list '(("newlife" 6 5 500) ("root" 6 5 500))) (setq remem-load-original-suggestion nil) (add-to-list 'load-path "/home/newlife/SuperCollider3/linux/scel/el") (require 'sclang) (add-to-list 'load-path "/root/slime-1.0") (require 'slime); (add-hook 'lisp-mode-hook (lambda () (slime-mode t))) (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t))) (setq common-lisp-hyperspec-root "file:///root/HyperSpec/") (add-to-list 'load-path "/root/") (load "misc/wiki-remote.el") (defun insert-current-time() "Insert current time" (interactive "*") (insert (current-time-string))) (defun remove-line-breaks () (interactive) (let ((fill-column 9999)) (fill-individual-paragraphs (point-min) (point-max)))) (defun upload-all () (interactive) (emacs-wiki-publish) (shell-command "/usr/bin/sitecopy -u site")) (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(browse-url-browser-function (quote w3m)) '(global-font-lock-mode t nil (font-lock)) '(planner-day-page-template "") '(planner-default-section (quote)) '(planner-diary-string "* ----**") '(planner-plan-page-template "") '(planner-sections (quote ((tasks . "") (notes . "__"))))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) ;;(add-hook 'c-mode-hook ;; (lambda () ;; (c-set-style "linux"))) (diary) (defvar hyperb:dir "/root/hyperbole/") (load (expand-file-name "hversion" hyperb:dir)) (load (expand-file-name "hyperbole" hyperb:dir)) ;;To fully load Hyperbole upon startup, add the additional line: (require 'hsite) (require 'bbdb) (bbdb-initialize) (setq emacs-wiki-projects `(("default" . ((emacs-wiki-directories . ("~/Wiki")))) ("work" . ((fill-column . 65) (emacs-wiki-directories . ("~/testwiki/")))))) ;; for append-remem stuff remem-append i think (add-to-list 'load-path "~/elisp") (load "snuff.el")tech_notes