summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJaromil <jaromil@dyne.org>2013-08-27 11:31:09 (GMT)
committer Jaromil <jaromil@dyne.org>2013-08-27 11:31:09 (GMT)
commit995db7823a3418f973e4616a6c76c8675a5fe6cd (patch)
treeea0d49d25272d95e88059496df37564957dd749c
parent6b11a84cebb9520b6f0ca1572ff3994654536a04 (diff)
enhancements for gnu desktop usage
-rw-r--r--elisp/autorg.el49
-rwxr-xr-xelisp/compile_on_debian.sh12
-rw-r--r--elisp/osx.el8
3 files changed, 62 insertions, 7 deletions
diff --git a/elisp/autorg.el b/elisp/autorg.el
index b86c30c..e975473 100644
--- a/elisp/autorg.el
+++ b/elisp/autorg.el
@@ -138,10 +138,49 @@ org-crypt org-remember org-agenda)))
;; faster file open
(global-set-key (kbd "C-f") 'find-file)
+
+;; sloppy goto line with both command and alt
(global-set-key [(meta g)] `goto-line)
+(global-set-key (kbd "s-g") `goto-line)
+
+;;;;;;;;;;;;;;;
+; switch buffer
+(global-set-key (kbd "s-=") 'ido-switch-buffer)
+(global-set-key (kbd "s-`") 'next-multiframe-window)
+
+
+;;;;;;;;;;;
+; scrolling
+(global-set-key (kbd "s-<up>") 'backward-paragraph)
+(global-set-key (kbd "s-<down>") 'forward-paragraph)
+(global-set-key (kbd "M-<up>") 'backward-page)
+(global-set-key (kbd "M-<down>") 'forward-page)
+
+;;;;;;;;;;;;;
+; cut & paste
+(global-set-key (kbd "s-c") 'kill-ring-save)
+(global-set-key (kbd "s-v") 'yank)
+(global-set-key (kbd "s-y") 'yank-pop)
+; sloppy hyper - alt swap
+
+
+; Compat with sloppy and swap of hyper - alt
+
+(global-set-key (kbd "s-w") 'kill-ring-save)
+
+;;;;;;;;;;;;
+; completion
+
+; completion
+(global-set-key (kbd "M-/") 'complete-symbol)
+(global-set-key (kbd "s-/") 'complete-symbol)
+(global-set-key (kbd "M-\\") 'complete-symbol)
+(global-set-key (kbd "s-\\") 'complete-symbol)
+
+
(defun switch-to-other-buffer () (interactive) (switch-to-buffer (other-buffer)))
(global-set-key [(meta control ?l)] `switch-to-other-buffer)
- ; (global-set-key [(control tab)] `other-window)
+ ; (global-set-key [(control tab)] `other-window)
(global-set-key [(meta O) ?H] 'beginning-of-line)
(global-set-key [home] 'beginning-of-line)
(global-set-key [(meta O) ?F] 'end-of-line)
@@ -149,7 +188,6 @@ org-crypt org-remember org-agenda)))
(setq next-line-add-newlines nil)
; C-c c to either comment out a region or uncomment it depending on context.
(global-set-key (kbd "C-c c") 'comment-dwim)
-; Shift-arrows a la windows...
@@ -287,10 +325,9 @@ org-crypt org-remember org-agenda)))
; (color-theme-dark-laptop)
;; set our favourite: Anonymous!
-(set-face-font
-'default "-*-Anonymous-normal-normal-normal-*-13-*-*-*-*-*-*")
-; another lovely typeface for coding is Inconsolata
-; 'default "-*-Inconsolata-normal-normal-normal-*-18-*-*-*-*-*-*")
+;(set-face-font
+;'default "-*-Terminus-normal-normal-normal-*-13-*-*-*-*-*-*")
+
; transparency (thanks dreamer!)
(set-frame-parameter (selected-frame) 'alpha '(95 50))
diff --git a/elisp/compile_on_debian.sh b/elisp/compile_on_debian.sh
new file mode 100755
index 0000000..20f9412
--- /dev/null
+++ b/elisp/compile_on_debian.sh
@@ -0,0 +1,12 @@
+#!/bin/zsh
+
+files=()
+for i in `find . -name '*.el'`; do
+# grep 'color-theme' $i > /dev/null
+# { test $? = 0 } && { continue }
+ files+=($i)
+done
+
+# EMACSLOADPATH=/usr/share/emacs/site-lisp:/usr/share/emacs/23.4/lisp/:/home/jrml/devel/autorg/elisp/:/home/jrml/devel/autorg/elisp/org-mode/lisp \
+EMACSLOADPATH=/usr/share/emacs/site-lisp:/usr/share/emacs/23.4/lisp/:/home/jrml/devel/autorg/elisp/:/home/jrml/devel/autorg/elisp/org-mode/lisp \
+ emacs --debug-init --batch -f batch-byte-compile $files
diff --git a/elisp/osx.el b/elisp/osx.el
index 465f795..8026603 100644
--- a/elisp/osx.el
+++ b/elisp/osx.el
@@ -70,7 +70,7 @@
(global-set-key [(hyper w)] 'kill-ring-save)
(global-set-key (kbd "C-w") 'kill-region)
-(global-set-key [(hyper y)] 'yank)
+(global-set-key [(hyper y)] 'yank-pop)
(global-set-key [(hyper /)] 'complete-symbol)
(global-set-key [(hyper \\)] 'complete-symbol)
@@ -93,3 +93,9 @@
; print
(global-set-key [(hyper p)] 'ns-print-buffer)
+;; set our favourite: Anonymous!
+(set-face-font
+'default "-*-Anonymous-normal-normal-normal-*-13-*-*-*-*-*-*")
+; another lovely typeface for coding is Inconsolata
+; 'default "-*-Inconsolata-normal-normal-normal-*-18-*-*-*-*-*-*")
+