my-dev.el

;;; package --- Summary
;;; Commentary:
;;; The common development functionality for Emacs (git, testing, etc)

(require 'exec-path-from-shell)
(require 'magit)
(require 'notifications)
(require 'vc-git)
(require 'virtualenvwrapper)

;;; Code:

;;;;;;;;;;;;;;;;
;;; Git
(when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
(global-set-key "\C-x\C-i" 'magit-status)
(setq magit-status-buffer-switch-function 'switch-to-buffer)
(setq git-commit-fill-column 100)

;;;;;;;;;;;;;;;;
;;; Alarms
(setq ring-bell-function 'ignore)

;;;;;;;;;;;;;;;;
;;; Compilation
;;; See also my-global-bindings:function keys
(global-set-key "\C-x\C-m" 'compile)
(setq compilation-always-kill t)
(setq compilation-skip-threshold 2)
;;; Stop scrolling at the first error
(setq compilation-scroll-output 'first-error)

;;; XCodebuild for .m files
(defun bh-compile ()
  (interactive)
  (let ((df (directory-files "."))
        (has-proj-file nil)
        )
    (while (and df (not has-proj-file))
      (let ((fn (car df)))
        (if (> (length fn) 10)
            (if (string-equal (substring fn -10) ".xcodeproj")
                (setq has-proj-file t)
              )
          )
        )
      (setq df (cdr df))
      )
    (if has-proj-file
        (compile "xcodebuild -configuration Debug")
      (compile "make")
      )
    )
  )

(defun notify-compilation-result(buffer msg)
  "Notify that the compilation is finished,
close the *compilation* buffer if the compilation is successful,
and set the focus back to Emacs frame"
  (if (string-match "^finished" msg)
      (progn
	;; Notify on compilation success
	(notifications-notify
	 :title "Compilation Success"
	 :timeout 2000
	 :urgency 'low))
    (notifications-notify
     ;; Notify on compilation failure
     :title "Compilation Failure"
     :timeout 2000
     :urgency 'low))
  (setq current-frame (car (car (cdr (current-frame-configuration)))))
  (select-frame-set-input-focus current-frame)
  )

(add-to-list 'compilation-finish-functions
	     'notify-compilation-result)

;;;;;;;;;;;;;;;;
;;; GDB
(global-set-key (kbd "C-c C-g")
		'(lambda ()(interactive)
		   (gud-gdb (concat "gdb --fullname "
				    (cppcm-get-exe-path-current-buffer)))))

(when (memq window-system '(mac ns))
  (exec-path-from-shell-initialize)
  (exec-path-from-shell-copy-env "EDITOR"))

(venv-initialize-interactive-shells) ;; if you want interactive shell support
(venv-initialize-eshell) ;; if you want eshell support
(setq venv-location "/home/replica/RepLabs/server/venv/")


(provide 'my-dev)
;;; my-dev.el ends here