kaboom

%backup%~

@@ -1,16 +1,2 @@
-#!/bin/zsh
-DESKTOP_BROWSING=1
-
-# Check if 
-KONQUEROR_INSTANCE=$(qdbus | grep -m1 konqueror)
-
-if (( $? == 0 )); then;
-	# trim whitespaces
-	KONQ_TRIMMED_INSTANCE=$(echo $KONQUEROR_INSTANCE | xargs echo) 
-	# echo $KONQ_TRIMMED_INSTANCE has been found
-	qdbus $KONQ_TRIMMED_INSTANCE /konqueror/MainWindow_1 org.kde.Konqueror.MainWindow.newTab $1 False;
-else;
-	echo no previous instance found; opening new one
-	konqueror $1;
-fi;
-qdbus org.kde.KWin /KWin org.kde.KWin.setCurrentDesktop 1
+#!/bin/sh
+echo LID >/proc/acpi/wakeup

.mc-lists.el

@@ -11,9 +11,12 @@
 	TeX-insert-braces
 	TeX-insert-dollar
 	TeX-insert-sub-or-superscript
+	backward-kill-sexp
 	backward-sexp
 	c-backward-into-nomenclature
 	c-electric-delete-forward
+	c-electric-lt-gt
+	c-electric-paren
 	c-electric-semi&comma
 	c-electric-star
 	c-forward-into-nomenclature
@@ -22,6 +25,7 @@
 	helm-M-x
 	increment-number-at-point
 	insert-char-with-padding
+	insert-comma
 	insert-parens
 	insert-parens2
 	insert-parentheses
@@ -37,6 +41,7 @@
 	org-cycle
 	org-delete-char
 	org-end-of-line
+	org-force-self-insert
 	org-kill-line
 	org-metaright
 	org-open-line
@@ -63,6 +68,7 @@
 	describe-key
 	fill-paragraph
 	find-file
+	helm-find-files
 	ido-find-file
 	jump-to-mark
 	make

emacsclient-activities

@@ -1,5 +1,6 @@
 #!/bin/zsh
 
+# Helper to fetch last return status
 function laststatus { return $? }
 
 kde-current-activity () {
@@ -10,20 +11,5 @@ kde-current-activity-name () {
   qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.ActivityName `kde-current-activity`
 }
 
-emacsclient -n -s "$(kde-current-activity-name)" -a '/usr/bin/emacs' $@
-emacsclient -n -s "$(kde-current-activity-name)" -e '(recenter)'
-
-# emacsclient -s "$(kde-current-activity)" -a false -e 'server-name' >/dev/null
-
-# if laststatus; then
-#   echo Server for current activity is running
-#   local exists=$(emacsclient -s "$(kde-current-activity)" -a "echo nil" -e '(select-X-frame)')
-#   if [[ $exists == "t" ]]; then
-#     emacsclient -s "$(kde-current-activity)" -n $@;
-#   else
-#     emacsclient -s "$(kde-current-activity)" -c -n $@;
-#   fi
-# else
-#   echo Server is not running
-#   /usr/bin/emacs --daemon="$(kde-current-activity)" && emacsclient -s "$(kde-current-activity)" -c -n $@
-# fi
+emacsclient -s "$(kde-current-activity-name)" -a '/usr/bin/emacs' $@
+emacsclient -s "$(kde-current-activity-name)" -e '(recenter)'

init.el

@@ -15,6 +15,9 @@
  '(compilation-auto-jump-to-first-error t)
  '(compilation-skip-threshold 2)
  '(current-language-environment "English")
+ '(custom-safe-themes
+   (quote
+    ("8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" default)))
  '(default-input-method "rfc1345")
  '(delete-active-region nil)
  '(delete-selection-mode nil)
@@ -23,6 +26,7 @@
  '(font-latex-fontify-sectioning (quote color))
  '(frame-background-mode (quote dark))
  '(global-font-lock-mode t nil (font-lock))
+ '(helm-su-or-sudo "su")
  '(hl-sexp-background-colors (quote ("#395959")))
  '(ibuffer-use-other-window t)
  '(magit-save-repository-buffers (quote dontask))
@@ -73,10 +77,10 @@
  '(font-latex-math-face ((t (:foreground "cornsilk3"))))
  '(helm-source-header ((t (:inherit helm-header :background "#22083397778B" :foreground "white" :weight bold))))
  '(highlight ((t (:background "Darkslategray"))))
- '(hl-line ((t (:background "#073642"))))
+ '(hl-line ((t (:background "#303030"))))
  '(hl-sexp-face ((t (:underline t))) t)
  '(italic ((((supports :underline t)) nil)))
- '(linum-highlight-face ((t (:inherit (highlight default)))))
+ '(linum-highlight-face ((t (:inherit (hl-line default)))))
  '(menu ((t (:inverse-video t))))
  '(mode-line ((t (:background "grey25" :foreground "grey80" :weight normal))))
  '(mode-line-inactive ((t (:inherit mode-line :background "grey10" :foreground "grey50" :weight normal))))
@@ -91,8 +95,8 @@
 
 ;; This kinda overrides the customize business, but it works
 ;; * Use patched terminus					      :fixme:
-(set-face-font 'default "-xos4-terminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
-  (mapc
+(set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
+   (mapc
    (lambda (face)
      (set-face-attribute face nil :weight 'normal))
    (face-list))
@@ -178,11 +182,11 @@
 ;; (require 'sourcepair)
 ;; (global-set-key (kbd "<f6>") 'sourcepair-load)
 
-(global-set-key (kbd "C-x C-b") 'ibuffer)
-(global-set-key (kbd "C-M-<backspace>") 'backward-kill-sexp)
+;;(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 120)
+(setq default-fill-column 110)
 (add-to-list 'load-path "~/tmp")
 
 (setq mouse-yank-at-point t)
@@ -203,10 +207,6 @@
 ;; conflicts a bit with org-mode
 
 ;; Keyboard is faster than mouse
-(global-unset-key (kbd "<mouse-1>"))
-(global-unset-key (kbd "<down-mouse-1>"))
-(global-unset-key (kbd "<drag-mouse-1>"))
-
 ;; Rehab ↑
 
 ;;Remove insanely irritating key-binding
@@ -214,6 +214,10 @@
 (global-unset-key (kbd "C-x f"))
 (global-unset-key (kbd "<M-f4>")) ; rly?
 
+;; (global-unset-key (kbd "<backspace>")) ;give this a try
+;; (global-unset-key (kbd "DEL")) ;give this a try
+;; (global-unset-key (kbd "C-<backspace>")) ;give this a try
+
 ;; Change some global bindings:
 (global-unset-key (kbd "C-M-u"))
 (global-unset-key (kbd "C-M-d"))
@@ -223,7 +227,7 @@
 (global-set-key (kbd "C-M-d") 'kill-sexp)
 
 ;; * magit
-(require '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)
@@ -234,26 +238,32 @@
 ;; * smart-tab-mode
 (require 'smart-tab)
 (global-smart-tab-mode 1)
-
-;; * ace jump mode
-(autoload
-  'ace-jump-mode
-  "ace-jump-mode"
-  "Emacs quick move minor mode"
-  t)
-;; you can select the key you prefer to
-
-(define-key global-map (kbd "C-c SPC") 'ace-jump-mode)
-
-;; enable a more powerful jump back function from ace jump mode
-(autoload
-  'ace-jump-mode-pop-mark
-  "ace-jump-mode"
-  "Ace jump back:-)"
-  t)
-(eval-after-load "ace-jump-mode"
-  '(ace-jump-mode-enable-mark-sync))
-(define-key global-map (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
+(global-set-key (kbd "C-j") 'smart-tab) ;; try this; I never use C-j for goto-line
+
+;; ;; * ace jump mode
+;; (autoload
+;;   'ace-jump-mode
+;;   "ace-jump-mode"
+;;   "Emacs quick move minor mode"
+;;   t)
+;; ;; you can select the key you prefer to
+
+;; (define-key global-map (kbd "C-c SPC") 'ace-jump-mode)
+
+;; ;; enable a more powerful jump back function from ace jump mode
+;; (autoload
+;;   'ace-jump-mode-pop-mark
+;;   "ace-jump-mode"
+;;   "Ace jump back:-)"
+;;   t)
+;; (eval-after-load "ace-jump-mode"
+;;   '(ace-jump-mode-enable-mark-sync))
+;; (define-key global-map (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
+
+(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)
+(global-set-key (kbd "M-g g") 'avy-goto-line)
 
 ;; * redefine line-beginning to handle indentation properly
 (defun smart-line-beginning ()
@@ -293,9 +303,22 @@ a file in the home directory."
 (global-set-key (kbd "H-,") 'mc/mark-previous-like-this)
 (global-set-key (kbd "H-<mouse-1>") 'mc/add-cursor-on-click)
 (global-set-key (kbd "<H-f13>") 'mc/mark-pop)
+(global-set-key (kbd "<H-f14>") 'mc/mark-pop)
 (global-set-key (kbd "H-#") 'mc/insert-numbers)
 
 (global-set-key (kbd "<f13>") 'set-mark-command)
+(global-set-key (kbd "<f14>") 'set-mark-command)
+
+;; Try to get rid of backspace
+(global-set-key (kbd "C-h") 'delete-backward-char)
+;;(setq help-char (kbd "H-h")
+(global-set-key (kbd "M-h") 'backward-kill-word)
+(global-set-key (kbd "C-M-h") 'backward-kill-sexp)
+(global-set-key (kbd "H-h ") 'help-command)
+
+
+
+
 
 ;; * clever mark stuff
 (require 'visible-mark)
@@ -309,12 +332,14 @@ This is the same as using \\[set-mark-command] with the prefix argument."
   (interactive)
   (set-mark-command 1))
 (global-set-key (kbd "<M-f13>") 'jump-to-mark)
+(global-set-key (kbd "<M-f14>") 'jump-to-mark)
 
 (defun just-activate-mark ()
   (interactive)
   (activate-mark))
 
 (global-set-key (kbd "<S-f13>") 'just-activate-mark)
+(global-set-key (kbd "<S-f14>") 'just-activate-mark)
 
 ;; (defun exchange-point-and-mark-no-activate ()
 ;;   "Identical to \\[exchange-point-and-mark] but will not activate the region."
@@ -344,8 +369,8 @@ This is the same as using \\[set-mark-command] with the prefix argument."
 	     ))
 
 ;; * Open gpg encrypted files on the fly
-(require 'epa-file)
-(epa-file-enable)
+;;(require 'epa-file)
+;;(epa-file-enable)
 
 ;; * Time stamps
 ;; write
@@ -429,11 +454,11 @@ This is the same as using \\[set-mark-command] with the prefix argument."
 		mode-line-end-spaces))
 
 ;; * toorg
-(require 'outshine)
-(add-hook 'outline-minor-mode-hook 'outshine-hook-function)
-(setq outshine-use-speed-commands t)
-(eval-after-load 'outshine '(define-key outline-minor-mode-map (kbd "C-M-i") nil))
-(add-hook 'sh-mode-hook 'outline-minor-mode)
+;; (require 'outshine)
+;; (add-hook 'outline-minor-mode-hook 'outshine-hook-function)
+;; (setq outshine-use-speed-commands t)
+;; (eval-after-load 'outshine '(define-key outline-minor-mode-map (kbd "C-M-i") nil))
+;; (add-hook 'sh-mode-hook 'outline-minor-mode)
 
 (require 'package)
 (add-to-list 'package-archives
@@ -446,14 +471,44 @@ This is the same as using \\[set-mark-command] with the prefix argument."
 (global-set-key (kbd "C-x C-f") 'helm-find-files)
 (global-set-key (kbd "C-x 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"))
+;; (eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
 
 ;; Use system proxy
 (setq url-proxy-services '(("http" . "127.0.0.1:8118")))
 
+(define-minor-mode disable-mouse-mode
+  "A minor-mode that disables all mouse keybinds."
+  :global t
+  :lighter "x"
+  :keymap (make-sparse-keymap))
+
+(dolist (type '(mouse down-mouse drag-mouse
+                      double-mouse triple-mouse))
+  (dolist (prefix '("" C- M- S- M-S- C-M- C-S- C-M-S-))
+    ;; Yes, I actually HAD to go up to 7 here.
+    (dotimes (n 7)
+      (let ((k (format "%s%s-%s" prefix type n)))
+        (define-key disable-mouse-mode-map
+          (vector (intern k)) #'ignore)))))
+
+(disable-mouse-mode 1)
+
+(defun flash-hline ()
+  (let ((fg (face-foreground 'default))
+	(bg (face-background 'hl-line)))
+    (set-face-background 'hl-line fg)
+    (run-with-timer
+     0.1 nil (lambda ()
+	     (set-face-background 'hl-line "#303030") ))))
+
+(global-set-key (kbd "<f15>") 'flash-hline)
+
+
    ;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph
 (defun unfill-paragraph (&optional region)
   "Takes a multi-line paragraph and makes it into a single line of text."

init/init-c++.el

@@ -1,5 +1,8 @@
-(add-hook 'c-mode-hook 'linum-mode)
+(require 'doxymacs)
 
-(add-hook 'c++-mode-hook (lambda ()
+(add-hook 'c-mode-hook (lambda ()
 			     (linum-mode)
-			     (subword-mode)))
+			     (subword-mode)
+			     (doxymacs-mode)
+			     (define-key c-mode-map (kbd "C-c C-c") 'make)
+			     (define-key c++-mode-map (kbd "C-c C-c") 'make)))

init/init-cc.el

@@ -1,5 +0,0 @@
-(add-hook 'c-mode-hook 'linum-mode)
-
-(add-hook 'c++-mode-hook (lambda ()
-			     (linum-mode)
-			     (subword-mode))

init/init-latex.el

@@ -1,4 +1,4 @@
-(load "auctex.el" nil t t)
+ (load "auctex.el" nil t t)
 (setq TeX-auto-save t
       TeX-parse-self t
       TeX-insert-braces nil)
@@ -65,13 +65,13 @@
 		  (LaTeX-insert-environment "align*"))))
 
 	    ;; EXPERIMENTAL: try C-RETURN → DEL
-	    (define-key LaTeX-mode-map (kbd "C-<return>") 'backward-delete-char-untabify)
+	    (define-key LaTeX-mode-map (kbd "S-SPC") (lambda() (interactive) (flash-hline)));;(message "Use C-SPC")));;'backward-delete-char-untabify)
 
 	    ;; EXPERIMENTAL: unbind return - NOTE it is important to unbind <return> and not RET. If we
 	    ;; unbind RET then C-m won't work either.
-	    (define-key LaTeX-mode-map (kbd "<return>") (lambda() (interactive) (message "Use C-m")))
+	    (define-key LaTeX-mode-map (kbd "<return>") (lambda() (interactive) (insert "\\")));(lambda() (interactive) (message "Use C-m")))
 
-	    (define-key LaTeX-mode-map (kbd "S-SPC") (lambda() (interactive) (insert "\\")))
+	    ;;(define-key LaTeX-mode-map (kbd "C-SPC") (lambda() (interactive) (insert "\\")))
 	    (define-key LaTeX-mode-map (kbd "M-S-SPC") 'TeX-insert-braces)
 	    (define-key LaTeX-mode-map (kbd "s-SPC") (lambda() (interactive) (insert "~")))
 	    (define-key LaTeX-mode-map (kbd "M-_") (lambda (r-begin r-end) (interactive "r") (add-delimiter "_{" "}" r-begin r-end)))
@@ -106,8 +106,10 @@
 	    (define-key LaTeX-mode-map (kbd "×") 'insert-char-with-padding)
 
 	    ;; Force moves around to be more “semantic”
-	    (define-key LaTeX-mode-map (kbd "C-v") (lambda() (interactive) (message "Command disabled")))
-	    (define-key LaTeX-mode-map (kbd "M-v") (lambda() (interactive) (message "Command disabled")))
+	    (define-key LaTeX-mode-map (kbd "C-v") 'forward-paragraph);(lambda() (interactive) (message "Command disabled")))
+	    (define-key LaTeX-mode-map (kbd "M-v") 'backward-paragraph)
+	    (define-key LaTeX-mode-map (kbd "C-S-v") 'backward-paragraph)
+; (lambda() (interactive) (message "Command disabled")))
 	    (define-key LaTeX-mode-map (kbd "<next>") (lambda() (interactive) (message "Command disabled")))
 	    (define-key LaTeX-mode-map (kbd "<prior>") (lambda() (interactive) (message "Command disabled")))
 	    ))