Merge branch 'master' of github.com:IvanMalison/dotfiles

dotfiles/emacs.d/.mc-lists.el

@@ -18,6 +18,7 @@
         imalison:avy
         imalison:multi-line
         indent-for-tab-command
+        indent-region
         insert-register
         isearch-forward-regexp
         isearch-other-control-char

dotfiles/emacs.d/README.org

@@ -4434,13 +4434,17 @@ Set the character used to represent spaces to ·, and the character used for tab
 This automatically applies ansi-color interpretation of terminal escape
 sequences to compilation buffers.
 #+BEGIN_SRC emacs-lisp
-(defun colorize-compilation-buffer ()
-  (let ((was-read-only read-only-mode))
-    (when was-read-only (read-only-mode -1))
-    (ansi-color-apply-on-region (point-min) (point-max))
-    (when was-read-only (read-only-mode +1))))
+(defun imalison:colorize-compilation-buffer ()
+  (let ((was-read-only buffer-read-only))
+    (unwind-protect
+        (progn
+          (when was-read-only
+            (read-only-mode -1))
+          (ansi-color-apply-on-region (point-min) (point-max)))
+      (when was-read-only
+        (read-only-mode +1)))))
 
-(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
+(add-hook 'compilation-filter-hook 'imalison:colorize-compilation-buffer)
 #+END_SRC
 ** Automatic Theme Changer
 Disabled for now

dotfiles/xmonad/xmonad.hs

@@ -159,8 +159,6 @@ getWorkspaceNameFromTag namesMap tag =
       Nothing -> tag
       Just label -> printf "%s: %s " tag label
 
-shiftThenView i = W.greedyView i . W.shift i
-
 -- Toggleable fade
 
 newtype ToggleFade = ToggleFade (M.Map Window Bool)
@@ -191,6 +189,8 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
 greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
                          (fromMaybe (W.currentTag ws) $ W.findTag w ws) ws
 
+shiftThenView i = W.greedyView i . W.shift i
+
 shiftToEmptyAndView = doTo Next EmptyWS DWO.getSortByOrder (windows . shiftThenView)
 
 myRaiseNextMaybe = raiseNextMaybeCustomFocus greedyFocusWindow
@@ -252,7 +252,7 @@ addKeys conf@XConfig {modMask = modm} =
     , (modalt, xK_e, spawn "emacsclient -c", emacsSelector)
     , (modalt, xK_c, spawn "google-chrome-stable", chromeSelector)
     , (modalt, xK_h, spawn "google-chrome-stable --profile-directory=Default --app-id=knipolnnllmklapflnccelgolnpehhpl", hangoutsSelector)
-    , (modalt, xK_t, spawn "transmission", transmissionSelector)
+    , (modalt, xK_t, spawn "transmission-gtk", transmissionSelector)
     ] ++
     -- Replace original moving stuff around + greedy view bindings
     [((additionalMask .|. modm, key), windows $ function workspace)

tasks/arch.py

@@ -29,7 +29,7 @@ PACKAGES = [
     "ttf-mac-fonts", "otf-hermit", "ttf-font-awesome", "ttf-monaco", "tcpdump",
     "ngrep", "wireshark-gtk", "teamviewer", "mopidy-podcast", "tigervnc",
     "kdegraphics-okular", "pandoc", "kdeconnect-git", "mlocate",
-    "ncurses5-compat-libs",
+    "ncurses5-compat-libs", "lsdesktopf", 
 ]