mode-line as I like it

init.el

@@ -453,6 +453,41 @@ This is the same as using \\[set-mark-command] with the prefix argument."
     (set-face-attribute face nil :weight 'normal))
   (face-list))
 
+(setq-default mode-line-modified '(:eval (if (buffer-modified-p) "●" "·"))) ;still  needs some improvements, does not report Readonly state
+(setq-default mode-line-remote '(:eval (let ((s (format-mode-line "%@")))
+  (cond
+   ((equal s "-") "·") ((equal s "@") "@") (t s)))))
+
+(defvar wilder-buffer-vc-mode-line
+	      '("%b" (vc-mode (:propertize
+		     ;; Strip the backend name from the VC status information
+		     (:eval (let* ((backend (downcase (symbol-name (vc-backend (buffer-file-name)))))
+				   (branch (substring vc-mode (+ (length backend) 2)))
+				   (s (substring vc-mode (+ (length backend) 1) (+ (length backend) 2)))
+				   (status (cond ((equal s "-") "") ((equal s ":") "!") (t s))))
+			      (concat "·" branch status)))
+		     face font-lock-keyword-face))))
+(put 'wilder-buffer-vc-mode-line 'risky-local-variable t)
+
+(defvar wilder-position
+  '("[%p,%I] " ))
+
+(put 'wilder-position 'risky-local-variable t)
+
+(setq-default mode-line-format
+	      '("%e"
+		mode-line-front-space
+		mode-line-mule-info
+		mode-line-client
+		mode-line-modified
+		mode-line-remote
+		mode-line-frame-identification
+		wilder-buffer-vc-mode-line "   "
+		wilder-position " "
+		mode-line-modes
+		mode-line-misc-info
+		mode-line-end-spaces))
+
 (setq server-name (kde-current-activity))
 (server-start)
 (menu-bar-mode -99)

init/init-latex.el

@@ -9,6 +9,8 @@
 (setq LaTeX-figure-label "f_")
 (setq TeX-fold-ellipsis " …")
 (require 'reftex)
+(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
+
 
 (defun dabbrev-expand-helper ()
   (interactive)

init/init-org.el

@@ -2,6 +2,7 @@
 
 (require 'org-install)
 (require 'org-pomodoro)
+
 (add-hook 'org-mode-hook (lambda ()
 			   (turn-on-auto-fill)))
 (setq org-default-notes-file "~/org/notes.org")
@@ -18,3 +19,25 @@
 
 (setq org-clock-persist 'history)
 (org-clock-persistence-insinuate)
+
+(setq org-mobile-directory "~/coxeter/mobileOrg")
+
+;; found this in http://blog.zhengdong.me/2012/06/16/org-my-life/
+(defvar org-mobile-sync-timer nil)
+(defvar org-mobile-sync-idle-secs (* 60 4))
+(defun org-mobile-sync ()
+  (interactive)
+  (org-mobile-pull)
+  (org-mobile-push))
+(defun org-mobile-sync-enable ()
+  "enable mobile org idle sync"
+  (interactive)
+  (setq org-mobile-sync-timer
+        (run-with-idle-timer org-mobile-sync-idle-secs t
+                             'org-mobile-sync)));
+(defun org-mobile-sync-disable ()
+  "disable mobile org idle sync"
+  (interactive)
+  (cancel-timer org-mobile-sync-timer))
+(org-mobile-sync-enable)
+;;----------------------------------------------------------

org-clock-save.el

@@ -1 +1 @@
-;; org-persist.el - fourspoons at <2014-12-23 Tue 15:11>
+;; org-persist.el - fourspoons at <2016-01-17 Sun 23:50>

org-pomodoro

@@ -1 +1 @@
-Subproject commit 3ab61f959214b8ce76aad8a4ae52320652eca29b
+Subproject commit 680b1f3893fa89da01cc770acbb1dbe086749e96