78 lines
2.8 KiB
Plaintext
78 lines
2.8 KiB
Plaintext
|
;; load emacs 24's package system. Add MELPA repository.
|
||
|
|
|
||
|
|
;; Added by Package.el. This must come before configurations of
|
||
|
|
;; installed packages. Don't delete this line. If you don't want it,
|
||
|
|
;; just comment it out by adding a semicolon to the start of the line.
|
||
|
|
;; You may delete these explanatory comments.
|
||
|
|
(package-initialize)
|
||
|
|
|
||
|
|
(when (>= emacs-major-version 24)
|
||
|
|
(require 'package)
|
||
|
|
(add-to-list
|
||
|
|
'package-archives
|
||
|
|
;; '("melpa" . "http://stable.melpa.org/packages/") ; many packages won't show if using stable
|
||
|
|
'("melpa" . "http://melpa.milkbox.net/packages/")
|
||
|
|
'("elpy" . "http://jorgenschaefer.github.io/packages/")
|
||
|
|
))
|
||
|
|
(custom-set-variables
|
||
|
|
;; custom-set-variables was added by Custom.
|
||
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||
|
|
;; Your init file should contain only one such instance.
|
||
|
|
;; If there is more than one, they won't work right.
|
||
|
|
'(custom-safe-themes
|
||
|
|
(quote
|
||
|
|
("66881e95c0eda61d34aa7f08ebacf03319d37fe202d68ecf6a1dbfd49d664bc3" default)))
|
||
|
|
'(inhibit-startup-screen t)
|
||
|
|
'(package-selected-packages (quote (elpy forest-blue-theme)))
|
||
|
|
'(pyvenv-activate "~/.virtualenv/default"))
|
||
|
|
|
||
|
|
;; https://github.com/Boruch-Baum
|
||
|
|
(defun my-copy-to-xclipboard(arg)
|
||
|
|
(interactive "P")
|
||
|
|
(cond
|
||
|
|
((not (use-region-p))
|
||
|
|
(message "Nothing to yank to X-clipboard"))
|
||
|
|
((and (not (display-graphic-p))
|
||
|
|
(/= 0 (shell-command-on-region
|
||
|
|
(region-beginning) (region-end) "xsel -i -b")))
|
||
|
|
(error "Is program `xsel' installed?"))
|
||
|
|
(t
|
||
|
|
(when (display-graphic-p)
|
||
|
|
(call-interactively 'clipboard-kill-ring-save))
|
||
|
|
(message "Yanked region to X-clipboard")
|
||
|
|
(when arg
|
||
|
|
(kill-region (region-beginning) (region-end)))
|
||
|
|
(deactivate-mark))))
|
||
|
|
|
||
|
|
(defun my-cut-to-xclipboard()
|
||
|
|
(interactive)
|
||
|
|
(my-copy-to-xclipboard t))
|
||
|
|
|
||
|
|
(defun my-paste-from-xclipboard()
|
||
|
|
"Uses shell command `xsel -o' to paste from x-clipboard. With
|
||
|
|
one prefix arg, pastes from X-PRIMARY, and with two prefix args,
|
||
|
|
pastes from X-SECONDARY."
|
||
|
|
(interactive)
|
||
|
|
(if (display-graphic-p)
|
||
|
|
(clipboard-yank)
|
||
|
|
(let*
|
||
|
|
((opt (prefix-numeric-value current-prefix-arg))
|
||
|
|
(opt (cond
|
||
|
|
((= 1 opt) "b")
|
||
|
|
((= 4 opt) "p")
|
||
|
|
((= 16 opt) "s"))))
|
||
|
|
(insert (shell-command-to-string (concat "xsel -o -" opt))))))
|
||
|
|
|
||
|
|
(global-set-key (kbd "C-c C-w") 'my-cut-to-xclipboard)
|
||
|
|
(global-set-key (kbd "C-c M-w") 'my-copy-to-xclipboard)
|
||
|
|
(global-set-key (kbd "C-c C-y") 'my-paste-from-xclipboard)
|
||
|
|
|
||
|
|
(load-theme 'forest-blue t)
|
||
|
|
(elpy-enable)
|
||
|
|
(custom-set-faces
|
||
|
|
;; custom-set-faces was added by Custom.
|
||
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||
|
|
;; Your init file should contain only one such instance.
|
||
|
|
;; If there is more than one, they won't work right.
|
||
|
|
)
|