Commits

Fuco  committed e8e4777

Update

  • Participants
  • Parent commits 6a33ede

Comments (0)

Files changed (20)

 eshell/history
 eshell/lastdir
 image-dired/*
+di/*
 misc/*
 semanticdb/*
 server/*

File .mc-lists.el

         kill-region
         kill-visual-line
         my-back-to-indentation-or-beginning
+        my-capitalize-word
         my-emacs-lisp-open-line
         my-end-of-code-or-line
         my-newline
         my-smart-downcase-word
+        my-smart-upcase-word
         org-beginning-of-line
         org-end-of-line
         smart-tab

File eshell/alias

 alias lla ls -la
 alias du1 du --max-depth=1 -h
 alias ga git add $*
+alias hc hg commit -m "Update"

File files/dired-defs.el

 
 (use-package image-dired)
 (use-package dired-aux)
-(use-package dired-x)
+(use-package dired-x
+  :config
+  (defun dired-virtual-revert (&optional _arg _noconfirm)
+    "Enable revert for virtual direds."
+    (let ((m (dired-file-name-at-point))
+          (buffer-modified (buffer-modified-p)))
+      (goto-char 1)
+      (dired-next-subdir 1)
+      (dired-do-redisplay nil t)
+      (while (dired-next-subdir 1 t)
+        (dired-do-redisplay nil t))
+      (when m (dired-goto-file m))
+      (set-buffer-modified-p buffer-modified))))
 (use-package dired+)
 (use-package cl-lib)
 (use-package dired-details
 (use-package dired-open)
 (use-package dired-subtree
   :init
-  (progn
-    (bind-keys :map dired-mode-map
-               :prefix "C-,"
-               :prefix-map dired-subtree-map
-               :prefix-docstring "Dired subtree map."
-               ("<C-i-key>" . dired-subtree-insert)
-               ("C-k" . dired-subtree-remove)
-               ("C-n" . dired-subtree-next-sibling)
-               ("C-p" . dired-subtree-previous-sibling)
-               ("C-u" . dired-subtree-up)
-               ("C-d" . dired-subtree-down)
-               ("C-a" . dired-subtree-beginning)
-               ("C-e" . dired-subtree-end)
-               ("C-o C-f" . dired-subtree-only-this-file)
-               ("C-o C-d" . dired-subtree-only-this-directory))))
+  (bind-keys :map dired-mode-map
+             :prefix "C-,"
+             :prefix-map dired-subtree-map
+             :prefix-docstring "Dired subtree map."
+             ("<C-i-key>" . dired-subtree-insert)
+             ("C-/" . dired-subtree-apply-filter)
+             ("C-k" . dired-subtree-remove)
+             ("C-n" . dired-subtree-next-sibling)
+             ("C-p" . dired-subtree-previous-sibling)
+             ("C-u" . dired-subtree-up)
+             ("C-d" . dired-subtree-down)
+             ("C-a" . dired-subtree-beginning)
+             ("C-e" . dired-subtree-end)
+             ("m" . dired-subtree-mark-subtree)
+             ("u" . dired-subtree-unmark-subtree)
+             ("C-o C-f" . dired-subtree-only-this-file)
+             ("C-o C-d" . dired-subtree-only-this-directory)))
 
 (use-package dired-rainbow
   :init
     ("P" . my-dired-parent-directory)
     ("I" . my-dired-maybe-insert-subdir)
 
+    ("n" . dired-hacks-next-file)
+    ("p" . dired-hacks-previous-file)
+    ("C-d" . (lambda (arg)
+               "Move to next directory line."
+               (interactive "p")
+               (ignore-errors (dired-next-dirline arg))))
+
     ("M-p" . diredp-prev-subdir)
     ("M-n" . diredp-next-subdir)
 
 
 ;;;_. Virtual dired
 ;; these functions depend on the dired plus package
-(defun dired-virtual-revert (&optional _arg _noconfirm)
-  "Enable revert for virtual direds."
-  (let ((m (dired-file-name-at-point))
-        (buffer-modified (buffer-modified-p)))
-    (goto-char 1)
-    (dired-next-subdir 1)
-    (dired-do-redisplay nil t)
-    (while (dired-next-subdir 1 t)
-      (dired-do-redisplay nil t))
-    (when m (dired-goto-file m))
-    (set-buffer-modified-p buffer-modified)))
-
 (defun dired-virtual-save-buffer ()
   (let ((subdirs (nreverse (mapcar 'car dired-subdir-alist)))
         (title (buffer-name))

File files/emacs-custom.el

  ;; If there is more than one, they won't work right.
  '(LaTeX-math-list (quote (("C-k (" "llparenthesis" "" nil) ("C-k )" "rrparenthesis" "" nil) ("C-k k" (lambda nil (interactive) (insert "\\cata{}") (backward-char)) "" nil) (79 "circ" "" nil) (61 "equiv" "" nil))))
  '(TeX-PDF-mode t)
+ '(TeX-command-list (quote (("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (plain-tex-mode texinfo-mode ams-tex-mode) :help "Run plain TeX") ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX") ("Makeinfo" "makeinfo %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output") ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output") ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX") ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once") ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion") ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX") ("Biber" "biber %s" TeX-run-Biber nil t :help "Run Biber") ("View" "%V" TeX-run-discard-or-function t t :help "Run Viewer") ("Print" "%p" TeX-run-command t t :help "Print the file") ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command) ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file") ("Index" "makeindex %s" TeX-run-command nil t :help "Create index file") ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness") ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document") ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files") ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files") ("Other" "" TeX-run-command t t :help "Run an arbitrary command") ("Run Zathura" "zathura --fork -s -x \"emacsclient --no-wait +%%{line} %%{input}\" %s.pdf" TeX-run-command nil t :help "Run Zathura PDF viewer"))))
  '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" ("^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "^landscape$") "%(o?)yap %dS -paper a4r -s 0 %d") ("^dvi$" "^\\(?:a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4\\)$" "%(o?)yap %dS -paper a4 %d") ("^dvi$" ("^\\(?:a5\\(?:comb\\|paper\\)\\)$" "^landscape$") "%(o?)yap %dS -paper a5r -s 0 %d") ("^dvi$" "^\\(?:a5\\(?:comb\\|paper\\)\\)$" "%(o?)yap %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)yap %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)yap %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)yap %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)yap %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)yap %dS %d") ("^pdf$" "." "gsview32 -remote %s -raise %o %(outpage)") ("^html?$" "." "netscape %o"))))
  '(TeX-source-correlate-method (quote synctex))
  '(TeX-source-correlate-mode t)
- '(TeX-view-program-list (quote (("View with Sumatra" ("sumatra -reuse-instance" (mode-io-correlate " -forward-search %b %n ") " %o")))))
- '(TeX-view-program-selection (quote (((output-dvi style-pstricks) "dvips and start") (output-dvi "Yap") (output-pdf "View with Sumatra") (output-html "start"))))
+ '(TeX-view-program-list (quote (("View with Zathura" ("zathura" (mode-io-correlate " --synctex-forward %n:0:%b") " %s.pdf")) ("View with Sumatra" ("sumatra -reuse-instance" (mode-io-correlate " -forward-search %b %n ") " %o")))))
+ '(TeX-view-program-selection (quote (((output-dvi style-pstricks) "dvips and start") (output-dvi "Yap") (output-pdf "View with Zathura") (output-html "start"))))
  '(ac-auto-show-menu 0.5)
  '(ac-menu-height 15)
  '(ac-quick-help-delay 0.5)
  '(background-color "#002b36")
  '(background-mode dark)
  '(backup-directory-alist (quote (("." . "~/.emacs.d/backups"))))
+ '(bind-key-column-widths (quote (20 . 70)))
+ '(bind-key-describe-special-forms t)
  '(blink-cursor-mode nil)
  '(blink-matching-paren nil)
  '(bmkp-last-as-first-bookmark-file "~/.emacs.d/bookmarks")
  '(calendar-mark-diary-entries-flag t)
  '(calendar-view-diary-initially-flag t)
  '(calendar-week-start-day 1)
+ '(column-number-mode t)
  '(cua-enable-cua-keys nil)
  '(cursor-color "#839496")
  '(custom-enabled-themes (quote (my-tango-dark)))
- '(custom-safe-themes (quote ("1630f22aec92f5ccfad35ff528b9b9231deca6d775666d7c9fc76876957ee51c" "2094974c6ba3dcac00d364404f11bcc18711750996e3b622c40e2764d4eaae01" "32a0ef08500036a4a96194f01fafe3b62c347e5d7bda218bac50a34ab92eab5b" "5758fad12d32577dfd86f53be523c16ceed5f6ad307e9967ac16fe82eef6e32a" "ac968ca0978459c43a263ce991d6385d8e59ae2242699c6907125daa6f0a0d20" "18b79c737a005b87246232739c5cd21aab19f8c15f3a822d64b8cbb8dbbc8525" "9eb325147f82880372869ae998bd6c93adb34fc80b1b5cb2976744fb4dc73cb7" "32807962da64511b0529913b8fc19d527b7bc1d32e6dc298066e53e5d67de571" default)))
+ '(custom-safe-themes (quote ("d54f9a57580321787112c32311e66379d9a3d2dc7db56b0e5678067cd604b188" "1630f22aec92f5ccfad35ff528b9b9231deca6d775666d7c9fc76876957ee51c" "2094974c6ba3dcac00d364404f11bcc18711750996e3b622c40e2764d4eaae01" "32a0ef08500036a4a96194f01fafe3b62c347e5d7bda218bac50a34ab92eab5b" "5758fad12d32577dfd86f53be523c16ceed5f6ad307e9967ac16fe82eef6e32a" "ac968ca0978459c43a263ce991d6385d8e59ae2242699c6907125daa6f0a0d20" "18b79c737a005b87246232739c5cd21aab19f8c15f3a822d64b8cbb8dbbc8525" "9eb325147f82880372869ae998bd6c93adb34fc80b1b5cb2976744fb4dc73cb7" "32807962da64511b0529913b8fc19d527b7bc1d32e6dc298066e53e5d67de571" default)))
  '(custom-theme-directory "~/.emacs.d/themes/")
  '(custom-unlispify-remove-prefixes t)
+ '(custom-unlispify-tag-names nil)
  '(cycbuf-buffer-sort-function (quote cycbuf-sort-by-recency))
  '(dash-enable-fontlock t)
  '(debug-on-error t)
  '(desktop-save t)
  '(diary-file "~/org/diary")
  '(dired-dwim-target t)
+ '(dired-filter-mark-prefix "c")
+ '(dired-filter-prefix "/")
+ '(dired-filter-saved-filters (quote (("media" (or (extension . "ogg") (extension . "flv") (extension . "mpg") (extension . "avi") (extension . "mp4") (extension . "mp3"))) ("elisp" (or (extension . "elc") (extension . "el"))))))
  '(dired-guess-shell-alist-user (quote (("\\.pdf\\'" "zathura --fork"))))
+ '(dired-isearch-filenames t)
  '(dired-listing-switches "-alh")
  '(dired-omit-extensions (quote (".o" "~" ".bin" ".bak" ".obj" ".map" ".ico" ".pif" ".lnk" ".a" ".ln" ".blg" ".bbl" ".dll" ".drv" ".vxd" ".386" ".elc" ".lof" ".glo" ".idx" ".lot" ".svn/" ".hg/" ".git/" ".bzr/" "CVS/" "_darcs/" "_MTN/" ".fmt" ".tfm" ".class" ".fas" ".lib" ".mem" ".x86f" ".sparcf" ".dfsl" ".pfsl" ".d64fsl" ".p64fsl" ".lx64fsl" ".lx32fsl" ".dx64fsl" ".dx32fsl" ".fx64fsl" ".fx32fsl" ".sx64fsl" ".sx32fsl" ".wx64fsl" ".wx32fsl" ".fasl" ".ufsl" ".fsl" ".dxl" ".lo" ".la" ".gmo" ".mo" ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".pyc" ".pyo" ".idx" ".lof" ".lot" ".glo" ".blg" ".bbl" ".cp" ".cps" ".fn" ".fns" ".ky" ".kys" ".pg" ".pgs" ".tp" ".tps" ".vr" ".vrs" ".log" ".ilg" ".out" ".ind" ".dsc")))
+ '(dired-open-functions (quote (dired-open-guess-shell-alist dired-open-by-extension dired-open-subdir)))
+ '(dired-open-query-before-exit nil)
+ '(dired-open-use-nohup t)
  '(display-time-24hr-format t)
  '(display-time-format "%H:%M ")
- '(display-time-mode t)
  '(display-time-string-forms (quote ((if (and (not display-time-format) display-time-day-and-date) (format-time-string "%a %b %e " now) "") (propertize (format-time-string (or display-time-format (if display-time-24hr-format "%H:%M" "%-I:%M%p")) now) (quote help-echo) (format-time-string "%a %b %e, %Y" now)) (if mail (concat " " (propertize display-time-mail-string (quote display) (\` (when (and display-time-use-mail-icon (display-graphic-p)) (\,@ display-time-mail-icon) (\,@ (if (and display-time-mail-face (memq (plist-get (cdr display-time-mail-icon) :type) (quote (pbm xbm)))) (let ((bg (face-attribute display-time-mail-face :background))) (if (stringp bg) (list :background bg))))))) (quote face) display-time-mail-face (quote help-echo) "You have new mail; mouse-2: Read mail" (quote mouse-face) (quote mode-line-highlight) (quote local-map) (make-mode-line-mouse-map (quote mouse-2) read-mail-command))) ""))))
  '(echo-keystrokes 0.1)
  '(ediff-merge-split-window-function (quote split-window-horizontally))
  '(font-latex-math-environments (quote ("display" "displaymath" "equation" "eqnarray" "gather" "multline" "align" "alignat" "xalignat" "derivation")))
  '(font-latex-quotes (quote auto))
  '(foreground-color "#839496")
- '(free-keys-modifiers (quote ("" "C" "M" "C-M" "H" "s")))
+ '(free-keys-ignored-bindings (quote (("s" . "pnPNjkhl1234567890qwerb") ("A" . "1234567890qwer,.[]=c"))))
+ '(free-keys-modifiers (quote ("" "C" "M" "C-M" "A" "H" "s")))
  '(gc-cons-threshold 20000000)
  '(global-flex-isearch-mode t)
  '(global-undo-tree-mode t)
  '(golden-ratio-exclude-buffer-names (quote ("*helm kill-ring*" "*Ediff Control Panel*" " *guide-key*")))
- '(golden-ratio-extra-commands (quote (windmove-left windmove-right windmove-down windmove-up)))
+ '(golden-ratio-extra-commands (quote (windmove-left windmove-right windmove-down windmove-up elwm-transpose-window elwm-activate-window)))
  '(golden-ratio-inhibit-functions (quote (my-golden-ratio-inhibit)))
  '(golden-ratio-mode t)
  '(guide-key-mode t)
- '(guide-key/guide-key-sequence (quote ("C-x r" "C-x 4" "C-x j" "C-x p" (calc-mode "V" "k" "a") (dired-mode "/" "*" "C-t" "%") (ibuffer-mode "/" "*" "%"))))
+ '(guide-key/guide-key-sequence (quote ("C-x r" "C-x 4" "C-x j" "C-x p" "A-x" (calc-mode "V" "k" "a") (dired-mode "/" "*" "C-t" "%" "c") (ibuffer-mode "/" "*" "%"))))
  '(guide-key/idle-delay 0.6)
  '(guide-key/popup-window-position (quote bottom))
  '(guide-key/recursive-key-sequence-flag t)
  '(ibuffer-saved-filters (quote (("irc" ((mode . erc-mode))) ("dipl" ((filename . "_dipl"))) ("gnus" ((or (mode . message-mode) (mode . mail-mode) (mode . gnus-group-mode) (mode . gnus-summary-mode) (mode . gnus-article-mode)))) ("programming" ((or (mode . emacs-lisp-mode) (mode . cperl-mode) (mode . c-mode) (mode . java-mode) (mode . idl-mode) (mode . lisp-mode)))))))
  '(ibuffer-show-empty-filter-groups nil)
  '(ibuffer-truncate-lines nil)
+ '(ido-decorations (quote ("
+-> " "" "
+   " "
+   ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
  '(ido-default-buffer-method (quote selected-window))
  '(ido-enable-flex-matching t)
  '(ido-enable-last-directory-history nil)
  '(keyfreq-autosave-mode t)
  '(keyfreq-file "~/.emacs.d/.emacs.keyfreq")
  '(keyfreq-mode t)
+ '(line-number-mode t)
+ '(look-show-subdirs t)
  '(ls-lisp-dirs-first t)
  '(ls-lisp-use-insert-directory-program nil)
+ '(ls-lisp-use-localized-time-format t)
  '(ls-lisp-verbosity (quote (uid gid)))
  '(magit-diff-refine-hunk (quote all))
  '(make-pointer-invisible t)
  '(markdown-link-space-sub-char "-")
  '(max-lisp-eval-depth 50000)
+ '(max-specpdl-size 10000)
  '(message-log-max 10000)
  '(mouse-highlight nil)
  '(multi-web-global-mode nil nil (multi-web-mode))
  '(mweb-default-major-mode (quote html-mode))
  '(org-M-RET-may-split-line nil)
+ '(org-agenda-compact-blocks t)
  '(org-agenda-include-diary t)
+ '(org-agenda-skip-deadline-if-done t)
+ '(org-agenda-skip-scheduled-if-done t)
+ '(org-agenda-skip-timestamp-if-done t)
  '(org-agenda-start-with-log-mode nil)
+ '(org-agenda-sticky t)
+ '(org-agenda-tags-column -140)
  '(org-agenda-window-setup (quote current-window))
+ '(org-archive-location "%s_archive::* Archived Tasks")
+ '(org-clock-history-length 36)
+ '(org-clock-in-resume t)
+ '(org-clock-in-switch-to-state (quote bh/clock-in-to-next))
  '(org-clock-into-drawer "CLOCK")
  '(org-clock-mode-line-total (quote current))
+ '(org-clock-out-remove-zero-time-clocks t)
+ '(org-clock-out-when-done nil)
+ '(org-clock-persist t)
+ '(org-clock-persist-query-resume nil)
+ '(org-clock-report-include-clocking-task t)
  '(org-cycle-emulate-tab nil)
  '(org-drill-add-random-noise-to-intervals-p t)
  '(org-drill-adjust-intervals-for-early-and-late-repetitions-p t)
  '(org-drill-card-type-alist (quote ((nil org-drill-present-simple-card) ("simple" org-drill-present-simple-card) ("twosided" org-drill-present-two-sided-card nil t) ("multisided" org-drill-present-multi-sided-card nil t) ("hide1cloze" org-drill-present-multicloze-hide1) ("hide2cloze" org-drill-present-multicloze-hide2) ("show1cloze" org-drill-present-multicloze-show1) ("show2cloze" org-drill-present-multicloze-show2) ("multicloze" org-drill-present-multicloze-hide1) ("hidefirst" org-drill-present-multicloze-hide-first) ("hidelast" org-drill-present-multicloze-hide-last) ("hide1_firstmore" org-drill-present-multicloze-hide1-firstmore) ("show1_lastmore" org-drill-present-multicloze-show1-lastmore) ("show1_firstless" org-drill-present-multicloze-show1-firstless) ("conjugate" org-drill-present-verb-conjugation org-drill-show-answer-verb-conjugation) ("decline_noun" org-drill-present-noun-declension org-drill-show-answer-noun-declension) ("spanish_verb" org-drill-present-spanish-verb) ("translate_number" org-drill-present-translate-number) ("twosidednocloze" org-drill-present-two-sided-card-no-cloze nil t))))
+ '(org-drill-forgetting-index 50)
  '(org-drill-learn-fraction 0.55)
  '(org-drill-maximum-duration nil)
  '(org-drill-maximum-items-per-session 20)
- '(org-drill-optimal-factor-matrix (quote ((4 (2.3200000000000003 . 2.305) (1.8 . 1.865) (1.76 . 1.92) (1.9400000000000002 . 2.0)) (3 (2.04 . 2.219) (1.6600000000000001 . 1.793) (1.48 . 1.721) (1.94 . 1.94) (1.6199999999999999 . 1.791) (1.8 . 1.865) (2.18 . 2.217) (2.7 . 2.688) (2.6 . 2.596) (2.56 . 2.593) (1.76 . 1.971) (2.5 . 2.5) (2.3200000000000003 . 2.305) (1.9400000000000002 . 2.053) (2.22 . 2.22) (2.36 . 2.404) (2.32 . 2.409) (2.46 . 2.497) (2.2199999999999998 . 2.311) (1.9000000000000001 . 2.049) (2.08 . 2.135)) (2 (1.52 . 1.596) (1.3399999999999999 . 1.532) (1.6600000000000001 . 1.793) (1.94 . 1.94) (2.2800000000000002 . 2.407) (2.3200000000000003 . 2.298) (1.48 . 1.721) (1.6199999999999999 . 1.791) (2.22 . 2.22) (1.8 . 1.865) (1.4 . 1.736) (2.18 . 2.217) (1.9400000000000002 . 2.053) (1.76 . 1.971) (2.08 . 2.135) (1.9000000000000001 . 2.049) (2.7 . 2.696) (2.1799999999999997 . 2.308) (2.5 . 2.5) (2.46 . 2.488) (2.2199999999999998 . 2.311) (2.04 . 2.219) (2.6 . 2.596) (2.36 . 2.404)) (1 (1.48 . 3.55) (1.52 . 3.846) (1.3399999999999999 . 3.692) (1.6600000000000001 . 3.698) (1.6199999999999999 . 3.692) (1.8 . 3.846) (1.76 . 3.55) (1.9400000000000002 . 3.698) (1.9000000000000001 . 3.692) (2.08 . 3.846) (2.04 . 3.55) (2.2199999999999998 . 3.698) (2.6 . 4.14) (2.1799999999999997 . 3.692) (2.5 . 4.0) (2.36 . 3.846) (1.7000000000000002 . 3.44) (1.96 . 3.58)))))
+ '(org-drill-optimal-factor-matrix (quote ((6 (1.3800000000000001 . 1.461) (1.1600000000000001 . 1.25)) (5 (2.1799999999999997 . 2.231) (1.76 . 1.827) (1.48 . 1.721) (2.08 . 2.08) (1.1600000000000001 . 1.227) (1.24 . 1.327) (1.6600000000000001 . 1.793) (1.3 . 1.276) (1.8 . 1.865) (1.3800000000000001 . 1.535) (1.52 . 1.596)) (4 (1.3399999999999999 . 1.532) (2.8000000000000003 . 2.804) (2.7 . 2.696) (1.1600000000000001 . 1.227) (2.66 . 2.696) (2.42 . 2.493) (2.56 . 2.596) (1.3 . 1.115) (1.7200000000000002 . 1.788) (1.94 . 1.94) (2.32 . 2.4) (2.6 . 2.596) (2.04 . 2.132) (2.36 . 2.404) (2.5 . 2.5) (1.3800000000000001 . 1.535) (1.24 . 1.327) (1.2 . 1.473) (2.46 . 2.496) (2.1799999999999997 . 2.308) (2.2199999999999998 . 2.311) (1.48 . 1.721) (2.18 . 2.217) (1.52 . 1.596) (2.22 . 2.22) (1.9000000000000001 . 1.961) (1.6600000000000001 . 1.793) (2.08 . 2.135) (1.6199999999999999 . 1.791) (2.3200000000000003 . 2.305) (1.8 . 1.865) (1.76 . 1.971) (1.9400000000000002 . 2.053)) (3 (0.98 . 1.131) (1.1600000000000001 . 1.178) (1.2 . 1.473) (1.3 . 1.225) (1.0599999999999998 . 1.274) (1.24 . 1.327) (2.8000000000000003 . 2.8) (1.3399999999999999 . 1.532) (1.3800000000000001 . 1.535) (2.1799999999999997 . 2.308) (1.86 . 2.047) (1.52 . 1.596) (2.1399999999999997 . 2.305) (2.04 . 2.015) (1.6600000000000001 . 1.793) (1.48 . 1.721) (1.94 . 1.94) (1.6199999999999999 . 1.791) (1.8 . 1.865) (2.18 . 2.217) (2.7 . 2.696) (2.6 . 2.596) (2.56 . 2.592) (1.76 . 1.971) (2.5 . 2.5) (2.3200000000000003 . 2.305) (1.9400000000000002 . 2.053) (2.22 . 2.22) (2.36 . 2.404) (2.32 . 2.4) (2.46 . 2.496) (2.2199999999999998 . 2.311) (1.9000000000000001 . 2.049) (2.08 . 2.135)) (2 (1.1600000000000001 . 1.227) (1.2 . 1.473) (1.26 . 1.65) (1.0599999999999998 . 1.274) (1.3 . 1.276) (0.98 . 1.412) (1.24 . 1.327) (1.1199999999999999 . 1.468) (1.6800000000000002 . 1.964) (2.32 . 2.32) (1.3800000000000001 . 1.535) (1.52 . 1.596) (1.3399999999999999 . 1.532) (1.6600000000000001 . 1.793) (1.94 . 1.94) (2.2800000000000002 . 2.407) (2.3200000000000003 . 2.305) (1.48 . 1.721) (1.6199999999999999 . 1.791) (2.22 . 2.22) (1.8 . 1.865) (1.4 . 1.736) (2.18 . 2.217) (1.9400000000000002 . 2.053) (1.76 . 1.971) (2.08 . 2.135) (1.9000000000000001 . 2.049) (2.7 . 2.696) (2.1799999999999997 . 2.308) (2.5 . 2.5) (2.46 . 2.497) (2.2199999999999998 . 2.311) (2.04 . 2.219) (2.6 . 2.596) (2.36 . 2.404)) (1 (1.1600000000000001 . 3.556) (1.2 . 3.55) (1.3 . 3.698) (1.24 . 3.846) (1.0599999999999998 . 3.692) (1.6800000000000002 . 3.538) (1.3800000000000001 . 3.698) (2.22 . 4.0) (2.32 . 3.846) (1.48 . 3.55) (1.52 . 3.846) (1.3399999999999999 . 3.692) (1.6600000000000001 . 3.698) (1.6199999999999999 . 3.692) (1.8 . 3.846) (1.76 . 3.55) (1.9400000000000002 . 3.698) (1.9000000000000001 . 3.692) (2.08 . 3.846) (2.04 . 3.55) (2.2199999999999998 . 3.698) (2.6 . 4.154) (2.1799999999999997 . 3.692) (2.5 . 4.0) (2.36 . 3.846) (1.7000000000000002 . 3.44) (1.96 . 3.538)))))
  '(org-drill-save-buffers-after-drill-sessions-p nil)
+ '(org-drill-scope (quote directory))
  '(org-emphasis-alist (quote (("*" my-org-bold "<b>" "</b>") ("/" my-org-italic "<i>" "</i>") ("_" underline "<span style=\"text-decoration:underline;\">" "</span>") ("=" my-org-code "<code>" "</code>" verbatim) ("~" my-org-code "<code>" "</code>" verbatim) ("+" (:strike-through t) "<del>" "</del>"))))
- '(org-file-apps (quote ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . "zathura %s"))))
+ '(org-fast-tag-selection-single-key (quote expert))
+ '(org-file-apps (quote ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . "zathura --fork %s"))))
  '(org-habit-following-days 1)
- '(org-habit-preceding-days 60)
+ '(org-habit-graph-column 80)
+ '(org-habit-preceding-days 30)
  '(org-log-into-drawer t)
+ '(org-modules (quote (org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m org-drill)))
  '(org-refile-use-outline-path (quote file))
  '(org-special-ctrl-a/e t)
  '(org-src-fontify-natively t)
+ '(org-stuck-projects (quote ("" nil nil "")))
  '(org-tags-exclude-from-inheritance nil)
  '(org-time-clocksum-format (quote (:hours "%d" :require-hours t :minutes ":%02d" :require-minutes t)))
  '(pj-line-width 1100)
  '(sp-autoescape-string-quote-if-empty (quote (python-mode)))
  '(sp-autoinsert-if-followed-by-same 3)
  '(sp-autoinsert-quote-if-followed-by-closing-pair nil)
- '(sp-autoskip-closing-pair (quote always))
+ '(sp-autoskip-closing-pair (quote ((t . always) ((emacs-lisp-mode)))))
  '(sp-autoskip-opening-pair nil)
  '(sp-autowrap-region t)
  '(sp-comment-string (quote (((emacs-lisp-mode) . ";; "))))
- '(sp-hybrid-kill-entire-symbol (quote sp-point-in-string))
  '(sp-hybrid-kill-excessive-whitespace nil)
- '(sp-ignore-modes-list (quote (image-dired-display-image-mode image-dired-thumbnail-mode ediff-mode recentf-dialog-mode google-maps-static-mode ibuffer-mode)))
+ '(sp-ignore-modes-list (quote (image-dired-display-image-mode image-dired-thumbnail-mode ediff-mode recentf-dialog-mode google-maps-static-mode ibuffer-mode org-agenda-mode dired-mode)))
  '(sp-navigate-close-if-unbalanced t)
  '(sp-navigate-comments-as-sexps t)
  '(sp-navigate-consider-sgml-tags (quote (html-mode markdown-mode gfm-mode rst-mode)))
  '(sr-tabs-max-tabsize 18)
  '(sr-traditional-other-window nil)
  '(sr-windows-locked nil)
- '(suggest-key-bindings nil)
  '(texmathp-tex-commands (quote (("derivation" env-on))))
  '(text-mode-hook (quote (text-mode-hook-identify)))
- '(tramp-default-method "scpc")
  '(transient-mark-mode t)
  '(truncate-partial-width-windows nil)
  '(uniquify-buffer-name-style (quote forward) nil (uniquify))
+ '(use-package-verbose t)
  '(vc-make-backup-files t)
  '(visible-bell nil)
  '(w3m-command nil)
  '(w3m-imagick-convert-program "c:\\cygwin\\bin\\convert.exe")
+ '(whitaker-program "(cd /media/Data/languages/Latin/Words/ && wine words.exe)")
  '(winner-mode t))
 
 (put 'narrow-to-region 'disabled nil)
  '(diredp-write-priv ((t nil)))
  '(eldoc-highlight-function-argument ((t (:inherit bold :foreground "#4e9a06"))))
  '(erc-nick-default-face ((t (:inherit erc-default))) t)
- '(eshell-prompt ((t (:foreground "#73d216" :weight normal))) t)
+ '(eshell-prompt ((t (:foreground "#73d216" :weight normal))))
+ '(eyebrowse-mode-line-active ((t (:inherit mode-line))))
+ '(eyebrowse-mode-line-inactive ((t (:inherit mode-line-secondary))))
+ '(fixed-pitch ((t (:family "Inconsolata"))))
  '(font-latex-sedate-face ((t (:inherit font-lock-keyword-face))))
  '(guide-key/key-face ((t (:inherit font-lock-keyword-face))))
  '(header-line ((t (:inherit mode-line))))
  '(my-space-2 ((t (:inherit default :height 0.21))) t)
  '(my-space-px-4 ((t (:inherit default :height 2.0 :width ultra-condensed))) t)
  '(org-block ((t (:inherit shadow :family "Consolas"))))
- '(org-block-background ((t (:background "#232a2b" :height 98 :family "Consolas"))))
+ '(org-block-background ((t (:inherit fixed-pitch :background "#232a2b"))))
  '(org-formula ((t (:inherit fixed-pitch :foreground "chocolate1"))))
  '(org-mode-line-clock ((t nil)) t)
- '(org-table ((t (:inherit fixed-pitch :foreground "#8cc4ff" :height 98))))
+ '(org-table ((t (:inherit fixed-pitch :foreground "#8cc4ff"))))
  '(org-verbatim ((t (:inherit org-code))))
  '(sp-pair-overlay-face ((t (:background "#004a5d"))))
  '(sp-show-pair-enclosing ((t (:background "#004a5d"))))
  '(variable-pitch ((t (:weight normal :height 144 :family "CMU Bright"))))
- '(w3m-anchor ((t (:foreground "#729fcf"))) t)
- '(w3m-arrived-anchor ((t (:inherit font-lock-builtin-face))) t)
+ '(w3m-anchor ((t (:foreground "#729fcf"))))
+ '(w3m-arrived-anchor ((t (:inherit font-lock-builtin-face))))
  '(wgrep-delete-face ((t (:inherit font-lock-warning-face)))))

File files/ibuffer-defs.el

                     (mode . rcirc-mode)))
                ("Search"
                 (or (mode . ag-mode)))
+               ("Images"
+                (or (mode . di-view-mode)
+                    (mode . di-thumb-mode)))
                ))))
 
 ;; (define-ibuffer-filter in-directory

File files/ido-defs.el

-(use-package flx-ido
-  :defer t)
+(use-package flx-ido)
 
 ;; Display ido results vertically, rather than horizontally
-(setq ido-decorations (quote ("\n-> " "" "\n   " "\n   ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
 (defun ido-disable-line-trucation () (set (make-local-variable 'truncate-lines) nil))
 (add-hook 'ido-minibuffer-setup-hook 'ido-disable-line-trucation)
 
   (setq ido-temp-list
         (sort ido-temp-list
               (lambda (a b)
-                (time-less-p
-                 (sixth (file-attributes (concat ido-current-directory b)))
-                 (sixth (file-attributes (concat ido-current-directory a)))))))
+                (cond
+                 ((not (file-exists-p a)) nil)
+                 ((not (file-exists-p b)) nil)
+                 (t (time-less-p
+                     (sixth (file-attributes (concat ido-current-directory b)))
+                     (sixth (file-attributes (concat ido-current-directory a)))))))))
   (ido-to-end  ;; move . files to end (again)
    (--select (char-equal (string-to-char it) ?.) ido-temp-list))
   (when ido-show-dot-for-dired

File files/keys.el

 
 ;; refresh-like
 (bind-key "<f5>" '(lambda () (interactive) (load-file (buffer-file-name))))
+(bind-key "A-u" 'universal-argument)
+(bind-keys :prefix "A-x"
+           :prefix-map alt-x-prefix-map
+           :prefix-docstring "A-x prefix map"
+           ("A-m" . my-find-file-same-mode)
+           ("A-x" . my-find-file-same-ext)
+           ("A-s" . my-find-file-sudo))
 
 ;; Indenting and alignment
 (bind-key "<f8>" 'align-regexp)
 (bind-key "C-. -" 'macrostep-expand)
 
 (defvar ctl-dot-i-prefix-map)
+(put 'ctl-dot-i-prefix-map 'variable-documentation "Input method map.")
 (define-prefix-command 'ctl-dot-i-prefix-map)
 (bind-key "C-. i" 'ctl-dot-i-prefix-map)
 (bind-key "C-. i m" 'set-input-method)
 (bind-key "C-. i e" 'toggle-input-method)
 (bind-key "<XF86HomePage>" 'toggle-input-method)
-(bind-key "C-. i s" (lambda () (interactive) (set-input-method "slovak-prog-2")))
-(bind-key "C-. i c" (lambda () (interactive) (set-input-method "czech")))
-(bind-key "C-. i r" (lambda () (interactive) (set-input-method "russian-computer")))
-(bind-key "C-. i q" (lambda () (interactive) (set-input-method "cyrillic-translit")))
-(bind-key "C-. i i" (lambda () (interactive) (set-input-method "italian-keyboard")))
-(bind-key "C-. i g" (lambda () (interactive) (set-input-method "german")))
-(bind-key "C-. i t" (lambda () (interactive) (set-input-method "TeX")))
-(bind-key "C-. i l" (lambda () (interactive) (set-input-method "latin-macrons")))
+(bind-key "C-. i s" (lambda () "Toggle on slovak-prog-2 input method." (interactive) (set-input-method "slovak-prog-2")))
+(bind-key "C-. i c" (lambda () "Toggle on czech input method." (interactive) (set-input-method "czech")))
+(bind-key "C-. i r" (lambda () "Toggle on russian-computer input method." (interactive) (set-input-method "russian-computer")))
+(bind-key "C-. i q" (lambda () "Toggle on cyrillic-translit input method." (interactive) (set-input-method "cyrillic-translit")))
+(bind-key "C-. i i" (lambda () "Toggle on italian-keyboard input method." (interactive) (set-input-method "italian-keyboard")))
+(bind-key "C-. i g" (lambda () "Toggle on german input method." (interactive) (set-input-method "german")))
+(bind-key "C-. i t" (lambda () "Toggle on TeX input method." (interactive) (set-input-method "TeX")))
+(bind-key "C-. i l" (lambda () "Toggle on latin-macrons input method." (interactive) (set-input-method "latin-macrons")))
 
 (bind-key "H-u" 'universal-argument)
 (bind-key "H-u" 'universal-argument-more universal-argument-map)
 (bind-key "C-c m l" 'magit-key-mode-popup-logging)
 (bind-key "C-c m m" 'magit-key-mode-popup-merging)
 (bind-key "C-c m p" 'magit-key-mode-popup-pushing)
-
+(bind-key "C-c m v" 'magit-branch-manager)
 (bind-key "C-c m s" 'magit-status)
 
 ;; zapping
 ;; M-g map
 (bind-key "M-g RET" 'skeleton-display-abbrev)
 
-;; input methods
+
 (bind-key "C-\\" 'toggle-input-method)
 (bind-key "C-\\" 'my-cycle-language)
 (defvar my-input-method :english)
        (add-hook ',mode-hook (lambda () (define-key ,mode-map [remap end-of-buffer] ',fname))))))
 
 (my-special-buffer-back-to-top dired
-  (dired-next-line (if dired-omit-mode 2 4)))
+  (while (not (ignore-errors (dired-get-filename)))
+    (dired-next-line 1)))
 (my-special-buffer-jump-to-bottom dired
   (dired-previous-line 1))
 

File files/latex-defs.el

+;; how to setup zathura http://oku.edu.mie-u.ac.jp/~okumura/texwiki/?AUCTeX
+
 (use-package latex
   :defer t
   :config
         (newline-and-indent)
         (save-excursion (newline))))
 
+    (defun my-latex-install-package (package)
+      "Install a texlive packag."
+      (interactive (list (word-at-point)))
+      (let ((buf (get-buffer-create "*tlmgr*")))
+        (with-current-buffer buf (erase-buffer))
+        (display-buffer buf)
+        (call-process "tlmgr" nil buf t "install" package)))
+    (bind-key "C-c i" 'my-latex-install-package LaTeX-mode-map)
+
     (defun my-latex-compile ()
       (interactive)
       (save-buffer)

File files/mode-line.el

                                       (lambda (x) (concat x "/")) (s-split "/" real-buffer-name)))
                             real-filename)))
       (if tramp-file-name
-          (format "/%s:%s@%s:%s/"
-                  (elt tramp-file-name 0)
-                  (elt tramp-file-name 1)
-                  (elt tramp-file-name 2)
-                  uniquified-name)
+          (let ((fn (format "/%s:%s@%s:%s"
+                            (elt tramp-file-name 0)
+                            (elt tramp-file-name 1)
+                            (elt tramp-file-name 2)
+                            uniquified-name)))
+            (if (s-ends-with-p "/" fn) fn
+              (concat fn "/")))
         uniquified-name))))
 
 (defvar minimal-mode-line-background "darkred"

File files/org-defs.el

 
 ;; Tags shortcuts
 (setq org-tag-alist (quote ((:startgroup)
-                            ("@errand" . ?e)
-                            ("@school" . ?o)
-                            ("@home" . ?H)
+                            ("Errand" . ?e)
+                            ("School" . ?s)
+                            ("Home" . ?h)
                             (:endgroup)
-                            ("READING" . ?r)
-                            ("LATIN" . ?l))))
+                            (:startgroup)
+                            ("DE" . ?D)
+                            ("IT" . ?I)
+                            ("LA" . ?L)
+                            ("RU" . ?R)
+                            ("FR" . ?F)
+                            ("ES" . ?E)
+                            ("IL" . ?H)
+                            ("SANSKRIT" . ?S)
+                            ("PL" . ?P)
+                            ("JP" . ?J)
+                            (:endgroup)
+                            ("Reading" . ?r)
+                            ("CS" . ?c)
+                            ("FP" . ?f))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;; AGENDA VIEW
 (defun my-org-agenda-is-task-p ()
       (--each headers
         (save-excursion
           (goto-char (point-min))
-          (search-forward it nil t)
+          (re-search-forward (concat "^" (regexp-quote it)) nil t)
           (unless (save-excursion
                     (forward-line)
                     (my-org-agenda-is-task-p))
             (delete-region (line-beginning-position) (1+ (line-end-position))))))
       (save-excursion
         (goto-char (point-min))
-        (when (re-search-forward (regexp-opt headers) nil t)
+        (when (re-search-forward (concat "^" (regexp-opt headers)) nil t)
           (goto-char (match-beginning 0))
           (backward-char)
           (insert (propertize (concat "\n" (make-string (/ (window-width) 2) ?─)) 'face 'org-time-grid)))))))
                       (org-agenda-todo-ignore-scheduled 'future)
                       (org-agenda-todo-ignore-deadlines 'future)))
           (tags-todo "Reading"
-                     ((org-agenda-overriding-header "Reading")
-                      (org-tags-match-list-sublevels nil))))
+                     ((org-agenda-overriding-header "Reading"))))
          nil)
         ("h" "Habits" tags-todo "STYLE=\"habit\""
          ((org-agenda-overriding-header "Habits")

File files/vendor.el

          ("<f9> <f10>" . ag-regexp)
          ("<f9> <f8>" . ag-files)
          ("M-<f2>" . ag-project-dired)
-         ("C-<f2>" . ag-dired))
+         ("C-<f2>" . ag-dired)
+         ("A-<f2>" . ag-dired-regexp))
   :config
   (progn
     (require 'wgrep)
   :commands elxiki-mode
   :config
   (progn
-    (with-map-bind-keys elxiki-mode-map
-      ("A-<return>" 'elxiki-command)
-      ("M-<return>" 'elxiki-command-no-filter))))
+    (bind-keys :map elxiki-mode-map
+      ("A-<return>" . elxiki-command)
+      ("M-<return>" . elxiki-command-no-filter))))
 
 (use-package elwm
   :bind (("M-o" . elwm-activate-window)
     (defun my-html-mode-setup ()
       (multi-web-mode 1)
       (emmet-mode 1)
-      (with-map-bind-keys html-mode-map
-        ("C-c C-f" 'sp-html-next-tag)
-        ("C-c C-b" 'sp-html-previous-tag)))
+      (bind-keys :map html-mode-map
+        ("C-c C-f" . sp-html-next-tag)
+        ("C-c C-b" . sp-html-previous-tag)))
     (add-hook 'html-mode-hook 'my-html-mode-setup)))
 
 (use-package skeleton-complete
   :init
   (progn
     (bind-key "M-x" 'beautify-smex)
-    (bind-key "M-X" 'smex-major-mode-commands)
+    (bind-key "M-X" 'beautify-smex-mm)
     ;; This is your old M-x.
     (bind-key "C-c C-c M-x" 'execute-extended-command)
 
     (defun beautify-smex ()
       (interactive)
-      (unwind-protect
-          (progn
-            (setq ido-decorations
-                  '("{" "}" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]"))
-            (smex))
-        (setq ido-decorations
-              '("\n-> " "" "\n   " "\n   ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))))
+      (let ((ido-decorations
+             '("{" "}" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
+        (smex)))
+
+    (defun beautify-smex-mm ()
+      (interactive)
+      (let ((ido-decorations
+             '("{" "}" " | " " | ..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
+        (smex-major-mode-commands))))
   :config
   (progn
-    (defun smex-update-after-load (unused)
-      (when (boundp 'smex-cache)
-        (smex-update)))
-    (add-hook 'after-load-functions 'smex-update-after-load)
-
-    (defun smex-prepare-ido-bindings ()
-      (define-key ido-completion-map (kbd "C-h f") 'smex-describe-function)
-      (define-key ido-completion-map (kbd "C-h w") 'smex-where-is)
-      (define-key ido-completion-map (kbd "M-.") 'smex-find-function)
-      (define-key ido-completion-map (kbd "C-a") 'move-beginning-of-line)
+    (defadvice smex-prepare-ido-bindings (after add-more-bindings activate)
       (define-key ido-completion-map (kbd "=") "-"))))
 
 (use-package sunrise-commander
 (use-package wc-mode
   :commands wc-mode)
 
+(use-package whitaker
+  :bind ("A-a" . whitaker-send-word))
+
 (use-package wiktionary-translate
   :bind ("<insert>" . wd-show-translation))
 
 (server-start)
 (add-to-list 'load-path "~/.emacs.d/vendor/use-package/")
 (require 'use-package)
+(setq use-package-verbose t)
 
 (defconst emacs-start-time (current-time))
 

File site-lisp/defuns-edit.el

 and indent next line according to mode."
   (interactive "P")
   (if (or (<= (point) (save-excursion
-                        (my-back-to-indentation)
+                        (my--back-to-indentation)
                         (point)))
           (equal arg '(4)))
       (progn
 ;; navigate to beg/end of current line, considering indent and
 ;; comments
 
-(defun point-in-comment ()
+(defun my--point-in-comment ()
   "Determine if the point is inside a comment"
   (interactive)
   (let ((face (plist-get (text-properties-at (point)) 'face)))
     (or (memq 'font-lock-comment-face face)
         (memq 'font-lock-comment-delimiter-face face))))
 
-(defun my-back-to-indentation ()
+(defun my--back-to-indentation ()
+  "Move to indentation respecting `visual-line-mode'."
   (if visual-line-mode
       (flet ((beginning-of-line (arg) (beginning-of-visual-line arg)))
         (back-to-indentation))
     (back-to-indentation)))
 
+(defun my--move-beginning-of-line (&optional arg)
+  "Move to beginning of line respecting `visual-line-mode'."
+  (if visual-line-mode
+      (beginning-of-visual-line arg)
+    (move-beginning-of-line arg)))
+
+(defun my--move-end-of-line (&optional arg)
+  "Move to end of line respecting `visual-line-mode'."
+  (if visual-line-mode
+      (end-of-visual-line arg)
+    (move-end-of-line arg)))
+
 (defun my-back-to-indentation-or-beginning (&optional arg)
   "Jump back to indentation of the current line.  If already
 there, jump to the beginning of current line.  If visual mode is
       (if (= (point) eob)
           (org-beginning-of-line)
         (goto-char eob))))
+   ((eq major-mode 'dired-mode)
+    (if (= (point) (save-excursion
+                     (dired-move-to-filename)
+                     (point)))
+        (progn
+          (move-beginning-of-line 1)
+          (skip-syntax-forward " "))
+      (dired-move-to-filename)))
    ((eq major-mode 'org-mode)
     (org-beginning-of-line))
    (t
     (if (or (/= arg 1)
             (= (point) (save-excursion
-                         (my-back-to-indentation)
+                         (my--back-to-indentation)
                          (point))))
         (progn
-          (if visual-line-mode
-              (beginning-of-visual-line arg)
-            (move-beginning-of-line arg))
+          (my--move-beginning-of-line arg)
           (when (/= arg 1)
-            (my-back-to-indentation)))
-      (my-back-to-indentation)))))
+            (my--back-to-indentation)))
+      (my--back-to-indentation)))))
 
-(defun my-cua-get-longest-line ()
+(defun my--cua-get-longest-line ()
   (-max (mapcar 'length
                 (split-string
                  (buffer-substring-no-properties (cua--rectangle-top) (cua--rectangle-bot))
      (t
       (let ((eoc (save-excursion
                    (end-of-line-lov)
-                   (while (and (point-in-comment)
+                   (while (and (my--point-in-comment)
                                (not (bolp)))
                      (backward-char))
                    (skip-syntax-backward " ")
                               (point))
                      (point))))
             ;; end of rectangle in cua-rect mode
-            (eor (when cua--rectangle (my-cua-get-longest-line))))
+            (eor (when cua--rectangle (my--cua-get-longest-line))))
         ;; refactor this: make some "move actions" and call them in
         ;; order until point changes.
         (cond
           (if (and cua--rectangle
                    (/= (1+ (aref cua--rectangle 3)) eor))
               (cua-resize-rectangle-right (- eor (current-column) 1))
-            (goto-char eoc)))
+            (goto-char eoc))) ;; asd
          (t (goto-char eoc))))))))
 
 

File site-lisp/defuns-macros.el

                ,@forms)
              (directory-files ,directory)))))
 
-(defmacro with-map-bind-keys (map &rest forms)
-  (declare (indent 1))
-  `(progn
-     ,@(mapcar (lambda (form) (append '(bind-key) form `(,map))) forms)))
-
 (defmacro with-lines (&rest forms)
   (declare (indent 0))
   `(while (not (eobp))
     "save-buffer-list"
     "save-kill-ring"
     "with-files-in-dir"
-    "with-map-bind-keys"
     "with-lines"
     "fix-reset-after-each"
+    "bind-keys"
     ))
 
 (font-lock-add-keywords 'emacs-lisp-mode `((,(concat "(\\<"

File site-lisp/defuns.el

   "Return non-nil if the current buffer is narrowed."
   (/= (- (point-max) (point-min)) (buffer-size)))
 
+;;; opening files
+(defun my-find-file-same-ext (filename)
+  "Find files with same extension as the file in current buffer."
+  (interactive (list (let ((ext (file-name-extension (buffer-file-name))))
+                       (completing-read
+                        (format "Find file [.%s]: " ext)
+                        (directory-files default-directory)
+                        `(lambda (f) (equal (file-name-extension f)
+                                            ,ext))
+                        t))))
+  (find-file filename))
+
+(defun my-find-file-same-mode (filename)
+  "Find files that would open in the same `major-mode' as current buffer."
+  (interactive (list (progn
+                       (require 'dired-hacks-utils)
+                       (completing-read
+                        (format "Find file [major-mode %s]: " major-mode)
+                        (directory-files default-directory)
+                        `(lambda (f)
+                           (-when-let (mm (cdr (dired-utils-match-filename-regexp
+                                                f auto-mode-alist)))
+                             (eq mm ',major-mode)))
+                        t))))
+  (find-file filename))
+
+(defun my-find-file-sudo (filename)
+  "Open the file through sudo(1).
+
+With \\[universal-argument], visit current file via sudo."
+  (interactive
+   (list (if current-prefix-arg (buffer-file-name)
+           (read-file-name "Find file: " nil default-directory
+                           (confirm-nonexistent-file-or-buffer)))))
+  (find-file (concat "/sudo::" filename)))
+
+(defun my-find-url (url)
+  "Download URL and insert into current buffer at point."
+  (interactive "sULR: ")
+  (insert (progn
+            (with-current-buffer (url-retrieve-synchronously url)
+              (buffer-string)))))
+
 ;;; function overloads
 (eval-after-load "hi-lock"
   '(progn

File site-lisp/emacs-lisp-mode.el

   :init
   (progn
     (defun my-emacs-lisp-init ()
-      (with-map-bind-keys emacs-lisp-mode-map
-        ("RET" 'my-emacs-lisp-open-line)
-        ("C-M-;" 'clippy-describe-function)
-        ("C-. ." 'my-describe-thing-in-buffer)
-        ("C-x C-d l" 'my-extract-to-let)
-        ("C-x C-d m" 'my-merge-let-forms)
-        ("C-x C-d c" 'my-lisp-condify-if))
+      (bind-keys :map emacs-lisp-mode-map
+        ("RET" . my-emacs-lisp-open-line)
+        ("C-M-;" . clippy-describe-function)
+        ("C-. ." . my-describe-thing-in-buffer)
+        ("C-x C-d l" . my-extract-to-let)
+        ("C-x C-d m" . my-merge-let-forms)
+        ("C-x C-d c" . my-lisp-condify-if))
 
       (set-input-method "english-prog")
       (eldoc-mode 1)

File themes/my-tango-dark-theme.el

                                            :background ,choc-1
                                            :foreground "black"))))
    `(eshell-prompt ((,class (:foreground ,plum-2 :weight bold))))
-   `(fixed-pitch ((,class (:height 98 :family ,fixed-sys))))
+   `(fixed-pitch ((,class (:height ,fixed-sys-height :family ,fixed-sys))))
    `(hl-line ((,class (:inherit nil :background ,alum-7))))
    `(markdown-pre-face ((,class (:inherit font-lock-constant-face :family ,fixed-sys))))
    `(markdown-inline-code-face ((,class (:inherit markdown-pre-face))))

File vendor/use-package/bind-key.el

 ;;
 ;;   (unbind-key "C-c x" some-other-mode-map)
 ;;
+;; To bind multiple keys at once, or set up a prefix map, a
+;; `bind-keys' macro is provided.  It accepts keyword arguments, see
+;; its documentation for detailed description.
+;;
+;; To add keys into a specific map, use :map argument
+;;
+;;    (bind-keys :map dired-mode-map
+;;               ("o" . dired-omit-mode)
+;;               ("a" . some-custom-dired-function))
+;;
+;; To set up a prefix map, use :prefix-map and :prefix
+;; arguments (both are required)
+;;
+;;    (bind-keys :prefix-map my-customize-prefix-map
+;;               :prefix "C-c c"
+;;               ("f" . customize-face)
+;;               ("v" . customize-variable))
+;;
+;; You can combine all the keywords together.
+;; Additionally, :prefix-docstring can be specified to set
+;; documentation of created :prefix-map variable.
+;;
 ;; After Emacs loads, you can see a summary of all your personal keybindings
 ;; currently in effect with this command:
 ;;
   :type 'regexp
   :group 'bind-key)
 
+(defcustom bind-key-describe-special-forms nil
+  "If non-nil, extract docstrings from lambdas, closures and keymaps if possible."
+  :type 'boolean
+  :group 'bind-key)
+
 ;; Create override-global-mode to force key remappings
 
 (defvar override-global-map (make-keymap)
      (bind-key ,key-name ,command)
      (define-key override-global-map ,(read-kbd-macro key-name) ,command)))
 
+(defmacro bind-keys (&rest args)
+  "Bind multiple keys at once.
+
+Accepts keyword arguments:
+:map - a keymap into which the keybindings should be added
+:prefix-map - name of the prefix map that should be created for
+              these bindings
+:prefix - prefix key for these bindings
+:prefix-docstring - docstring for the prefix-map variable
+
+The rest of the arguments are conses of keybinding string and a
+function symbol (unquoted)."
+  (let ((map (plist-get args :map))
+        (doc (plist-get args :prefix-docstring))
+        (prefix-map (plist-get args :prefix-map))
+        (prefix (plist-get args :prefix))
+        (key-bindings (progn
+                        (while (keywordp (car args))
+                          (pop args)
+                          (pop args))
+                        args)))
+    (when (or (and prefix-map
+                   (not prefix))
+              (and prefix
+                   (not prefix-map)))
+      (error "Both :prefix-map and :prefix must be supplied"))
+    `(progn
+       ,@(when prefix-map
+           `((defvar ,prefix-map)
+             ,@(when doc `((put ',prefix-map'variable-documentation ,doc)))
+             (define-prefix-command ',prefix-map)
+             (bind-key ,prefix ',prefix-map ,@(when map (list map)))))
+       ,@(mapcar (lambda (form) `(bind-key ,(if prefix
+                                                (concat prefix " " (car form))
+                                              (car form))
+                                           ',(cdr form)
+                                           ,@(when map (list map))))
+                 key-bindings))))
+
 (defun get-binding-description (elem)
   (cond
    ((listp elem)
     (cond
      ((eq 'lambda (car elem))
-      "#<lambda>")
+      (if (and bind-key-describe-special-forms
+               (stringp (nth 2 elem)))
+          (nth 2 elem)
+        "#<lambda>"))
      ((eq 'closure (car elem))
-      "#<closure>")
+      (if (and bind-key-describe-special-forms
+               (stringp (nth 3 elem)))
+          (nth 3 elem)
+        "#<closure>"))
      ((eq 'keymap (car elem))
       "#<keymap>")
      (t
       elem)))
    ((keymapp elem)
-    "#<keymap>")
+    (if (and bind-key-describe-special-forms
+             (symbolp elem)
+             (get elem 'variable-documentation))
+        (format "%s" (get elem 'variable-documentation))
+      "#<keymap>"))
    ((symbolp elem)
     elem)
    (t

File vendor/use-package/use-package.el

   )
   "Keywords recognized by `use-package'.")
 
-(defun plist-keys (plist)
-  "Return a list containing all the keys in PLIST."
-  (when plist
-    (cons
-      (car plist)
-      (plist-keys
-        (cddr plist)))))
+(defun use-package-mplist-get (plist prop)
+  "Get the values associated to PROP in PLIST, a modified plist.
+
+A modified plist is one where keys are keywords and values are
+all non-keywords elements that follow it.
+
+As a special case : if the first occurrence of the keyword PROP
+is followed by another keyword or is the last element in the
+list, the function returns t.
+
+Currently this function infloops when the list is circular."
+  (let ((tail plist)
+        found
+        result)
+    (while (and
+            (consp tail)
+            (not
+             (eq prop (car tail))))
+      (pop tail))
+    (when (eq prop (pop tail))
+      (setq found t))
+    (while (and (consp tail)
+                (not (keywordp (car tail))))
+      (push (pop tail) result))
+    (or (nreverse result) found)))
+
+(defun use-package-plist-get (plist prop)
+  "Compatibility layer between classical and modified plists.
+
+If `use-package-mplist-get' returns exactly one value, that is
+returned ; otherwise the list is returned wrapped in a `progn'."
+  (let ((values (use-package-mplist-get plist prop)))
+    (when values
+      (cond ((not (listp values))
+             values)
+            ((eq 1 (length values))
+             (car values))
+            (t (cons 'progn values))))))
+
+(defun use-package-mplist-keys (plist)
+  "Get the keys in PLIST, a modified plist.
+
+A modified plist is one where properties are keywords and values
+are all non-keywords elements that follow it."
+  (let ((result))
+    (mapc (lambda (elt)
+            (when (keywordp elt)
+              (push elt result)))
+          plist)
+    (nreverse result)))
 
 (defun use-package-validate-keywords (args)
   "Error if any keyword given in ARGS is not recognized.
       (lambda (keyword)
         (unless (memq keyword use-package-keywords)
           (error "Unrecognized keyword: %s" keyword))))
-    (plist-keys args)))
+    (use-package-mplist-keys args)))
 
-(defun plist-get-value (plist prop)
+(defun use-package-plist-get-value (plist prop)
   "Return the value of PROP in PLIST as if it was backquoted."
-  (eval (list '\` (plist-get plist prop))))
+  (eval (list '\` (use-package-plist-get plist prop))))
 
 (defmacro use-package (name &rest args)
   "Use a package with configuration options.
 :idle adds a form to run on an idle timer
 :ensure loads package using package.el if necessary."
   (use-package-validate-keywords args) ; error if any bad keyword, ignore result
-  (let* ((commands (plist-get args :commands))
-         (pre-init-body (plist-get args :pre-init))
-         (pre-load-body (plist-get args :pre-load))
-         (init-body (plist-get args :init))
-         (config-body (plist-get args :config))
-         (diminish-var (plist-get-value args :diminish))
-         (defines (plist-get-value args :defines))
-         (idle-body (plist-get args :idle))
-         (keybindings-alist (plist-get-value args :bind))
-         (mode (plist-get-value args :mode))
+  (let* ((commands (use-package-plist-get args :commands))
+         (pre-init-body (use-package-plist-get args :pre-init))
+         (pre-load-body (use-package-plist-get args :pre-load))
+         (init-body (use-package-plist-get args :init))
+         (config-body (use-package-plist-get args :config))
+         (diminish-var (use-package-plist-get-value args :diminish))
+         (defines (use-package-plist-get-value args :defines))
+         (idle-body (use-package-plist-get args :idle))
+         (keybindings-alist (use-package-plist-get-value args :bind))
+         (mode (use-package-plist-get-value args :mode))
          (mode-alist
           (if (stringp mode) (cons mode name) mode))
-         (interpreter (plist-get-value args :interpreter))
+         (interpreter (use-package-plist-get-value args :interpreter))
          (interpreter-alist
           (if (stringp interpreter) (cons interpreter name) interpreter))
-         (predicate (plist-get args :if))
-         (pkg-load-path (plist-get-value args :load-path))
+         (predicate (use-package-plist-get args :if))
+         (pkg-load-path (use-package-plist-get-value args :load-path))
          (defines-eval (if (null defines)
                            nil
                          (if (listp defines)
                              (mapcar (lambda (var) `(defvar ,var)) defines)
                            `((defvar ,defines)))))
-         (requires (plist-get-value args :requires))
+         (requires (use-package-plist-get-value args :requires))
          (requires-test (if (null requires)
                             t
                           (if (listp requires)
          (name-symbol (if (stringp name) (intern name) name)))
 
     ;; force this immediately -- one off cost
-    (unless (plist-get args :disabled)
+    (unless (use-package-plist-get args :disabled)
 
-      (let* ((ensure (plist-get args :ensure))
+      (let* ((ensure (use-package-plist-get args :ensure))
              (package-name
               (or (and (eq ensure t)
                        name)
                   `(load ,name t)
                 `(require ',name nil t))))
 
-         ,(if (and (or commands (plist-get args :defer))
-                   (not (plist-get args :demand)))
+         ,(if (and (or commands (use-package-plist-get args :defer))
+                   (not (use-package-plist-get args :demand)))
               (let (form)
                 (mapc #'(lambda (command)
                           (push `(autoload (function ,command)