colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

split uplist region commands, add site-lisp to load dirs.

Browse Source
This commit is contained in:
Ivan Malison 2014-11-25 08:27:11 -08:00
parent ab21e7bc44
commit fa127b2ed2
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -21,4 +21,5 @@ session.*
var var
skewer-cache skewer-cache
.org-id-locations .org-id-locations
jabber-avatar-cache jabber-avatar-cache
this-machine.el

18
init.el
View File

@ -131,8 +131,13 @@
;; functions ;; functions
;; ============================================================================= ;; =============================================================================
(defun up-list-region () (interactive) (defun up-list-region ()
(up-list) (set-mark-command nil) (backward-sexp)) (interactive)
(up-list) (set-mark-command nil) (backward-sexp))
(defun up-list-back ()
(interactive)
(up-list) (backward-sexp))
(defun unfill-paragraph (&optional region) (defun unfill-paragraph (&optional region)
"Takes a multi-line paragraph and makes it into a single line of text." "Takes a multi-line paragraph and makes it into a single line of text."
@ -283,7 +288,10 @@ buffer is not visiting a file."
(use-package load-dir (use-package load-dir
:ensure t :ensure t
:config :config
(progn (add-to-list 'load-dirs "~/.emacs.d/load.d"))) (progn
(add-to-list 'load-dirs "~/.emacs.d/load.d")
(defvar site-lisp "/usr/share/emacs24/site-lisp/")
(when (file-exists-p site-lisp) (add-to-list 'load-dirs site-lisp))))
(use-package tramp (use-package tramp
:commands tramp :commands tramp
@ -448,6 +456,7 @@ buffer is not visiting a file."
:ensure t :ensure t
:commands (org-mode org org-mobile-push org-mobile-pull org-agenda) :commands (org-mode org org-mobile-push org-mobile-pull org-agenda)
:mode ("\\.org\\'" . org-mode) :mode ("\\.org\\'" . org-mode)
:bind ("C-c a" . org-agenda)
:config :config
(progn (progn
(let ((this-week-high-priority (let ((this-week-high-priority
@ -725,7 +734,8 @@ buffer is not visiting a file."
(bind-key "C-c C-v" 'find-variable) (bind-key "C-c C-v" 'find-variable)
(define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun) (define-key lisp-mode-shared-map (kbd "C-c C-c") 'eval-defun)
(define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace) (define-key lisp-mode-shared-map (kbd "C-c C-r") 'eval-and-replace)
(define-key lisp-mode-shared-map (kbd "C-c o") 'up-list-region) (define-key lisp-mode-shared-map (kbd "C-c o s") 'up-list-region)
(define-key lisp-mode-shared-map (kbd "C-c o o") 'up-list-back)
;; ============================================================================= ;; =============================================================================
;; Python ;; Python