Commits

Anonymous committed db7c808

Update

  • Participants
  • Parent commits 94bbe45

Comments (0)

Files changed (14)

File .mc-lists.el

       '(
         beautify-smex
         beginning-of-buffer
+        elwm-activate-window
         eval-and-replace
         handle-switch-frame
         haskell-indentation-delete-backward-char

File achievements

 ;; It keeps track of achievements you've already achieved.
 ;; Do not edit it manually, otherwise you'll spoil yourself the fun!
 
+(amode-set-achievement-data-plist "TUTORIAL" (list :level 1))
+(amode-set-achievement-data-plist "CHEATING_BASTARD" (list :level 1))
+(amode-set-achievement-data-plist "EVIL_MODE" (list :level 3))
+(amode-set-achievement-data-plist "NO_ARROWS" (list :level 1 :data 7))
+(amode-set-achievement-data-plist "SAVE_BUFFER" (list :level 0))
 (amode-set-achievement-data-plist "VISIT_FILE" (list :level 0))
-(amode-set-achievement-data-plist "SAVE_BUFFER" (list :level 0))
-(amode-set-achievement-data-plist "NO_ARROWS" (list :level 1 :data 7))
-(amode-set-achievement-data-plist "EVIL_MODE" (list :level 3))
-(amode-set-achievement-data-plist "CHEATING_BASTARD" (list :level 1))
-(amode-set-achievement-data-plist "TUTORIAL" (list :level 1))

File files/diminish.el

   '(diminish 'undo-tree-mode))
 (diminish 'visual-line-mode)
 (diminish 'smartparens-mode)
+(eval-after-load "achievements-functions"
+  '(diminish 'achievements-mode))
 (eval-after-load "eldoc"
   '(diminish 'eldoc-mode " δ"))
 (eval-after-load 'projectile

File files/emacs-custom.el

  '(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-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"))))
  '(ac-auto-show-menu 0.5)
  '(browse-kill-ring-quit-action (quote save-and-restore))
  '(bs-configurations (quote (("all" nil nil nil nil nil) ("files" nil nil nil bs-visits-non-file bs-sort-buffer-interns-are-last) ("files-and-scratch" "^\\*scratch" nil nil bs-visits-non-file bs-sort-buffer-interns-are-last) ("all-intern-last" nil nil nil nil bs-sort-buffer-interns-are-last) ("dired" nil (lambda (b) (with-current-buffer b (eq major-mode (quote dired-mode)))) nil (lambda (b) t) nil))))
  '(calc-settings-file "~\\.emacs.d\\my-calc.el")
+ '(calendar-latitude 49.2)
+ '(calendar-longitude 16.633)
+ '(calendar-mark-diary-entries-flag t)
+ '(calendar-view-diary-initially-flag t)
  '(calendar-week-start-day 1)
  '(cua-enable-cua-keys nil)
  '(cursor-color "#839496")
  '(delete-by-moving-to-trash t)
  '(desktop-buffer-filter (quote my-desktop-filter))
  '(desktop-save t)
+ '(diary-file "~/org/diary")
  '(dired-dwim-target 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")))
  '(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-vertically))
+ '(ediff-merge-split-window-function (quote split-window-horizontally))
+ '(ediff-split-window-function (quote split-window-horizontally))
  '(ediff-window-setup-function (quote ediff-setup-windows-plain))
- '(eldoc-eval-preferred-function (quote eval-expression))
+ '(eldoc-eval-preferred-function (quote pp-eval-expression))
  '(eldoc-in-minibuffer-mode t)
  '(emmet-indentation 2)
  '(emmet-preview-default nil)
+ '(enable-recursive-minibuffers t)
  '(erc-autojoin-channels-alist (quote (("chat.freenode.org" "#emacs" "##latin"))))
  '(erc-away-timestamp-format "<%H:%M:%S>")
  '(erc-fill-column 10000)
  '(global-flex-isearch-mode t)
  '(global-linum-mode nil)
  '(global-undo-tree-mode t)
- '(golden-ratio-exclude-buffer-names (quote ("*helm kill-ring*")))
+ '(golden-ratio-exclude-buffer-names (quote ("*helm kill-ring*" "*Ediff Control Panel*")))
  '(golden-ratio-extra-commands (quote (windmove-left windmove-right windmove-down windmove-up)))
- '(golden-ratio-inhibit-functions nil)
+ '(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")))
+ '(guide-key/popup-window-position (quote bottom))
  '(haskell-mode-hook (quote (turn-on-haskell-indentation turn-on-haskell-doc-mode)))
  '(haskell-program-name "d:\\progs\\HaskellPlatform\\bin\\ghci.exe")
  '(ibuffer-fontification-alist (quote ((10 buffer-read-only font-lock-constant-face) (15 (and buffer-file-name (string-match ibuffer-compressed-file-name-regexp buffer-file-name)) font-lock-doc-face) (20 (string-match "^*" (buffer-name)) font-lock-keyword-face) (25 (and (string-match "^ " (buffer-name)) (null buffer-file-name)) italic) (30 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face) (35 (memq major-mode (quote (dired-mode sr-mode))) font-lock-function-name-face))))
  '(mouse-highlight nil)
  '(multi-web-global-mode nil nil (multi-web-mode))
  '(mweb-default-major-mode (quote html-mode))
+ '(org-agenda-include-diary t)
+ '(org-agenda-start-with-log-mode nil)
+ '(org-clock-into-drawer "CLOCK")
+ '(org-clock-mode-line-total (quote current))
  '(org-cycle-emulate-tab nil)
- '(org-emphasis-alist (quote (("*" markdown-bold-face "<b>" "</b>") ("/" markdown-italic-face "<i>" "</i>") ("_" underline "<span style=\"text-decoration:underline;\">" "</span>") ("=" org-code "<code>" "</code>" verbatim) ("~" org-verbatim "<code>" "</code>" verbatim) ("+" (:strike-through t) "<del>" "</del>"))))
+ '(org-drill-add-random-noise-to-intervals-p t)
+ '(org-drill-adjust-intervals-for-early-and-late-repetitions-p t)
+ '(org-drill-maximum-duration nil)
+ '(org-drill-maximum-items-per-session 35)
+ '(org-drill-optimal-factor-matrix (quote ((1 (2.1799999999999997 . 3.72) (2.5 . 4.0) (2.36 . 3.86) (1.7000000000000002 . 3.44) (1.96 . 3.58)))))
+ '(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-log-into-drawer t)
+ '(org-refile-use-outline-path (quote file))
  '(org-src-fontify-natively t)
  '(predictive-add-to-dict-ask nil)
  '(predictive-auto-add-to-dict t)
  '(sp-autoinsert-quote-if-followed-by-closing-pair nil)
  '(sp-autoskip-closing-pair (quote always))
  '(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)))
+ '(sp-ignore-modes-list (quote (image-dired-display-image-mode image-dired-thumbnail-mode ediff-mode recentf-dialog-mode google-maps-static-mode)))
  '(sp-navigate-close-if-unbalanced t)
  '(sp-navigate-comments-as-sexps t)
- '(sp-navigate-consider-sgml-tags (quote (html-mode)))
+ '(sp-navigate-consider-sgml-tags (quote (html-mode markdown-mode gfm-mode rst-mode)))
  '(sp-navigate-consider-stringlike-sexp (quote (ruby-mode latex-mode gfm-mode emacs-lisp-mode html-mode org-mode python-mode)))
  '(sp-navigate-consider-symbols t)
  '(sp-navigate-reindent-after-up (quote ((interactive emacs-lisp-mode))))
  '(sp-override-key-bindings nil)
+ '(sp-sexp-prefix (quote ((emacs-lisp-mode syntax ".'") (latex-mode syntax "\\"))))
  '(sp-show-enclosing-pair-commands (quote (sp-show-enclosing-pair sp-forward-slurp-sexp sp-backward-slurp-sexp sp-forward-barf-sexp sp-backward-barf-sexp)))
  '(sp-show-pair-from-inside nil)
+ '(sp-successive-kill-preserve-whitespace 2)
  '(sp-test-customize (quote ((interactive emacs-lisp-mode))))
  '(sp-undo-pairs-separately t)
  '(sp-wrap-deactivate-smart-symbol-wrapping nil)
  '(diredp-write-priv ((t nil)))
  '(eldoc-highlight-function-argument ((t (:inherit bold :foreground "#4e9a06"))))
  '(erc-nick-default-face ((t (:inherit erc-default))))
- '(eshell-prompt ((t (:foreground "#73d216" :weight normal))) t)
+ '(eshell-prompt ((t (:foreground "#73d216" :weight normal))))
  '(font-latex-sedate-face ((t (:inherit font-lock-keyword-face))))
  '(header-line ((t (:inherit mode-line))))
  '(my-diredp-sourcefile-face ((t (:foreground "#fcaf3e"))))
  '(my-hide-prefix ((t (:underline "#888a85"))))
  '(org-block ((t (:inherit shadow :family "Consolas"))))
- '(org-code ((t (:inherit markdown-pre-face))))
+ '(org-block-background ((t (:background "#232a2b" :height 98 :family "Consolas"))))
  '(org-formula ((t (:inherit fixed-pitch :foreground "chocolate1"))))
  '(org-mode-line-clock ((t nil)) t)
+ '(org-verbatim ((t (:inherit org-code))))
  '(sp-pair-overlay-face ((t (:background "#004a5d"))))
  '(w3m-anchor ((t (:foreground "#729fcf"))))
  '(w3m-arrived-anchor ((t (:inherit font-lock-builtin-face)))))

File files/global.el

 (setq locale-coding-system 'utf-8)
 (set-terminal-coding-system 'utf-8)
 (set-keyboard-coding-system 'utf-8)
-(set-selection-coding-system 'utf-8)
+(if (eq system-type 'windows-nt)
+    (set-selection-coding-system 'utf-16le-dos)
+  (set-selection-coding-system 'utf-8))
 (prefer-coding-system 'utf-8)
 
 ;; cua-selection-mode for all the goodies ;)

File files/keys.el

 (bind-key "<f1>" 'f1-prefix-map)
 (bind-key "<f1> <f2>" (lambda () (interactive) (find-file "~/.emacs.d/init.el")))
 (bind-key "<f1> <f3>" 'view-echo-area-messages)
-(bind-key "<f1> <f9>" 'my-switch-to-scratch)
+(bind-key "<f1> <f12>" 'my-switch-to-scratch)
 
 ;; ibuffer > list-buffers
 (bind-key "C-x C-b" 'ibuffer)

File files/latex-mode-config.el

           (setq TeX-parse-self t)
           (TeX-PDF-mode t)
           (setq reftex-plug-into-AUCTeX t)
-          (setq TeX-source-correlate-mode t)
-          (setq TeX-source-correlate-method 'synctex)
           (reftex-mode t)
           (TeX-fold-mode t)
 

File files/org-clock.el

 (setq org-clock-in-resume t)
 ;; Change tasks to NEXT when clocking in
 (setq org-clock-in-switch-to-state 'bh/clock-in-to-next)
-;; Separate drawers for clocking and logs
-(setq org-drawers (quote ("PROPERTIES" "LOGBOOK")))
-;; Save clock data and state changes and notes in the LOGBOOK drawer
-(setq org-clock-into-drawer t)
 ;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration
 (setq org-clock-out-remove-zero-time-clocks t)
 ;; Clock out when moving task to a done state

File files/org-mode-config.el

   ;; The following lines are always needed.  Choose your own keys.
   :bind  (("C-c l" . org-store-link)
           ("<f12>" . org-agenda)
-          ("C-c C-x C-o" . org-clock-out))
+          ("C-c C-x C-o" . org-clock-out)
+          ("C-c C-x <C-i-key>" . org-clock-in))
   :config
   (progn
+    (defface my-org-bold
+      '((t (:weight bold :inherit font-lock-variable-name-face)))
+       "The face used to highlight pair overlays.")
+
+    (defface my-org-italic
+      '((t (:slant italic :inherit font-lock-variable-name-face)))
+       "The face used to highlight pair overlays.")
+
+    (defface my-org-code
+      '((t (:family "Consolas" :inherit font-lock-constant-face)))
+       "The face used to highlight pair overlays.")
+
     (bind-key "TAB" 'smart-tab org-mode-map)
     (bind-key "C-e" 'my-end-of-code-or-line org-mode-map)
     (bind-key "C-a" 'my-back-to-indentation-or-beginning org-mode-map)
     (bind-key "C-c C-x r" 'org-clock-remove-overlays org-mode-map)
+    ;; TODO lepsia mapa pre "toggle prikazy?"
+    (bind-key "C-c C-x L" 'org-toggle-link-display org-mode-map)
+
+    (defun my-org-open-at-point (&optional arg)
+      "Just like `org-open-at-point', but open link in this window."
+      (interactive "P")
+      (if (equal arg '(16))
+          (org-open-at-point arg)
+        (let ((current-prefix-argument nil))
+          (if arg
+              (org-open-at-point '(4))
+            (let ((org-link-frame-setup (acons 'file 'find-file org-link-frame-setup)))
+              (org-open-at-point '(4)))))))
+    (bind-key "C-c C-o" 'my-org-open-at-point org-mode-map)
+
+    (defun my-goto-current-clocked-task ()
+      (interactive)
+      (org-goto-marker-or-bmk org-clock-marker))
+    (bind-key "<f1> <f10>" 'my-goto-current-clocked-task)
 
     (require 'org-table)
     ;; org/orgtbl bindings
                               org-rmail
                               org-vm
                               org-wl
-                              org-w3m)))
+                              org-w3m
+                              org-drill)))
 
     ;; position the habit graph on the agenda to the right of the default
-    (setq org-habit-graph-column 50)
+    (setq org-habit-graph-column 81)
 
 ;;;;;;;;;;;;;;;;;;;;; CAPTURE
     (setq org-directory "~/org")
     ;; Capture templates for: TODO tasks, Notes, appointments, phone calls, and org-protocol
     (setq org-capture-templates
           (quote (("t" "todo" entry (file "~/org/refile.org")
-                   "* TODO %?\n%U\n%a\n" :clock-in t :clock-resume t)
+                   "* TODO %?\n%U\n%a\n" :clock-keep t)
                   ("s" "someday" entry (file "~/org/refile.org")
-                   "* SOMEDAY %?\n%U\n%a\n" :clock-in t :clock-resume t)
+                   "* SOMEDAY %?\n%U\n%a\n" :clock-keep t)
                   ("n" "note" entry (file "~/org/refile.org")
-                   "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
+                   "* %? :NOTE:\n%U\n%a\n" :clock-keep t)
                   ("j" "Journal" entry (file+datetree "~/org/diary.org")
-                   "* %?\n%U\n" :clock-in t :clock-resume t))))
+                   "* %?\n%U\n" :clock-keep t))))
 
     ;; Remove empty LOGBOOK drawers on clock out
     (defun bh/remove-empty-drawer-on-clock-out ()

File files/smartparens.el

   (sp-local-pair "*" "*" :unless '(sp-point-after-word-p sp-point-at-bol-p) :wrap "C-*" :skip-match 'sp--org-skip-asterisk)
   (sp-local-pair "_" "_" :unless '(sp-point-after-word-p) :wrap "C-_" :skip-match 'sp--org-skip-markup)
   (sp-local-pair "/" "/" :unless '(sp-point-after-word-p) :skip-match 'sp--org-skip-markup)
-  (sp-local-pair "=" "=" :unless '(sp-point-after-word-p) :skip-match 'sp--org-skip-code))
+  (sp-local-pair "~" "~" :unless '(sp-point-after-word-p) :skip-match 'sp--org-skip-code))
 
 (defun sp--org-skip-markup (ms mb me)
   (save-excursion
 
 ;;; lisp modes
 (sp-with-modes (append '(inferior-emacs-lisp-mode) sp--lisp-modes)
-  (sp-local-pair "(" nil :wrap "C-("))
+  (sp-local-pair "(" nil
+                 :wrap "C-("
+                 :pre-handlers '(my-add-space-before-sexp-insertion)
+                 :post-handlers '(my-add-space-after-sexp-insertion))
+  (sp-local-pair "`" nil
+                 :skip-match (lambda (ms mb me)
+                               (cond
+                                ((equal ms "'")
+                                 (or (sp--org-skip-markup ms mb me)
+                                     (not (sp-point-in-string-or-comment))))
+                                (t (not (sp-point-in-string-or-comment)))))))
 
+(defun my-add-space-after-sexp-insertion (id action _context)
+  (when (eq action 'insert)
+    (save-excursion
+      (forward-char (sp-get-pair id :cl-l))
+      (when (or (eq (char-syntax (following-char)) ?w)
+                (looking-at (sp--get-opening-regexp)))
+        (insert " ")))))
+
+(defun my-add-space-before-sexp-insertion (id action _context)
+  (when (eq action 'insert)
+    (save-excursion
+      (backward-char (length id))
+      (when (or (eq (char-syntax (preceding-char)) ?w)
+                (looking-at (sp--get-closing-regexp)))
+        (insert " ")))))
+
+;;; C++
 (sp-local-pair 'c++-mode "{" nil :post-handlers '((my-create-newline-and-enter-sexp "RET")))
 (defun my-create-newline-and-enter-sexp (&rest _ignored)
   "Open a new brace or bracket expression, with relevant newlines and indent. "
     (save-excursion
       (backward-char 1)
       (looking-back "\\sw\\|\\s_\\|\\s'"))))
-
-(sp-local-pair 'emacs-lisp-mode "(" nil
-               :pre-handlers '(my-add-space-before-sexp-insertion)
-               :post-handlers '(my-add-space-after-sexp-insertion))
-
-(defun my-add-space-after-sexp-insertion (id action _context)
-  (when (eq action 'insert)
-    (save-excursion
-      (forward-char (sp-get-pair id :cl-l))
-      (when (or (eq (char-syntax (following-char)) ?w)
-                (looking-at (sp--get-opening-regexp)))
-        (insert " ")))))
-
-(defun my-add-space-before-sexp-insertion (id action _context)
-  (when (eq action 'insert)
-    (save-excursion
-      (backward-char (length id))
-      (when (or (eq (char-syntax (preceding-char)) ?w)
-                (looking-at (sp--get-closing-regexp)))
-        (insert " ")))))
 (tooltip-mode -1)
 
 ;; maximize window at startup
-;; (defun maximize-frame ()
-;;   "Maximizes the active frame in Windows"
-;;   (interactive)
-;;   ;; Send a `WM_SYSCOMMAND' message to the active frame with the
-;;   ;; `SC_MAXIMIZE' parameter.
-;;   (when (eq system-type 'windows-nt)
-;;     (w32-send-sys-command 61488)))
-;; (add-hook 'window-setup-hook 'maximize-frame t)
+(defun maximize-frame ()
+  "Maximizes the active frame in Windows"
+  (interactive)
+  ;; Send a `WM_SYSCOMMAND' message to the active frame with the
+  ;; `SC_MAXIMIZE' parameter.
+  (when (eq system-type 'windows-nt)
+    (w32-send-sys-command 61488)))
+(add-hook 'window-setup-hook 'maximize-frame t)
 
 ;; add repos
 (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                          ("marmalade" . "http://marmalade-repo.org/packages/")
-                         ("melpa" . "http://melpa.milkbox.net/packages/")))
+                         ("melpa" . "http://melpa.milkbox.net/packages/")
+                         ("org" . "http://orgmode.org/elpa/")))
 (package-initialize)
 (load "~/.emacs.d/autoinstall")
 
 (load custom-file)
 
 ;; Reload theme -- hackish
-;; (load "~/.emacs.d/themes/my-tango-dark-theme")
+(load "~/.emacs.d/themes/my-tango-dark-theme")
 
 ;; autoopen files
 (find-file "~/.emacs.d/init.el")

File site-lisp/defuns-buffer.el

       (when (and (not (file-exists-p dir))
                  (y-or-n-p (format "Directory %s does not exist. Create it?" dir)))
         (make-directory dir t)))))
+
+(defun my-switch-to-scratch (buffer)
+  "Switch to a scratch buffer."
+  (interactive (list (car
+                      (split-string
+                       (ido-completing-read
+                        "Scratch buffer: "
+                        (->> (buffer-list)
+                          (-map 'buffer-name)
+                          (--filter (string-match-p "\\*scratch.*" it))
+                          (--map (concat it
+                                         " ["
+                                         (with-current-buffer (get-buffer-create it)
+                                           (symbol-name major-mode))
+                                         "]")))
+                        nil t) " "))))
+  (switch-to-buffer buffer))
+
+(defun my-fix-multibyte-encoding ()
+  "Fix the display of octal chars instead of decoded text."
+  (set-buffer-multibyte nil)
+  (set-buffer-multibyte t))

File site-lisp/defuns.el

   (interactive "p")
   (dotimes (i arg)
     (insert (format "%d. \n" (1+ i)))))
+
+(defun my-format-synonyms-from-wiki ()
+  (interactive)
+  (goto-char (point-min))
+  (search-forward "Synonyms[edit]")
+  (delete-region (line-beginning-position) (line-end-position))
+  (delete-char 1)
+  (while (< (point) (point-max))
+    (sp-down-sexp)
+    (let ((number (string-to-number (word-at-point))))
+      (sp-up-sexp)
+      (save-excursion
+        (let ((text (delete-and-extract-region (point) (line-end-position))))
+          (goto-line number)
+          (goto-char (line-end-position))
+          (insert " (syn:" text ")")))
+      (delete-region (line-beginning-position) (line-end-position))
+      (delete-char 1)))
+  (when (looking-at "$")
+    (delete-char 1)))
 * BUUUUUUGS
-
-** TODO <p>asd asd</p> + C-M-e v emacs-lisp-mode zmaze closing zavorku
-** TODO \cdot | \cata{\varphi} traspose v latechu prehodi cdot/cata a ne celu zavorku
-** TODO v H-p nefunguje prehadzovanie parov ak je point v symbole
-** TODO (after?) < v emacs lisp berie ako escape... bad!
+** DONE <p>asd asd</p> + C-M-e v emacs-lisp-mode zmaze closing zavorku
+   CLOSED: [2013-11-02 Sat 14:42]
+   - State "DONE"       from "TODO"       [2013-11-02 Sat 14:42]
+Neni to bug... len chybal <> par. Tento poziadavok by sa mal fixnut v novom parser systeme
+** DONE \cdot | \cata{\varphi} traspose v latechu prehodi cdot/cata a ne celu zavorku
+   CLOSED: [2013-11-02 Sat 15:31]
+   - State "DONE"       from "TODO"       [2013-11-02 Sat 15:31]
+** DONE v H-p nefunguje prehadzovanie parov ak je point v symbole
+   CLOSED: [2013-11-02 Sat 15:32]
+   - State "DONE"       from "TODO"       [2013-11-02 Sat 15:32]
+** DONE (after?) < v emacs lisp berie ako escape... bad!
+   CLOSED: [2013-11-02 Sat 15:33]
+   - State "DONE"       from "TODO"       [2013-11-02 Sat 15:33]
 ** TODO org-bloky brat ako komentare
 #+BEGIN:emacs-lisp-mode
 (sp-local-pair 'ruby-mode "if"< nil :skip-match 'foobar) ;; skoci sem, zle vyhodnocuje ""
 - [ ] manipulation
 - [ ] autopairing & autoskipping (needs rewrite)
 - [ ] wrapping (needs rewrite)
-** [ ] various minor modes for editing built on top of the infrastructure
+** various minor modes for editing built on top of the infrastructure [1/1]
 - [X] sp-paredit (smartparens-strict-mode)
 
 * TODO pridat :bind do sp-pair a sp-local-pair ktore automaticky nabinduje klavesu na "wrap thing" pre dany par... t.j. funkciu
 
 GENIUS!
 
-* TODO pridat aj :suffix nastavovac. Napr v haskellu. Defaultne priliepat symbol-prefix class?
+* DONE pridat aj :suffix nastavovac. Napr v haskellu. Defaultne priliepat symbol-prefix class?
+  CLOSED: [2013-11-02 Sat 15:44]
+  - State "DONE"       from "TODO"       [2013-11-02 Sat 15:44]
 
 * TODO some words in latex I want to add to \{this\}
 1. spocitat C-M-f az po prvy sexp
 ** TODO ignoruje normalne expressions. To je asi ziadane chovanie
 ale treba pridat prepinac ktory prepne ignorovanie tagou (nejaky prefixovy "sp-prefix" argument)
 
-** TODO niektore zarovnavacie pravidla su sux pre html (asi najlepsie bude neaplikovat ziadne) [33%]
-- [ ] slurp
-- [ ] barf
+** DONE niektore zarovnavacie pravidla su sux pre html (asi najlepsie bude neaplikovat ziadne) [100%]
+   CLOSED: [2013-11-02 Sat 15:55]
+   - State "DONE"       from "TODO"       [2013-11-02 Sat 15:55]
+- [X] slurp
+- [X] barf
 - [X] convolute
 
   <p>
 * TODO pridat moznost na tag-wrap ze za tag naskoci automaticky newline (uzitocne pre \begin{} \end{})
 * TODO pridat moznost menit "_" v matching tagoch. Uzitocne na zmeny environmentu/tagu v html
 * TODO add paredit-semicolon
-
 * TODO pridat funkciu "down to" ktora skoci do specifickeho typu bloku, ignorujuc ostatne.
 uzitocne v
 int| foo (parametre) {<jump here>
 "asdasd \" sdfsdf
 - fixnut v modoch kde niesu povolene multi-line retazce -> RET na \" to zmeni na "
 
-* TODO pridat moznost do `sp-autoinsert-if-followed-by-same' kde sa nasledujuci vyraz obali.
+* CANCELLED pridat moznost do `sp-autoinsert-if-followed-by-same' kde sa nasledujuci vyraz obali. :CANCELLED:
+  CLOSED: [2013-11-02 Sat 16:06]
+  - State "CANCELLED"  from "TODO"       [2013-11-02 Sat 16:06] \\
+    Toto je blbost
 * DONE join sexp
   CLOSED: [2013-03-28 Thu 02:06]
   - State "DONE"       from "TODO"       [2013-03-28 Thu 02:06]
            (>>= ,@(cdr forms))
          nil)
     `(,@(car forms))))
-* TODO resetovat (setq sp-recent-keys nil) ked sa pohne kurzor niekam mimo, toto napr zamedzi (\(|\)) ked chcem (\(|))
-
+* DONE resetovat (setq sp-recent-keys nil) ked sa pohne kurzor niekam mimo, toto napr zamedzi (\(|\)) ked chcem (\(|))
+  CLOSED: [2013-11-02 Sat 16:12]
+  - State "DONE"       from "TODO"       [2013-11-02 Sat 16:12]
 * TODO misc navigacia [50%]
 - (bla |bla) (foo foo) -> (bla bla) (|foo foo), t.j. C-M-e C-M-d ... kde to zapracovat?
 - [X] pridane do sp-beginning-of-sexp / sp-end-of-sexp
 - (bla |bla) (foo foo) -> (bla bla) (foo foo)| t.j. C-M-e C-M-f (H-2 H-p C-M-f)
 - [ ]
 
-* TODO make sp-show-pair-match-face inherit from the default show-paren-mode faces.
+* CANCELLED make sp-show-pair-match-face inherit from the default show-paren-mode faces. :CANCELLED:
+  CLOSED: [2013-11-02 Sat 16:14]
+  - State "CANCELLED"  from "TODO"       [2013-11-02 Sat 16:14] \\
+    Neda sa, show paren mode faces niesu na autoloade
 * TODO pridat convolute ktory ale ponecha sub-sexpy a len zameni hlavicky
 
 (let ((x t)                 (while something
   CLOSED: [2013-05-10 Fri 18:09]
   - State "DONE"       from "TODO"       [2013-05-10 Fri 18:09]
 * TODO poriadne refaktorovat skip-to-symbol, skip-to-delim, skip-to-string, integrovat stringy
-* TODO ignorovat chyby "no sexp found" a zobrat dalsiu.
+* CANCELLED ignorovat chyby "no sexp found" a zobrat dalsiu.      :CANCELLED:
+  CLOSED: [2013-11-02 Sat 16:17]
+  - State "CANCELLED"  from "TODO"       [2013-11-02 Sat 16:17] \\
+    can't reproduce
 Napriklad v C++
 
 cout |<< bla << bla
 
 hlasi chybu
 
-* TODO pridat \\{\\} par
+* DONE pridat \\{\\} par
+  CLOSED: [2013-11-02 Sat 16:18]
+  - State "DONE"       from "TODO"       [2013-11-02 Sat 16:18]
 ** DONE je tu bug...
 ked sa prida: (sp-local-pair sp--lisp-modes "\\\\{" "\\\\}" :when '(sp-in-string-p))
 
 * TODO pridat automaticky escape \ v stringoch. Takisto \[ by malo vyplut \\[ pokial sme v stringu. Celkovo cely escape by sa zislo prekopat
 * TODO steal rainbow-delimiters
 * TODO pridat navigaciu v pythone
-
 * DONE pridat narrow-to-sexp
   CLOSED: [2013-09-26 Thu 18:46]
   - State "DONE"       from "TODO"       [2013-09-26 Thu 18:46]
 * TODO add option to select entire html tag if point is inside the tag (this should be made general enough to work for all tags)
 staci aby to hladalo "is-inside-tag-p" na riadku kde je kurzor. Nepredpokladam ze budu multi-line tagy... aj ked html mozno mozu byt. => spravit to konfigurovatelne
 
-* TODO add :trigger option to pairs... slowly work on unification of tags and pairs.
+* DONE add :trigger option to pairs...
+  CLOSED: [2013-11-02 Sat 16:32]
+  - State "DONE"       from "TODO"       [2013-11-02 Sat 16:32]
 * TODO refactor `sp--get-pair-list-wrap` and friends to take some keywords/predicates to select the pairs for the list
-* TODO add `navigate` action keyword
+* CANCELLED add `navigate` action keyword                         :CANCELLED:
+  CLOSED: [2013-11-02 Sat 16:36]
+  - State "CANCELLED"  from "TODO"       [2013-11-02 Sat 16:36] \\
+    uz mame skip-match
 * TODO add `hilight` action keyword.
 * TODO point po barf moze ostat mimo sexp
 
 
 po barfe je enclosing exp `foo`
 
-* TODO hybrid sexp na zaciatku alebo nakonci bufferu nefungje
+* DONE hybrid sexp na zaciatku alebo nakonci bufferu nefungje
+  CLOSED: [2013-11-02 Sat 16:43]
+  - State "DONE"       from "TODO"       [2013-11-02 Sat 16:43]
 
 * TODO typing in front of string-like sexp is very slow!
 * TODO |"foo" ked sa napise \" tak to neskipne dovnutra ale vlozi dalsi par (a pritom hodi error)
-
+  toto obecne nefunguje pre vsetky "stringlike" pary
 * TODO Pridate nejake jednoduche UI na vkladanie znakov po vlozeni paru (napr po [] automaticky vlozit " | ")
 
+
 * edwm ========================
 
-
 * TODO Z master arey C-u transpose si vypyta okno v stacku.
 * TODO Urobit "define-layout" makro kde sa definuju vsetky potrebne predikaty/funkcie