commit 82e13902ab643dca8daaf5a973ab670a14a205a5 parent afa15a395257965a48615e0e6784ea3d8d06f635 Author: Anders Damsgaard <anders.damsgaard@geo.au.dk> Date: Wed, 20 May 2015 12:57:18 +0200 let /etc/fstab mount sshfs Diffstat:
| D | .emacs.d/init.el | | | 418 | ------------------------------------------------------------------------------- |
| M | bin/iddqd-ssh | | | 4 | ++-- |
2 files changed, 2 insertions(+), 420 deletions(-)
diff --git a/.emacs.d/init.el b/.emacs.d/init.el @@ -1,418 +0,0 @@ -(require 'cl) ;common lisp goodies, loop - -(add-to-list 'load-path "~/.emacs.d/el-get/el-get") - -(unless (require 'el-get nil t) - (url-retrieve - "https://github.com/dimitri/el-get/raw/master/el-get-install.el" - (lambda (s) - (end-of-buffer) - (eval-print-last-sexp)))) - -;; now either el-get is `require'd already, or have been `load'ed by the -;; el-get installer. - -;; add MELPA -(when (>= emacs-major-version 24) - (require 'package) - (package-initialize) - (add-to-list 'package-archives '("melpa" . - "http://melpa.milkbox.net/packages/") t)) - -;; add some necessary paths when emacs isn't started from shell -(setq exec-path (append exec-path '("$HOME/bin" "/usr/local/bin"))) - -(setq evil-want-C-u-scroll t) ;; enable half-screen page up using C-u - -;; add julia mode from github repo -;(add-to-list 'load-path "~/code/julia/contrib") -;(require 'julia-mode) - -;; now set our own packages -(setq - my:el-get-packages - '(el-get ; el-get is self-hosting - evil ; extensible vi layer - evil-leader ; add <leader> shortcuts - evil-surround ; like Tim Pope's surround plugin - helm ; Emacs incremental and narrowing framework - popup ; visual popup interface library - ;doxymacs ; doxygen integration - ;auctex ; advanced LaTeX mode - reftex ; BiBTeX references - powerline ; powerline for emacs - rainbow-delimiters ; color nested parantheses - magit ; emacs mode for git - markdown-mode ; emacs mode for markdown - org-mode ; emacs mode for org - python-mode ; ipython interpreter with C-c ! - flycheck ; on the fly syntax check - auto-complete ; complete as you type with overlays - auto-complete-c-headers; complete as you type with overlays - zencoding-mode ; http://www.emacswiki.org/emacs/ZenCoding - window-number ; choose window with number using C-x o - fill-column-indicator ; indicate column 80 - color-theme-solarized ; check out color-theme-solarized - color-theme)) ; nice looking emacs - -(setq my:el-get-packages - (append - my:el-get-packages - (loop for src in el-get-sources collect (el-get-source-name src)))) - -;; install new packages and init already installed packages -(el-get 'sync my:el-get-packages) - -;; interactively do things -(require 'ido) -(ido-mode t) - -;; turn on auto-complete -(require 'auto-complete-config) -(ac-config-default) -(global-auto-complete-mode t) - -;; text lines limit to 80 characters -(setq fill-column 80) -(add-hook 'text-mode-hook 'turn-on-auto-fill) -(setq-default fci-rule-column 80) -(setq fci-rule-width 1) ;; width in px -(setq fci-rule-color "#073642") ;; color -(define-globalized-minor-mode - global-fci-mode fci-mode (lambda() (fci-mode 1))) -;(global-fci-mode t) - -;; recent files with C-x C-f -(require 'recentf) -(recentf-mode 1) -(setq recentf-max-menu-items 25) -(global-set-key "\C-x\ \C-r" 'recentf-open-files) - -;; color theme -(load-theme 'solarized-dark t) -(setq solarized-termcolor 256) - -;; rainbow delimiters in programming modes -(add-hook 'prog-mode-hook 'rainbow-delimiters-mode) - -;; customized Vim-like behavior -(require 'evil) -(evil-mode 1) -(global-evil-leader-mode) ;; enable evil-leader in every evil buffer -(evil-leader/set-leader "<SPC>") -(evil-leader/set-key - "e" 'find-file - "b" 'switch-to-buffer - "k" 'kill-buffer - "s" 'flyspell-mode - "S" 'ispell - "n" 'linum-mode - ;"w" 'whitespace-mode - ;"m" 'mu4e - "p" 'org-latex-export-to-pdf - "P" 'org-beamer-export-to-pdf - "c" 'compile - "g" 'magit-commit - ;"w" 'color-theme-solarized-light - ;"d" 'color-theme-solarized-dark - "w" 'evil-write - "q" 'evil-quit - "i" (lambda () (interactive)(find-file "~/.emacs.d/init.el")) - "t" (lambda () (interactive)(find-file "~/doc/todo.org"))) - -;; equivalent to vim scrolloff -(setq scroll-margin 3) -;(setq scroll-step 1) -(setq scroll-conservatively 10000) - -;; install with MELPA: -;; M-x package-refresh-contents -;; M-x package-install RET evil-tabs -;(global-evil-tabs-mode t) - -(require 'powerline) -(powerline-default-theme) -;(powerline-vim-theme) -(setq powerline-color1 "#073642") -(setq powerline-color2 "#002b36") -(set-face-attribute 'mode-line nil - :foreground "#fdf6e3" - :background "#2aa198" - :inverse-video nil - :box nil) -(set-face-attribute 'mode-line-inactive nil - :inverse-video nil - :box nil) - -;; visual settings -(setq inhibit-splash-screen t) ; no splash screen, thanks -(line-number-mode 1) ; have line numbers and -(column-number-mode 1) ; column numbers in the mode line - -(tool-bar-mode -1) ; no tool bar with icons -(scroll-bar-mode -1) ; no scroll bars -(unless (string-match "apple-darwin" system-configuration) - ;; on mac, there's always a menu bar drown, don't have it empty - (menu-bar-mode -1)) - -;; reduce colors in whitespace-mode -(setq whitespace-style (quote (spaces tabs newline space-mark tab-mark newline-mark))) - - -(global-hl-line-mode) ; highlight current line -;(global-linum-mode 1) ; add line numbers on the left -(global-linum-mode) ; add line numbers on the left - -;; add org shortcuts -(define-key global-map "\C-cl" 'org-store-link) -(define-key global-map "\C-ca" 'org-agenda) ; open agenda -(setq org-log-done t) -(setq org-agenda-files (list "~/owncloud/todo.org" - ;"another file" - )) - -;; control which languages are enabled for execution in org-mode with C-c C-c -;; see http://orgmode.org/org.html#Languages -(require 'ob-C) -(require 'ob-gnuplot) -(require 'ob-octave) -(require 'ob-latex) -(require 'ob-python) -(require 'ob-sh) -;(require 'ob-julia) - -;; org export modes -(require 'ox-latex) -(require 'ox-beamer) -(require 'ox-odt) -(require 'ox-man) -(require 'ox-ascii) -(require 'ox-md) -(require 'ox-icalendar) - -;; LaTeX templates, referenced with #+LaTeX_class: classname -(add-to-list 'org-latex-classes - '("beamer" - "\\documentclass\[presentation\]\{beamer\}" - ("\\section\{%s\}" . "\\section*\{%s\}") - ("\\subsection\{%s\}" . "\\subsection*\{%s\}") - ("\\subsubsection\{%s\}" . "\\subsubsection*\{%s\}"))) - -;; reftex for BiBTeX references -;; Create label with C-c (, reference label with C-c ) -;; Reference citation with C-c [ t (for citet) or C-c [ p (for citep) -;(setq reftex-plug-into AUCTeX t) -(setq reftex-default-bibliography - '("$HOME/owncloud/articles/adc-articles/BIBnew.bib")) -(add-hook 'LaTeX-mode-hook 'turn-on-reftex) ; with AUCTeX LaTeX mode -(add-hook 'latex-mode-hook 'turn-on-reftex) ; with Emacs latex mode -(add-hook 'org-mode-hook 'turn-on-reftex) ; with Org mode -(setq reftex-cite-format 'natbib) - -;; automatic LaTeX make, sometimes causes problems with references -;(setq org-latex-pdf-process (list "latexmk -pdf -bibtex %f")) - -;; explicit call -(setq org-latex-pdf-process - '("pdflatex -interaction nonstopmode -output-directory %o %f" - "bibtex %b" - "pdflatex -interaction nonstopmode -output-directory %o %f" - "pdflatex -interaction nonstopmode -output-directory %o %f")) - -;; render special characters using UTF-8 character set -;; Toggle with C-c C-x \ -(setq org-pretty-entities t) - -;; avoid compiz manager rendering bugs -(add-to-list 'default-frame-alist '(alpha . 100)) - -;; copy/paste with C-c and C-v and C-x, check out C-RET too -(cua-mode) - -;; under mac, have Command as Meta and keep Option for localized input -(when (string-match "apple-darwin" system-configuration) - (setq mac-allow-anti-aliasing t) - (setq mac-command-modifier 'meta) - (setq mac-option-modifier 'none)) - -;; Use the clipboard, pretty please, so that copy/paste "works" -(setq x-select-enable-clipboard t) - -; Navigate windows -(global-set-key (kbd "C-x h") 'windmove-left) -(global-set-key (kbd "C-x j") 'windmove-down) -(global-set-key (kbd "C-x k") 'windmove-up) -(global-set-key (kbd "C-x l") 'windmove-right) -(global-set-key (kbd "C-x C-x") 'other-window) -(require 'window-number) -(window-number-mode 1) -(global-set-key (kbd "C-x o") 'window-number-switch) -(setq windmove-wrap-around t) - -; winner-mode provides C-<left> to get back to previous window layout -(winner-mode 1) - -;; whenever an external process changes a file underneath emacs, and there -;; was no unsaved changes in the corresponding buffer, just revert its -;; content to reflect what's on-disk. -(global-auto-revert-mode 1) - -;; Syntax rules -(setq-default indent-tabs-mode nil) -(setq-default tab-width 4) -(setq c-default-style "linux" c-basic-offset 4) - -(add-hook 'julia-mode-hook - (lambda () - (setq default-tab-width 4) - (setq julia-basic-offset 4))) - -;; Setup modes for files -(setq auto-mode-alist - (append - '(("\\.c" . c-mode) - ("\\.cpp" . c-mode) - ("\\.h" . c-mode) - ("\\.cuh" . cuda-mode) - ("\\.cu" . cuda-mode) - ("\\.m" . matlab-mode)) - auto-mode-alist) - ) - -;; y or n instead of yes or no -(defalias 'yes-or-no-p 'y-or-n-p) - -;; auto-insert/close bracket pairs -(electric-pair-mode 1) - -;; mail client setup -;(require 'mu4e) -(require 'smtpmail) - -;; main account -(setq mu4e-maildir (expand-file-name "~/Mail")) -(setq mu4e-sent-folder "/riseup/Sent Items" - mu4e-drafts-folder "/riseup/Drafts" - mu4e-trash-folder "/riseup/Trash" - user-mail-address "andersd@riseup.net" - message-signature=file "~/.signature" - smtpmail-default-smtp-server "mail.riseup.net" - smtpmail-local-domain "riseup.net" - smtpmail-smtp-server "mail.riseup.net" - ;smtpmail-stream-type starttls - smtpmail-smtp-service 587) - -(defvar my-mu4e-account-alist - '(("riseup" - (mu4e-sent-folder "/riseup/Sent Items") - (mu4e-drafts-folder "/riseup/Drafts") - (mu4e-trash-folder "/riseup/Trash") - (user-mail-address "andersd@riseup.net") - (message-signature-file "~/.signature") - (smtpmail-default-smtp-server "mail.riseup.net") - (smtpmail-local-domain "riseup.net") - (smtpmail-smtp-server "mail.riseup.net") - ;(smtpmail-stream-type starttls) - (smtpmail-smtp-service 587)) - ("geomail" - (mu4e-sent-folder "/geomail/Sent Items") - (mu4e-drafts-folder "/geomail/Drafts") - (mu4e-trash-folder "/geomail/Trash") - (user-mail-address "anders.damsgaard@geo.au.dk") - (message-signature-file "~/.signature") - (smtpmail-default-smtp-server "asmtp.au.dk") - (smtpmail-local-domain "au.dk") - (smtpmail-smtp-server "asmtp.au.dk") - ;(smtpmail-stream-type starttls) - (smtpmail-smtp-service 587)))) - -;; don't save message to Sent Messages, GMail/IMAP will take care of this -;(setq mu4e-sent-messages-behavior 'delete) - -;; setup some handy shortcuts -(setq mu4e-maildir-shortcuts - '(("/riseup/INBOX" . ?i) - ("/geomail/INBOX" . ?g) - ("/geomail/archive" . ?a) - ("/riseup/Sent Items" . ?s) - ("/riseup/Trash" . ?t))) - -;; allow for updating mail using 'U' in the main view: -(setq mu4e-get-mail-command "offlineimap") - -; Set the account for composing a message -(defun my-mu4e-set-account () - "Set the account for composing a message." - (let* ((account - (if mu4e-compose-parent-message - (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir))) - (string-match "/\\(.*?\\)/" maildir) - (match-string 1 maildir)) - (completing-read (format "Compose with account: (%s) " - (mapconcat #'(lambda (var) (car var)) my-mu4e-account-alist "/")) - (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist) - nil t nil nil (caar my-mu4e-account-alist)))) - (account-vars (cdr (assoc account my-mu4e-account-alist)))) - (if account-vars - (mapc #'(lambda (var) - (set (car var) (cadr var))) - account-vars) - (error "No email account found")))) -(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account) - -;; enable inline images -(setq mu4e-view-show-images t) - -;; use imagemagick, if available -(when (fboundp 'imagemagick-register-types) - (imagemagick-register-types)) -(setq mu4e-view-prefer-html t) -(setq mu4e-html2text-command "html2text -utf8 -width 72") ; debian pkg html2text - -;; update interval -(setq - mu4e-get-mail-command "offlineimap" ;; or fetchmail, or ... - mu4e-update-interval 300) ;; update every 5 minutes - - -;; manage mu4e attachments with dired. Start dired with M-x dired -;; Find file and attach with C-c Return C-a -(require 'gnus-dired) -;; make the `gnus-dired-mail-buffers' function also work on -;; message-mode derived modes, such as mu4e-compose-mode -(defun gnus-dired-mail-buffers () - "Return a list of active message buffers." - (let (buffers) - (save-current-buffer - (dolist (buffer (buffer-list t)) - (set-buffer buffer) - (when (and (derived-mode-p 'message-mode) - (null message-sent-message-via)) - (push (buffer-name buffer) buffers)))) - (nreverse buffers))) -(setq gnus-dired-mail-mode 'mu4e-user-agent) -(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) - -;; font config -(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 ("1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365" default))) - ;'(org-file-apps (quote ((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . "zathura %s")))) - '(send-mail-function (quote smtpmail-send-it))) -(custom-set-faces - ;'(default ((t (:inherit nil :stipple nil :background "#002b36" :foreground "#839496" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 128 :width normal :foundry "unknown" :family "termsyn"))))) - '(default ((t (:inherit nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 86 :width normal :foundry "unknown" :family "PragmataPro"))))) -;; choose your own fonts, in a system dependant way -(if (string-match "apple-darwin" system-configuration) - (set-face-font 'default "Monaco-11")) ; os x - -;; auto-indent with C-j. If auto-indent also is desired for return, use: -;(define-key global-map (kbd "RET") 'newline-and-indent) -(define-key global-map (kbd "RET") 'reindent-then-newline-and-indent) -(put 'dired-find-alternate-file 'disabled nil) - -;; do not apply background color in terminal - diff --git a/bin/iddqd-ssh b/bin/iddqd-ssh @@ -4,12 +4,12 @@ if [[ "$(ip addr | grep 10.17.8)" ]]; then echo "On geo lan. Mounting sshfs and connecting directly..." #sshfs-iddqd.sh - sshfs-iddqd-fix.sh + #sshfs-iddqd-fix.sh ssh adc@iddqd.nfit.au.dk -t 'bin/tmux-dev.sh' elif [[ "$(ip addr | grep 10.17.2)" ]]; then echo "On geo VPN. Mounting sshfs and connecting directly..." #sshfs-iddqd.sh - sshfs-iddqd-fix.sh + #sshfs-iddqd-fix.sh ssh adc@iddqd.nfit.au.dk -t 'bin/tmux-dev.sh' else echo "Outside geo lan, connecting through fresh-horse..."