Bunch of commits

global.org

@@ -1046,34 +1046,21 @@
      (load "bibretrieve")
      (setq bibretrieve-backends '(("mrl" . 8) ("arxiv" . 5)))
    #+END_SRC
-** TODO C and C++
-*** Hooks
-    #+BEGIN_SRC emacs-lisp
-      (require 'doxymacs)
-
-      (add-hook 'c-mode-hook (lambda ()
-      (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)))
-      (add-hook 'c++-mode-hook (lambda ()
-      (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)))
-    #+END_SRC
 ** TODO KDE integration
 *** TODO cleanup and split
+    These functions connects to dbus to find out the current activity
+    id and name
     #+BEGIN_SRC emacs-lisp
       (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 kde-current-activity-name ()
 	"Returns the name of the current KDE activity"
 	(substring (shell-command-to-string (concat "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.ActivityName " (kde-current-activity))) 0 -1))
+    #+END_SRC
 
+    #+BEGIN_SRC emacs-lisp
       (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)
       )
@@ -1114,11 +1101,6 @@
     #+BEGIN_SRC emacs-lisp
 ;      (setq server-name (kde-current-activity-name))
     #+END_SRC
-   Load ~qml-mode~
-   #+BEGIN_SRC emacs-lisp
-     (load "qml-mode.el" nil t t)
-     (add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode))
-   #+END_SRC
 * Specialties
 ** beacon
  =beacon= is a package that helps finding the point when switching
@@ -1207,6 +1189,10 @@
                         #'magit-insert-unpushed-to-pushremote
                         :append)
 #+END_SRC
+*** magit-todos
+    #+BEGIN_SRC emacs-lisp
+    (require 'magit-todos)
+    #+END_SRC
 ** smart-tab
    This package is a gem: it allows to make tab work dwim
    #+BEGIN_SRC emacs-lisp
@@ -1234,6 +1220,10 @@
      (define-key helm-map (kbd "C-h") nil)
      (define-key helm-find-files-map (kbd "C-h") nil)
      (define-key helm-find-files-map (kbd "C-<backspace>") nil)
+     (helm-define-key-with-subkeys helm-find-files-map (kbd "DEL") ?\d 'helm-ff-delete-char-backward
+                                   '(([C-c DEL] . helm-ff-run-toggle-auto-update))
+                                   nil 'helm-ff-delete-char-backward--exit-fn)
+
    #+END_SRC
 ** multiple-cursors
   #+BEGIN_SRC emacs-lisp
@@ -1276,6 +1266,11 @@
   ; (require 'atomic-chrome)
   ;;  (atomic-chrome-start-server)
   #+END_SRC
+** ERC
+   Enable ~erc dcc~ files transfer
+   #+BEGIN_SRC emacs-lisp
+   (require 'erc-dcc)
+   #+END_SRC
 ** TODO Phase out Package.el
    Load package.el
   #+BEGIN_SRC emacs-lisp
@@ -1308,7 +1303,7 @@
    packages are still to be loaded (most notably ~magit~)
    #+BEGIN_SRC emacs-lisp
    ;; (set-face-font 'default "-xos4-hackminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
-
+   (set-face-bold 'bold nil)
     (mapc
        (lambda (face)
 	 (set-face-attribute face nil :weight 'normal)