From 9ec76a40eddc3f8c0141678b4c7024db8210e336 Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Fri, 1 Mar 2019 23:57:23 -0500 Subject: [PATCH] Bunch of commits --- global.org | 41 ++++++++++++++++++----------------------- 1 file changed, 18 insertions(+), 23 deletions(-) diff --git a/global.org b/global.org index f68e7f5..120c058 100644 --- a/global.org +++ b/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-") 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)