(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.
 '(TeX-newline-function (quote reindent-then-newline-and-indent))
 '(auto-save-file-name-transforms (quote ((".*" "~/.emacs.d/autosaves/\\1" t))))
 '(backup-directory-alist (quote ((".*" . "~/.emacs.d/backup/"))))
 '(case-fold-search t)
 '(current-language-environment "English")
 '(default-input-method "rfc1345")
 '(flyspell-duplicate-distance 0)
 '(flyspell-mark-duplications-flag t)
 '(font-latex-fontify-sectioning (quote color))
 '(global-font-lock-mode t nil (font-lock))
 '(inhibit-startup-screen t)
 '(safe-local-variable-values (quote ((bookmark-default-file . "./emacs.bmk"))))
 '(show-paren-mode t)
 '(transient-mark-mode t)
 '(truncate-partial-width-windows nil))

(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.
 '(default ((t (:background "DarkSlateGrey" :foreground "Wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 80 :width normal :foundry "xos4" :family "terminus"))))
 '(bold ((t (:weight semi-bold))))
 '(cursor ((t (:background "orchid"))))
 '(fixed-pitch ((t (:family "Bitstream Vera Sans Mono"))))
 '(italic ((((supports :underline t)) nil)))
 '(menu ((t (:inverse-video t))))
 '(mouse ((t (:background "orchid"))))
 '(tooltip ((t (:inherit default :background "lightyellow" :foreground "black" :foundry "xos4" :family "terminus"))))
 '(variable-pitch ((t (:family "default")))))

(setq-default display-buffer-reuse-frames t)

(setq c-basic-offset 4)
(setq indent-tabs-mode nil)

(setq-default abbrev-mode t)
(read-abbrev-file "~/.abbrev_defs")
(setq save-abbrevs t)

;; fix compilation window eating up my work window
(setq compilation-scroll-output t
      compilation-window-height 12)

(tool-bar-mode 0)
(scroll-bar-mode -1)
(setq-default show-trailing-whitespace t)
(setq search-whitespace-regexp "[ \t\r\n]+")
(setq flyspell-use-meta-tab nil)

(setq redisplay-dont-pause t
      scroll-margin 1
      scroll-step 1
      scroll-conservatively 10000
      scroll-preserve-screen-position 1)

(require 'mic-paren) ; loading
(paren-activate)     ; activating

(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
(global-set-key (kbd "<backtab>") 'TeX-complete-symbol)

(setq mouse-autoselect-window nil)
(mouse-wheel-mode t)
(load "auctex.el" nil t t)
(setq TeX-auto-save t
      TeX-parse-self t
      TeX-insert-braces nil)
(setq-default TeX-master nil)
(setq font-latex-fontify-script nil)
(setq LaTeX-equation-label "e_")
(setq LaTeX-section-label "s_")
(load "~/bibsnarf.el" nil t t)
(require 'reftex)

;; KDE stuff
;;

(add-to-list 'load-path "~/kde-emacs")

(load "qml-mode.el" nil t t);
(require 'kde-emacs)
;;(setq kde-full-name "Jacopo De Simoi")
;;(setq kde-email "wilderkde@gmail.com")

(setq frame-title-format
    '("emacs %S: " (buffer-file-name "%f"
        (dired-directory dired-directory "%b"))))


;; Put autosave files (ie #foo#) and backup files (ie foo~) in ~/.emacs.d/.
;; create the autosave dir if necessary, since emacs won't.
(make-directory "~/.emacs.d/autosaves/" t)
(make-directory "~/.emacs.d/backup/" t)

;;(load "skype.el" nil t t)
;;
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
(add-hook 'text-mode-hook 'flyspell-mode)
(require 'linum)
(add-hook 'LaTeX-mode-hook 'linum-mode)
;; Let us see how it goes with this.
(add-hook 'LaTeX-mode-hook 'subword-mode)
(add-hook 'LaTeX-mode-hook (lambda () (modify-syntax-entry ?\\ "w" LaTeX-mode-syntax-table)))

;; this should really be called in the hook
(setq subword-forward-regexp "\\W*\\(\\([\\\\[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)")
(setq subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([\\\\[:upper:]]+\\W*\\)\\|\\W\\w+\\)")


(setq default-fill-column 120)
(add-to-list 'load-path "~/tmp")
(add-to-list 'load-path "~/tmp/expand-region.el")

(setq mouse-yank-at-point t)
(blink-cursor-mode 0)
(global-hl-line-mode t)
(setq focus-follows-mouse nil)

(require 'pomodoro)
(require 'key-chord)
(key-chord-mode 1)


;; kde activity stuff -- move to other file when stabilized
(defun kde-current-activity ()
  "Returns the current KDE activity"
  (substring (shell-command-to-string "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.CurrentActivity") 0 -1)
)

(defun X-window-id-belongs-to-activity (window-id activity)
  (= (shell-command (concat "xprop -id " window-id " | grep  _KDE_NET_WM_ACTIVITIES | grep " activity ">/dev/null")) 0)
)

(defun select-frame-on-activity (activity)
  (setq framelist (frame-list))
  (setq done nil)
  (while (and framelist (not done))
    (setq cur (car framelist))
    (setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
    (if cur-id (if (X-window-id-belongs-to-activity cur-id activity) (progn;
(setq done 't) (select-frame cur)) ))
    (setq framelist (cdr framelist)))
  done
)

(defun select-X-frame ()
  (setq framelist (frame-list))
  (setq done nil)
  (while (and framelist (not done))
    (setq cur (car framelist))
    (setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
    (if cur-id (progn;
      (setq done 't) (raise-frame cur)))
    (setq framelist (cdr framelist)))
  done
)

(defun select-frame-on-current-activity ()
 (select-frame-on-activity (kde-current-activity))
)

;; stop using the arrow keys
;; mark the date 30/1/2014
(global-unset-key [left])
(global-unset-key [up])
(global-unset-key [right])
(global-unset-key [down])

;;Remove insanely irritating key-binding
(global-unset-key (kbd "C-z"))

(require 'visible-mark)
(visible-mark-mode t)
(global-visible-mark-mode t)

(delete 'Git vc-handled-backends)
(require 'magit)

(require 'iy-go-to-char)
;; (key-chord-define-global "hjdd" 'iy-go-to-char-backward) 
;; (key-chord-define-global "jk" 'iy-go-to-char)

(defun smart-line-beginning ()
  "Move point to the beginning of text on the current line; if that is already
the current position of point, then move it to the beginning of the line."
  (interactive)
  (let ((pt (point)))
    (beginning-of-line-text)
    (when (eq pt (point))
      (beginning-of-line))))

(require 'expand-region)
(global-set-key (kbd "C-a") 'smart-line-beginning)
(global-set-key (kbd "M-m") 'iy-go-to-char)
(global-set-key (kbd "C-M-h") 'er/expand-region)

(defun emacs-session-filename (session-id)
  "Construct a filename to save the session in based on SESSION-ID.
If the directory ~/.emacs.d exists, we make a filename in there, otherwise
a file in the home directory."
  (let ((basename (concat "sessions/session." session-id))
	(emacs-dir user-emacs-directory))
    (expand-file-name (if (file-directory-p emacs-dir)
			  (concat emacs-dir basename)
			(concat "~/.emacs-" basename)))))

(setq server-name (kde-current-activity))
(server-start)
(menu-bar-mode -99)