Some more cleanup

.mc-lists.el

@@ -69,6 +69,7 @@
 	comment-dwim
 	dabbrev-completion
 	describe-key
+	end-of-buffer
 	fill-paragraph
 	find-file
 	forward-sentence

global.org

@@ -132,11 +132,11 @@
 
 ** Modeline
    #+BEGIN_SRC emacs-lisp
-     (setq-default mode-line-modified '(:eval (if (buffer-modified-p) " " "·"))) ;still needs some improvements,
+     (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)))))
+        ((equal s "-") "·") ((equal s "@") "@") (t s)))))
 
      (defvar wilder-buffer-vc-mode-line
                    '("%b" (vc-mode (:propertize
@@ -145,7 +145,7 @@
                                         (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)))
+                                   (concat "·" branch status)))
                           face font-lock-comment-face))))
      (put 'wilder-buffer-vc-mode-line 'risky-local-variable t)
 
@@ -230,6 +230,18 @@
      ;; (setq fcl-fringe-bitmap 'right-triangle)
    #+END_SRC
 
+** Use ~helm~
+   #+BEGIN_SRC emacs-lisp
+     (require 'helm-config)
+     (helm-mode 1)
+     (global-set-key (kbd "M-x") 'helm-M-x)
+     (global-set-key (kbd "C-x C-f") 'helm-find-files)
+     (global-set-key (kbd "C-x b") 'helm-mini)
+     (global-set-key (kbd "C-x C-b") 'helm-mini)
+     (global-set-key (kbd "M-y") 'helm-show-kill-ring)
+     (define-key helm-map (kbd "C-h") nil)
+     (define-key helm-find-files-map (kbd "C-h") nil)
+   #+END_SRC
 * Leftovers
     #+BEGIN_SRC emacs-lisp
       (setq search-whitespace-regexp "[ \t\r\n]+")
@@ -249,12 +261,13 @@
       (add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode))
     #+END_SRC
 
-** TODO find out how kde-emacs makes “makeâ€<EFBFBD> actually work
+** DONE find out how kde-emacs makes “make” actually work
   I need to keep this up until I realize what I need to make “make” work
-  Please notice that kde-emacs forces the menu to show
+  Please notice that kde-emacs forces the menu to show;
+
   #+BEGIN_SRC emacs-lisp
-    (require 'kde-emacs)
-    (menu-bar-mode -1)
+;;    (require 'kde-emacs)
+;;    (menu-bar-mode -1)
   #+END_SRC
 ** Leftovers
 #+BEGIN_SRC emacs-lisp
@@ -264,28 +277,12 @@
   ;; (require 'sourcepair)
   ;; (global-set-key (kbd "<f6>") 'sourcepair-load)
 
-(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
-
   (global-set-key (kbd "C-x k") 'kill-this-buffer) ;;why not?
 
   (setq default-fill-column 110)
 
   ;; (require 'pomodoro)
 
-(defun select-frame-on-current-activity ()
- (select-frame-on-activity (kde-current-activity))
-)
-
-;; Rehab ↓
-;; mark the date 30/1/2014
-;; (require 'no-easy-keys)
-;; (no-easy-keys 1)
-;; conflicts a bit with org-mode
-
-;; Keyboard is faster than mouse
-;; Rehab ↑
-
-;;Remove insanely irritating key-binding
   (global-unset-key (kbd "C-z"))
   (global-unset-key (kbd "C-x f"))
   (global-unset-key (kbd "<M-f4>")) ; rly?
@@ -297,21 +294,19 @@
   (global-set-key (kbd "C-M-o") 'up-list)   ;; -o stands for /out/
 
   (global-set-key (kbd "C-M-d") 'kill-sexp)
+  (global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
+
 
   ;; * magit
 
   (global-set-key (kbd "C-x C-g") 'magit-status) ;;relates to C-x C-f and C-x C-s
 
-;; * iy-go-to char (broken)
-;; (require 'iy-go-to-char)
-;; (global-set-key (kbd "M-m") 'iy-go-up-to-char)
-;; (global-set-key (kbd "M-M") 'iy-go-up-to-char-backward)
-
   ;; * smart-tab-mode
   (require 'smart-tab)
   (global-smart-tab-mode 1)
   (global-set-key (kbd "C-j") 'smart-tab) ;; try this; I never use C-j for goto-line
 
+
   (global-set-key (kbd "C-c SPC") 'avy-goto-word-or-subword-1)
   (global-set-key (kbd "M-s") 'avy-goto-word-or-subword-1)
   (global-set-key (kbd "M-g M-g") 'avy-goto-line)
@@ -455,6 +450,8 @@ This is the same as using \\[set-mark-command] with the prefix argument."
   ;;           (ibuffer-switch-to-saved-filter-groups "default")))
 
 
+
+  ;; * toorg
   (require 'outshine)
   (add-hook 'outline-minor-mode-hook 'outshine-hook-function)
   (setq outshine-use-speed-commands t)
@@ -465,25 +462,11 @@ This is the same as using \\[set-mark-command] with the prefix argument."
   (add-to-list 'package-archives
                '("melpa-stable" . "http://stable.melpa.org/packages/") t)
 
-;; * give it a try
-(require 'helm-config)
-(helm-mode 1)
-(global-set-key (kbd "M-x") 'helm-M-x)
-(global-set-key (kbd "C-x C-f") 'helm-find-files)
-(global-set-key (kbd "C-x b") 'helm-mini)
-(global-set-key (kbd "C-x C-b") 'helm-mini)
-(global-set-key (kbd "M-y") 'helm-show-kill-ring)
-(define-key helm-map (kbd "C-h") nil)
-(define-key helm-find-files-map (kbd "C-h") nil)
-
-;; Tried with golden-ratio, but found it irritating
-
   ;; (eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
 
   ;; Use system proxy
   (setq url-proxy-services '(("http" . "127.0.0.1:8118")))
 
-
   (defun flash-hline ()
     (let ((fg (face-foreground 'default))
           (bg (face-background 'hl-line)))
@@ -504,6 +487,10 @@ This is the same as using \\[set-mark-command] with the prefix argument."
           (emacs-lisp-docstring-fill-column t))
       (fill-paragraph nil region)))
 
+(defun select-frame-on-current-activity ()
+   (select-frame-on-activity (kde-current-activity))
+  )
+
   ;; * start server named after kde activity name
   (setq server-name (kde-current-activity-name))
   ;; mmh

init/init-latex.el

@@ -100,7 +100,7 @@
 	    (define-key LaTeX-mode-map (kbd "C-M-o") 'up-list)	  ;; -o stands for /out/
 
 	    (define-key LaTeX-mode-map (kbd "<f4>") (lambda() (interactive) (message "Use C-c C-c")))
-	    (define-key LaTeX-mode-map (kbd "C-c C-c") 'make)
+	    (define-key LaTeX-mode-map (kbd "C-c C-c") (lambda() (interactive) (compile "make -k")) );;'make)
 
 	    (define-key LaTeX-mode-map (kbd "=") 'insert-char-with-padding)
 	    (define-key LaTeX-mode-map (kbd "≠") 'insert-char-with-padding)