123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272 |
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;jungle tools;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- (setq *jungle-root* "~/quicklisp/local-projects/server/")
- (defun jungle-path (path)
- (concat *jungle-root* path))
- (defun jungle-log (msg)
- (let ((log (get-buffer-create "*jungle-log*")))
- (save-excursion
- (set-buffer log)
- (end-of-buffer)
- (newline)
- (insert msg))))
- (defun jungle-report ()
- (interactive)
- (let ((report-buffer (get-buffer-create "*jungle-report*")))
-
- (set-buffer report-buffer)
- (let ((buffer-read-only nil))
- (erase-buffer)
- (beginning-of-buffer)
-
- (newline 2)
- (insert "***JUNGLE REPORT***")
- (center-line)
- (newline 3)
- (insert-file-contents (jungle-path "ADVICE"))
- (end-of-buffer)
-
-
- (newline 3)
- (insert-file-contents (jungle-path "SPRINT"))
- (end-of-buffer)
-
- (newline 3)
- (insert "BUGS:")
-
- (newline 2)
- (let ((cmd (concat "grep -R --line-number --exclude='*~' \"//bug\" " *jungle-root*)))
- (insert (shell-command-to-string cmd)))
-
- (newline 3)
- (insert "OPTIMIZE:")
-
- (newline 2)
- (let ((cmd (concat "grep -R --line-number --exclude='*~' \"//optimize\" " *jungle-root*)))
- (insert (shell-command-to-string cmd)))
- (jungle-log (concat "after optimize: " (number-to-string (point))))
-
- (newline 3)
- (insert "MAGIC:")
-
- (newline 2)
- (let ((cmd (concat "grep -R --line-number --exclude='*~' \"//magic\" " *jungle-root*)))
- (insert (shell-command-to-string cmd)))
-
- (newline 3)
- (insert "TODO:")
-
- (newline 2)
- (let ((cmd (concat "grep -R --line-number --exclude='*~' \"//todo\" " *jungle-root*)))
- (insert (shell-command-to-string cmd)))
- (newline 2)
- (insert-file-contents (jungle-path "TODO"))
- (kill-line 2))
-
- (beginning-of-buffer)
- (grep-mode)
- (switch-to-buffer report-buffer)))
- (global-set-key "\C-cjr" 'jungle-report)
- (setq *jungle-previous-import* "domUtilities")
- (defun jungle-add-import (name file)
- (interactive "sName: \nsFile: ")
- (if (string= file "")
- (setq file *jungle-previous-import*)
- (setq *jungle-previous-import* file))
- (if (string= "./" (subseq file 0 2))
- (setq file (concat file ".js"))
- (setq file (concat "/" file ".js")))
-
- (save-excursion
- (beginning-of-buffer)
- (cond
-
- ((search-forward file nil t)
- (unless (or (search-forward (concatenate 'string name ",") nil t -1)
- (search-forward (concatenate 'string name " ") nil t -1)
- (search-forward (concatenate 'string name "}") nil t -1))
- (search-forward "{" nil t -1)
- (forward-char)
- (insert (format " %s,
- " name))))
-
- (t
- (insert (format "import { %s } from '%s';
- " name file))))))
- (global-set-key "\C-cji" 'jungle-add-import)
- (defun jungle-add-default-import (name file)
- (interactive "sName: \nsFile: ")
-
- (if (string= "./" (subseq file 0 2))
- (setq file (concat file ".js"))
- (setq file (concat "jungle/" file ".js")))
-
-
- (save-excursion
- (beginning-of-buffer)
- (let ((import-string (format "import %s from '%s';" name file)))
- (unless (search-forward import-string nil t)
- (insert (concat import-string "
- "))))))
- (global-set-key "\C-cjI" 'jungle-add-default-import)
- (defun jungle-add-export (name)
- (interactive "sName: ")
- (save-excursion
- (beginning-of-buffer)
- (if (search-forward "export" nil t)
- (unless (search-forward (concat " " name ",") nil t)
- (search-forward "}")
- (backward-char 2)
- (insert (concat ",\n " name)))
- (end-of-buffer)
- (insert (concat "\n\nexport { " name " }")))))
- (global-set-key "\C-cje" 'jungle-add-export)
- (defun jungle-print-color-properties (name)
- (interactive "sName: ")
- (insert (concat name "Background: randomLightColor(),
- " name "Color: randomDarkColor(),\n
- ")))
- (global-set-key "\C-cjp" 'jungle-print-color-properties)
- (defun jungle-print-color-properties-with-contrast (name)
- (interactive "sName: ")
- (insert (concat name "Background: randomLightColor(),
- " name "Color: randomDarkColor(),
- " name "Contrast: randomLightColor(),\n
- ")))
- (global-set-key "\C-cjP" 'jungle-print-color-properties-with-contrast)
- ;;it would be nice to not add whitespace only to kill ring
- ;; (defun jungle-filter-buffer-substring (beg end &optional delete)
- ;; (jungle-log "killin in the jungle" )
- ;; (save-excursion
- ;; (goto-char beg)
- ;; (if (search-forward-regexp "[^[:space:]]" end)
-
- ;; (subr--with-wrapper-hook-no-warnings
- ;; filter-buffer-substring-functions (beg end delete)
- ;; (cond
- ;; ((or delete buffer-substring-filters)
- ;; (save-excursion
- ;; (goto-char beg)
- ;; (let ((string (if delete (delete-and-extract-region beg end)
- ;; (buffer-substring beg end))))
- ;; (dolist (filter buffer-substring-filters)
- ;; (setq string (funcall filter string)))
- ;; string)))
- ;; (t
- ;; (buffer-substring beg end))))
- ;; "")))
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;JUNK YARD;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; (defun jungle-serialize-type (type)
- ;; (interactive "sType Name: ")
- ;; (jungle-add-import "arrayEquals" "jungle/utilities.js")
- ;; ;; (jungle-add-import "audioNodeSerializers" "./compileSynth.js")
- ;; ;; (jungle-add-import "audioNodeUnserializers" "./compileSynth.js")
- ;; ;; (jungle-add-import "serializeInputs" "./audioUtilities.js")
- ;; ;; (jungle-add-import "unserializeInputs" "./audioUtilities.js")
- ;; ;; (jungle-add-import "serializeOutputs" "./audioUtilities.js")
- ;; ;; (jungle-add-import "unserializeOutputs" "./audioUtilities.js")
-
-
- ;; (let ((c-type (upcase-initials type)))
- ;; ;; (save-excursion
- ;; ;; (beginning-of-buffer)
- ;; ;; (search-forward (concat "make" c-type))
- ;; ;; (search-forward "return {")
- ;; ;; (insert (format "
- ;; ;; type: '%s'," type)))
-
- ;; (insert (format
- ;; "function serialize%s(%s) {
- ;; return ['%s',];
- ;; }" c-type type type))
-
- ;; (newline 2)
- ;; (insert (format
- ;; "function unserialize%s(unserialized%s) {
- ;; return {type: '%s',};
- ;; }" c-type c-type type))
-
- ;; (newline 2)
- ;; (insert (format
- ;; "function %sEquals(%s1, %s2) {
- ;; return arrayEquals(serialize%s(%s1),
- ;; serialize%s(%s2),
- ;; undefined,
- ;; true);
- ;; }" type type type c-type type c-type type))
- ;; (save-excursion
- ;; (search-forward "export {")
- ;; (forward-char)
- ;; (insert (jungle-serialized-function-names type)))))
- ;; (global-set-key "\C-cjs" 'jungle-serialize-type)
- ;; (defun jungle-serialized-function-names (type)
- ;; (interactive "sType Name: ")
-
- ;; (insert (format "serialize%s,
- ;; unserialize%s,
- ;; %sEquals,
- ;; " (upcase-initials type) (upcase-initials type) type))
- ;; ;; (kill-new (format "serialize%s,
- ;; ;; unserialize%s,
- ;; ;; %sEquals" (upcase-initials type) (upcase-initials type) type))
- ;; )
- ;; (global-set-key "\C-cjn" 'jungle-serialized-function-names)
|