 (defvar *Basepage-Path-Hash* (make-hash-table :test 'equal))
 (defvar *Project-Root-Hash* (make-hash-table :test 'equal))
 (defvar *Public-Root-Hash* (make-hash-table :test 'equal))
+(defvar *Err-Log-Hash* (make-hash-table :test 'equal))
 
 (puthash "iammegumi" "~/Software/iammegumi.com/sources/appSrc" *Project-Source-Hash*)
 (puthash "iammegumi" "~/Software/iammegumi.com/sources/app" *Project-Scrounge-Hash*)

  "set a focus page for scrounge. page must be a key at scrounge hash."
  (setq focus-site site))



(global-set-key (kbd "C-c f") 'set-focus-site)


(defun JSON () (interactive)
  (let ((file-name buffer-file-name))
    (shell-command (concat "node ~/Software/json-parse.js -i " file-name))))



(defun Scrounge (&optional type is-fake) (interactive)
  "compress the buffer file with scrounge"
  (setq compilation-scroll-output t)

(puthash "kuaweb" "~/Software/kuaweb/sources/app" *Project-Scrounge-Hash*)
(puthash "kuaweb" "~/Software/kuaweb/sources/index.html" *Basepage-Path-Hash*)
(puthash "kuaweb" "~/Software/kuaweb" *Project-Root-Hash*)
(puthash "kuaweb" "~/Software/kuaweb/log/out.log" *Err-Log-Hash*)
(puthash "kuaweb" "/app" *Public-Root-Hash*)

(puthash "kuawebHTTP" "~/Software/kuaweb/sources/appSrc" *Project-Source-Hash*)
