sfadfas

imoryc/im-helpers.el

@@ -172,3 +172,15 @@ Toggles between: “all lower”, “Init Caps”, “ALL CAPS”."
      ((string= "all caps" (get this-command 'state))
       (downcase-region p1 p2) (put this-command 'state "all lower")) )
     ) )
+
+(defun find-org-markers (regexp)
+    (occur regexp)
+    (pop-to-buffer "*Occur*"))
+
+(defun find-top-org-headers ()
+  (interactive)
+  (find-org-markers "^\\*[^*]"))
+
+(defun find-all-org-headers ()
+  (interactive)
+  (find-org-markers "^\\*+"))

imoryc/im-keys.el

@@ -11,8 +11,8 @@
 
 (bind "<f8>" 'deft)
 (bind "<f5>" 'im/ant)
-(bind "M-]" 'forward-paragraph)
-(bind "M-[" 'backward-paragraph)
+;;(bind "C-]" 'forward-paragraph)
+;;(bind "C-\[" 'backward-paragraph)
 (bind "C-x C-r" 'ido-recentf-open)
 (bind "C-c C-d" 'im/diff-current-buffer-with-disk)
 (bind "C-q" 'jw-run-test-or-spec-file)
@@ -54,15 +54,6 @@
 (bind "M-m" iy-go-to-char)
 (bind "<f12>" 'persp-switch)
 (bind "C-x f" 'textmate-goto-file)
-
-;; (global-unset-key (kbd "C-n"))
-;; (global-unset-key (kbd "C-p"))
-;; (bind "M-i" 'previous-line) ; was tab-to-tab-stop
-;; (bind "M-j" 'backward-char) ; was indent-new-comment-line
-;; (bind "M-k" 'next-line) ; was kill-sentence
-;; (bind "M-l" 'forward-char)  ; was downcase-word
-;; (bind "M-SPC" 'set-mark-command) ; was just-one-space
-
 (bind "M-u" 'toggle-letter-case)
 
 (keyboard-translate ?\C-h ?\C-?)

init.el

@@ -64,10 +64,6 @@
       (package-install p))))
 
 (when set-directories (message "Setting directories..")
-      ;; (if on-windows
-      ;;     (progn
-      ;;       (setq dotfiles-dir "C:/Users/Ignacy/.emacs.d"))
-      ;;   (setq dotfiles-dir "~/.emacs.d"))
       (setq dotfiles-dir "~/.emacs.d")
       (setq imoryc-dir (concat dotfiles-dir "/imoryc"))
       (add-to-list 'load-path imoryc-dir))
@@ -94,7 +90,7 @@
 
       (require 'autopair)
       (autopair-global-mode)
-
+      
       (push '(font-backend xft x) default-frame-alist)
 
       (require 'find-file-in-tags)
@@ -304,11 +300,12 @@
 (when window-system
   (scroll-bar-mode -1))
 
-(setq cua-enable-cua-keys nil)
-(cua-mode)
-(setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
+;; (setq cua-enable-cua-keys nil)
+;; (cua-mode)
+;; (setq cua-auto-tabify-rectangles nil) ;; Don't tabify after rectangle commands
+;; (setq cua-keep-region-after-copy t) ;; Standard Windows behaviour
+
 (transient-mark-mode 1) ;; No region when it is not highlighted
-(setq cua-keep-region-after-copy t) ;; Standard Windows behaviour
 (delete-selection-mode t)
 (set-default 'cursor-type 'box)