Scripts: new homeclean script.

Emacs: improved some snippets.

.emacs.d/modes.el

@@ -32,7 +32,7 @@
 ;; README files.
 (setq auto-mode-alist (append '(("README" . text-mode)) auto-mode-alist))
 
-;; Lex/Flex + Yacc/Bison mode.
+;; Lex/Flex + Yacc/Bison mode fallback to c-mode.
 (setq auto-mode-alist (append '(("\\.l\\'" . c-mode)) auto-mode-alist))
 (setq auto-mode-alist (append '(("\\.yy?\\'" . c-mode)) auto-mode-alist))
 

.emacs.d/snippets/latex-mode/article.yasnippet

@@ -16,6 +16,8 @@
 \DeclareUnicodeCharacter{20AC}{\EUR{}}
 \DeclareUnicodeCharacter{2264}{\leqslant}
 \DeclareUnicodeCharacter{2265}{\geqslant}
+\DeclareUnicodeCharacter{B1}{\pm}
+\DeclareUnicodeCharacter{2260}{\neq}
 %%=============================================================================
 %% Properties
 

.emacs.d/snippets/sh-mode/case

@@ -0,0 +1,10 @@
+# name: case
+# key: case
+# --
+case $1 in
+    $2)
+        $3 ;;
+    *)
+        $4 ;;
+esac
+$0

.scripts/homeclean

@@ -0,0 +1,32 @@
+#!/bin/sh
+
+RMLIST="$HOME/.cache/dwb $HOME/.cache/mutt $HOME/.cmus/*.pl $HOME/.cmus/autosave $HOME/.cmus/cache $HOME/.cmus/resume $HOME/.cmus/search-history $HOME/.config/gtk-2.0 $HOME/.config/gtk-3.0 $HOME/.config/newsbeuter/cache.db $HOME/.config/newsbeuter/history.cmdline $HOME/.config/newsbeuter/history.search $HOME/.config/ranger/bookmarks $HOME/.config/ranger/history $HOME/.config/ranger/tagged $HOME/.gtk-bookmarks $HOME/.local/share/newsbeuter $HOME/.local/share/webkit $HOME/.session/* $HOME/.zcompdump $HOME/.zdirs $HOME/.zshhistfile"
+
+echo "$RMLIST" | sed 's/ /\n/g'
+
+CHOICE="N"
+echo "==> Clean home? [y/N]"
+read CHOICE
+CHOICE="$(echo $CHOICE | tr [:lower:] [:upper:])"
+if [ "$CHOICE" != "Y" ]; then
+    echo "Nothing done."
+    exit
+fi
+
+## Compress git repo if any
+if [ -d "$HOME"]; then
+    (cd "$HOME" && git gc)
+fi
+
+## Clean trash if possible.
+if [ -z "$(command -v trash-empty)" ]; then
+    echo "==> 'trash-empty' not installed, you have to clean trash manually."
+else
+    trash-empty
+fi
+
+## Clear data.
+rm -rvf "$RMLIST"
+
+echo
+echo "==> Cleaning done."

.shell.d/funs_rc

@@ -403,6 +403,14 @@ webdl ()
     movgrab -f webm:$RES "$2"
 }
 
+index ()
+{
+    DATE="$(date +%F)"
+    for i ; do
+        find "$i" -type f >> "$i-$DATE.index"
+    done
+}
+
 ##==============================================================================
 ## Pacman functions
 ##==============================================================================