.emacs

(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 browse-url-epiphany))
 '(c-basic-offset 8)
 '(column-number-mode t)
 '(delete-selection-mode nil)
 '(font-use-system-font t)
 '(global-font-lock-mode t nil (font-lock))
 '(grep-command "LANG=C grep -nH -e ")
 '(helm-buffer-skip-remote-checking t)
 '(helm-ff-file-name-history-use-recentf t)
 '(helm-ff-tramp-not-fancy t)
 '(helm-mode-reverse-history nil)
 '(inverse-video t)
 '(line-move-visual nil)
 '(line-number-mode t)
 '(mark-even-if-inactive t)
 '(org-remember-store-without-prompt nil)
 '(package-selected-packages
   (quote
    (yaml-mode flycheck wgrep-helm wgrep smex rpm-spec-mode quack php-mode paredit markdown-mode ledger-mode keyfreq json-mode helm go-mode expand-region evil)))
 '(quack-programs
   (quote
    ("/usr/bin/gosh" "/home/pclouds/opt/gauche/bin/gosh" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi")))
 '(read-file-name-completion-ignore-case t)
 '(safe-local-variable-values
   (quote
    ((eval c-set-offset
	   (quote arglist-close)
	   0)
     (eval c-set-offset
	   (quote arglist-intro)
	   (quote ++))
     (eval c-set-offset
	   (quote case-label)
	   0)
     (eval c-set-offset
	   (quote statement-case-open)
	   0)
     (eval c-set-offset
	   (quote substatement-open)
	   0)
     (nxml-child-indent . 2)
     (test-case-name . mgmt\.operapi\.test\.test_resolve)
     (test-case-name . mgmt\.operapi\.test\.test_fault)
     (test-case-name . mgmt\.acctapi\.test\.test_upload)
     (test-case-name . mgmt\.storage\.test\.test_script)
     (test-case-name . mgmt\.acctapi\.test\.test_storage)
     (test-case-name . rr\.test\.test_manifestrewrite)
     (test-case-name . rr\.test\.test_plugins)
     (test-case-name . rr\.test\.test_hls)
     (test-case-name . twisted\.logger\.test\.test_legacy)
     (test-case-name . twisted\.logger\.test\.test_stdlib)
     (test-case-name . twisted\.logger\.test)
     (test-case-name . twisted\.test\.test_log)
     (test-case-name . mgmt\.operapi\.test\.test_script)
     (test-case-name . mgmt\.operapi\.test\.test_router)
     (test-case-name . origintest\.test_ingest)
     (test-case-name . mgmt\.test\.test_breaker)
     (test-case-name . mgmt\.acctapi\.test\.test_subscription)
     (test-case-name . mgmt\.cfg\.confd\.test\.test_confdconfiguration)
     (test-case-name . twisted\.test\.test_adbapi)
     (test-case-name . mgmt\.acctapi\.test\.test_recording)
     (test-case-name . mgmt\.cfg\.test\.test_account)
     (test-case-name . twisted\.web\.test\.test_http)
     (test-case-name . twisted\.web\.test\.test_web)
     (test-case-name . mgmt\.test\.test_db)
     (test-case-name . mgmt\.acctapi\.test\.test_session)
     (test-case-name . mgmt\.acctapi\.test\.test_db)
     (test-case-name . mgmt\.admin\.test\.test_content)
     (test-case-name . mgmt\.acctapi\.test\.test_channel)
     (test-case-name . mgmt\.cfg\.confd\.test\.test_backends)
     (test-case-name . mgmt\.cfg\.confd\.test\.test_servergroups)
     (test-case-name . mgmt\.acctapi\.test\.test_service)
     (test-case-name . mgmt\.storage\.test\.test_db)
     (test-case-name . mgmt\.record\.scheduler\.test\.test_script)
     (test-case-name . mgmt\.record\.test\.test_policies)
     (test-case-name . mgmt\.record\.test\.test_scheduler)
     (test-case-name . mgmt\.record\.scheduler\.test\.test_db)
     (test-case-name . mgmt\.record\.agent\.test\.test_script)
     (test-case-name . xhades\.record\.test\.test_policies)
     (test-case-name . mgmt\.test\.test_smoketest)
     (test-case-name . mgmt\.cfg\.test\.test_db)
     (test-case-name . mgmt\.cfg\.test\.test_distrib)
     (test-case-name . mgmt\.acctapi\.test\.test_distrib)
     (test-case-name . mgmt\.record\.test\.test_service)
     (test-case-name . mgmt\.record\.test\.test_recording)
     (test-case-name . mgmt\.storage\.test\.test_service)
     (test-case-name . mgmt\.admin\.test\.test_script)
     (test-case-name . mgmt\.test\.test_acctapi)
     (test-case-name . mgmt\.cfg\.confd\.test\.test_extra_config)
     (test-case-name . mgmt\.test\.test_util)
     (test-case-name . mgmt\.test\.test_config)
     (test-case-name . mgmt\.test\.test_server)
     (test-case-name . mgmt\.cfg\.test\.test_script)
     (test-case-name . mgmt\.cfg\.confd\.test\.test_confdsynchronizer)
     (test-case-name . mgmt\.cfg\.test\.test_sync)
     (test-case-name . mgmt\.acctapi\.test\.test_script)
     (test-case-name . mgmt\.acctapi\.test\.test_content)
     (test-case-name . origintest\.test_playout)
     (test-case-name . xhades\.storage\.test\.test_db)
     (test-case-name . origintest\.test_db)
     (test-case-name . origintest\.test_node)
     (test-case-name . origintest\.test_channel)
     (test-case-name . edgeware\.tests\.test_channels)
     (test-case-name . edgeware\.tests\.test_services)
     (test-case-name . xhades\.acctapi\.test\.test_distrib)
     (test-case-name . xhades\.acctapi\.test\.test_upload)
     (test-case-name . xhades\.cfg\.test\.test_account)
     (test-case-name . xhades\.cfg\.test\.test_script)
     (test-case-name . xhades\.acctapi\.test\.test_content)
     (test-case-name . rr\.test\.test_logdb)
     (test-case-name . xhades\.record\.scheduler\.test\.test_cms)
     (test-case-name . edgy\.test\.test_eventbus)
     (test-case-name . rr\.test\.test_avail)
     (test-case-name . rr\.test\.test_accessdb)
     (test-case-name . rr\.test\.test_router)
     (test-case-name . xatlas\.test\.test_convoyd)
     (test-case-name . xhades\.admin\.test\.test_streamer)
     (test-case-name . xhades\.admin\.test\.test_stat)
     (test-case-name . xhades\.admin\.test\.test_operator)
     (test-case-name . xhades\.admin\.test\.test_command)
     (test-case-name . xhades\.admin\.test\.test_script)
     (test-case-name . rr\.test\.test_wsgi)
     (test-case-name . xhades\.operapi\.test\.test_script)
     (test-case-name . xhades\.acctapi\.test\.test_service)
     (test-case-name . xhades\.test\.test_server)
     (test-case-name . xhades\.test\.test_util)
     (test-case-name . xhades\.acctapi\.test\.test_script)
     (test-case-name . xhades\.acctapi\.test\.test_db)
     (test-case-name . xhades\.test\.test_db)
     (c-file-style . ellemtel)
     (c-c-basic-offset . 2)
     (js2-basic-offset . 4)
     (package . swank-tcp-servers))))
 '(scroll-bar-mode (quote right))
 '(sh-basic-offset 8)
 '(sh-indentation 8)
 '(show-paren-mode t nil (paren))
 '(show-trailing-whitespace t)
 '(sml/active-background-color "dark blue")
 '(sml/inactive-background-color "black")
 '(tramp-default-method "ssh")
 '(transient-mark-mode t))

(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.
 '(highlight ((t (:background "blue"))))
 '(hl-line ((t (:inherit highlight :background "gray20"))))
 '(plex-mode-string-face ((t (:foreground "firebrick"))) t)
 '(quack-pltish-defn-face ((t (:foreground "yellow" :weight bold)))))

(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp"))

(require 'package)
(package-initialize)
(add-to-list 'package-archives
	     '("melpa" . "http://melpa.milkbox.net/packages/") t)

(add-hook 'c-mode-common-hook
	  (lambda ()
	    (which-function-mode t)
	    ;(subword-mode 1)
;	    (if (string-match "edgeware" buffer-file-name)
;		(if (string-match "platform/drivers/" buffer-file-name)
;		    (progn
;		      (c-set-style "linux"))
;		  (progn
;		    (c-set-style "ellemtel")
;		    (set-variable 'c-basic-offset 4)
;		    (set-variable 'indent-tabs-mode nil))))
	    ))

(add-hook 'js-mode-hook
	  (lambda ()
	    (which-function-mode t)
	    (set-variable 'indent-tabs-mode nil)))
(add-hook 'html-mode-hook
	  (lambda ()
	    (set-variable 'indent-tabs-mode nil)))

(global-set-key [f7] 'compile)
(global-set-key "\C-z" 'undo)
(global-set-key (kbd "C-x C-o") 'ff-find-other-file)
(global-unset-key (kbd "C-x C-z"))

(setq cc-other-file-alist
      '(("\\.c"  (".h"))
       ("\\.cpp" (".h" ".hpp"))
       ("\\.h"   (".c" ".cpp"))))

(setq ff-search-directories
      '("." "../src" "../inc"))

(defun paste-from-selection ()
  (interactive)
  (insert-string (x-get-selection)))
(global-set-key (kbd "C-M-y") 'paste-from-selection)

(global-set-key [?\C-x C-tab] 'other-window)
(global-set-key [?\C-x C-left] 'windmove-left)
(global-set-key [?\C-x C-right] 'windmove-right)
(global-set-key [?\C-x C-up] 'windmove-up)
(global-set-key [?\C-x C-down] 'windmove-down)

(global-set-key (kbd "M-RET") 'completion-at-point)

;(load "/usr/share/emacs/site-lisp/site-gentoo.el")
;(load (expand-file-name "~/.emacs.d/vnvni.el"))

(put 'narrow-to-region 'disabled nil)

(require 'helm-config)
(global-set-key (kbd "M-x") 'helm-M-x)
(global-set-key (kbd "M-y") 'helm-show-kill-ring)
(global-set-key (kbd "C-c h o") 'helm-occur)
(global-set-key (kbd "C-c h s") 'helm-info-gauche-refe)
(global-set-key (kbd "C-c h z") 'helm-complex-command-history)
(global-set-key (kbd "C-x C-f") 'helm-find-files)
(helm-mode 1)
(define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)


(global-set-key (kbd "M-i") 'helm-imenu)
(global-set-key '[C-tab] 'helm-mini)
(require 'recentf)
(global-set-key "\C-x\ \C-r" 'recentf-open-files)

; C-x C-j to jump at dir of current buffer
(load "dired-x")

;; save a bunch of variables to the desktop file
;; for lists specify the len of the maximal saved data also
(setq desktop-globals-to-save
      (append '((extended-command-history . 30)
                (file-name-history        . 100)
                (grep-history             . 30)
                (compile-history          . 30)
                (minibuffer-history       . 50)
                (query-replace-history    . 60)
                (read-expression-history  . 60)
                (regexp-history           . 60)
                (regexp-search-ring       . 20)
                (search-ring              . 20)
                (shell-command-history    . 50)
                tags-file-name
		register-alist)))

(load "org-install")
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(setq org-log-done 'time)
(setq org-return-follows-link t)

(setq org-directory "~/org/")
(setq org-default-notes-file (concat org-directory "/notes.org"))
(define-key global-map "\C-cr" 'org-remember)
(add-hook 'org-mode-hook
	  (lambda ()
	    (define-key org-mode-map [(control tab)] nil)))

;(require 'identica-mode)
(setq identica-username "pclouds")

(require 'xsel)

(put 'upcase-region 'disabled nil)

;; saveplace
(setq save-place-file "~/.emacs.d/saveplace")
(setq-default save-place t)
(require 'saveplace)

;; Emacs shell understands ANSI escape
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; No toolbar
(global-hl-line-mode)
(tool-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(setq backup-inhibited t)
(setq auto-save-default nil)

(defvar after-make-console-frame-hooks '()
  "Hooks to run after creating a new TTY frame")
(defvar after-make-window-system-frame-hooks '()
  "Hooks to run after creating a window frames")

(add-hook 'after-make-frame-functions
	  (lambda (frame)
	    (select-frame frame)
	    (run-hooks (if (frame-parameter frame 'window-system)
			   'after-make-window-system-frame-hooks
			 'after-make-console-frame-hooks))))

;; basic environment
(setenv "PAGER" "cat")
(setenv "EDITOR" "emacsclient")

;; F1 shell popup
(load "~/.emacs.d/lisp/shell-pop.el")
(global-set-key [f1] 'shell-pop)

(add-hook 'po-subedit-mode-hook
	  (lambda ()
	    (set-input-method "vietnamese-vni")))

(defun po-wrap ()
  "Filter current po-mode buffer through `msgcat' tool to wrap all lines."
  (interactive)
  (if (eq major-mode 'po-mode)
      (let ((tmp-file (make-temp-file "po-wrap."))
	    (tmp-buf (generate-new-buffer "*temp*")))
	(unwind-protect
	    (progn
	      (write-region (point-min) (point-max) tmp-file nil 1)
	      (if (zerop
		   (call-process
		    "msgcat" nil tmp-buf t (shell-quote-argument tmp-file)))
		  (let ((saved (point))
			(inhibit-read-only t))
		    (delete-region (point-min) (point-max))
		    (insert-buffer tmp-buf)
		    (goto-char (min saved (point-max))))
		(with-current-buffer tmp-buf
		  (error (buffer-string)))))
	  (kill-buffer tmp-buf)
	  (delete-file tmp-file)))))

(setq auto-save-default nil)

(require 'uniquify)
(set 'uniquify-buffer-name-style 'post-forward)

(load "~/.emacs.d/lisp/window-number.el")
(window-number-meta-mode)
(defalias 'list-buffers 'ibuffer)
(put 'set-goal-column 'disabled nil)

;;; Gauche
(setq scheme-program-name "/home/pclouds/opt/gauche/bin/gosh")
(put 'and-let* 'scheme-indent-function 1)
(put 'begin0 'scheme-indent-function 0)
(put 'call-with-client-socket 'scheme-indent-function 1)
(put 'call-with-input-conversion 'scheme-indent-function 1)

(put 'call-with-input-file 'scheme-indent-function 1)
(put 'call-with-input-process 'scheme-indent-function 1)
(put 'call-with-input-string 'scheme-indent-function 1)
(put 'call-with-iterator 'scheme-indent-function 1)
(put 'call-with-output-conversion 'scheme-indent-function 1)
(put 'call-with-output-file 'scheme-indent-function 1)
(put 'call-with-output-string 'scheme-indent-function 0)
(put 'call-with-temporary-file 'scheme-indent-function 1)
(put 'call-with-values 'scheme-indent-function 1)
(put 'dolist 'scheme-indent-function 1)
(put 'dotimes 'scheme-indent-function 1)
(put 'if-match 'scheme-indent-function 2)
(put 'let*-values 'scheme-indent-function 1)
(put 'let-args 'scheme-indent-function 2)
(put 'let-keywords* 'scheme-indent-function 2)
(put 'let-match 'scheme-indent-function 2)
(put 'let-optionals* 'scheme-indent-function 2)
(put 'let-syntax 'scheme-indent-function 1)
(put 'let-values 'scheme-indent-function 1)
(put 'let/cc 'scheme-indent-function 1)
(put 'let1 'scheme-indent-function 2)
(put 'letrec-syntax 'scheme-indent-function 1)
(put 'make 'scheme-indent-function 1)
(put 'multiple-value-bind 'scheme-indent-function 2)
(put 'parameterize 'scheme-indent-function 1)
(put 'parse-options 'scheme-indent-function 1)
(put 'receive 'scheme-indent-function 2)
(put 'rxmatch-case 'scheme-indent-function 1)
(put 'rxmatch-cond 'scheme-indent-function 0)
(put 'rxmatch-if  'scheme-indent-function 2)
(put 'rxmatch-let 'scheme-indent-function 2)
(put 'syntax-rules 'scheme-indent-function 1)
(put 'unless 'scheme-indent-function 1)
(put 'until 'scheme-indent-function 1)
(put 'when 'scheme-indent-function 1)
(put 'while 'scheme-indent-function 1)
(put 'with-builder 'scheme-indent-function 1)
(put 'with-error-handler 'scheme-indent-function 0)
(put 'with-error-to-port 'scheme-indent-function 1)
(put 'with-input-conversion 'scheme-indent-function 1)
(put 'with-input-from-port 'scheme-indent-function 1)
(put 'with-input-from-process 'scheme-indent-function 1)
(put 'with-input-from-string 'scheme-indent-function 1)
(put 'with-iterator 'scheme-indent-function 1)
(put 'with-module 'scheme-indent-function 1)
(put 'with-output-conversion 'scheme-indent-function 1)
(put 'with-output-to-port 'scheme-indent-function 1)
(put 'with-output-to-process 'scheme-indent-function 1)
(put 'with-output-to-string 'scheme-indent-function 1)
(put 'with-port-locking 'scheme-indent-function 1)
(put 'with-string-io 'scheme-indent-function 1)
(put 'with-time-counter 'scheme-indent-function 1)
(put 'with-signal-handlers 'scheme-indent-function 1)

(fset 'number-in-comment [?\M-\; ?\C-x ?\C-k tab down])

(setq vc-handled-backends nil)

(autoload 'ledger-mode "ledger-mode" nil t)
(setq ledger-binary-path "/home/pclouds/w/ledger/ledger")


(require 'expand-region)
(global-set-key (kbd "C-=") 'er/expand-region)

(require 'quack)
(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'scheme-mode-hook           #'enable-paredit-mode)

(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode))