           (lambda ()
             (setq sh-basic-offset 2
                   sh-indentation 2)))
+
+;; CTags
+(defun create-tags (dir-name)
+  "Create tags file."
+  (interactive "DDirectory: ")
+  (shell-command
+   (format "%s -f TAGS -e -R %s" path-to-ctags (directory-file-name dir-name))))
 
 ;; Company mode
 (add-hook 'after-init-hook 'global-company-mode)


;; Powerline
(require 'powerline)
(powerline-default-theme)

;; OCaml
;; Use the opam installed utop


;; Switch between two most recent buffers
(global-set-key (kbd "M-o")  'mode-line-other-buffer)

(global-set-key (kbd "C-x <up>") 'windmove-up)
(global-set-key (kbd "C-x <down>") 'windmove-down)
(global-set-key (kbd "C-x <right>") 'windmove-right)
(global-set-key (kbd "C-x <left>") 'windmove-left)

;; insert before current line and indent
(defun insert-before-and-indent ()
