-->

1010/ap

__

fm01 notes-plans-ideas 14:52 (fmo1planner#2)

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

much related to planner and emacswiki in use here: 14:38 (emacs#1)

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