myhelm.el

;;------------------------------------------------------------------------------
;; helm
;;------------------------------------------------------------------------------
(require 'helm-config)
(require 'helm-command)
(require 'helm-descbinds)
(require 'helm-ls-git)
(require 'helm-imenu)
(require 'helm-gtags)

(setq helm-idle-delay             0.2
      helm-input-idle-delay       0.2
      helm-candidate-number-limit 200
      helm-ff-auto-update-initial-value nil)

(defun my-helm ()
  (interactive)
  (helm :sources '(
                   helm-c-source-imenu
                   helm-c-source-buffers-list
                   helm-c-source-ls-git
                   helm-c-source-recentf
                   helm-c-source-files-in-current-dir
                   helm-c-source-buffer-not-found)
        :buffer "*my helm*"))

(global-set-key (kbd "C-l") 'my-helm)
(global-set-key (kbd "C-M-l") 'helm-resume)
(global-set-key (kbd "C-c C-h") 'helm-descbinds)
(global-set-key (kbd "M-x") 'helm-M-x)
(global-set-key (kbd "C-x b") 'helm-buffers-list)
(define-key ac-complete-mode-map (kbd "C-;") 'ac-complete-with-helm)

(eval-after-load 'helm
  '(progn
     (define-key helm-map (kbd "C-h") 'delete-backward-char)))


(when (require 'popwin)
  (setq helm-samewindow nil)
  (setq display-buffer-function 'popwin:display-buffer)
  (setq popwin:special-display-config '(("*compilatoin*" :noselect t)
                                        ("helm" :regexp t :height 0.3)
                                        )))

(remove-hook 'kill-emacs-hook 'helm-c-adaptive-save-history)

(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.
 '(helm-selection ((t (:background "LightSteelBlue4" :underline t))))
 '(helm-source-header ((t (:background "dark slate gray" :foreground "white" :weight bold :height 1.3 :family "Sans Serif")))))