Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

sunrise + a bunch of term-mode stuff

  • Loading branch information...
commit 32406c8af6aeae472fba30d88ef3f209662d49bc 1 parent 589849d
@tavisrudd authored
Showing with 77 additions and 4 deletions.
  1. +54 −3 dss-init-el-get.el
  2. +21 −0 dss-sunrise.el
  3. +2 −1  init.el
View
57 dss-init-el-get.el
@@ -18,6 +18,49 @@
el-get-generate-autoloads t
el-get-sources
'(
+ ;; (:name yasnippet
+ ;; :website "https://github.com/capitaomorte/yasnippet.git"
+ ;; :description "YASnippet is a template system for Emacs."
+ ;; :type github
+ ;; :pkgname "capitaomorte/yasnippet"
+ ;; :features "yasnippet"
+ ;; :compile "yasnippet.el")
+ (:name yasnippet
+ :website "http://code.google.com/p/yasnippet/"
+ :description "YASnippet is a template system for Emacs."
+ :type git
+ :url "https://github.com/capitaomorte/yasnippet.git"
+ :features "yasnippet"
+ :prepare (lambda ()
+ ;; Set up the default snippets directory
+ ;;
+ ;; Principle: don't override any user settings
+ ;; for yas/snippet-dirs, whether those were made
+ ;; with setq or customize. If the user doesn't
+ ;; want the default snippets, she shouldn't get
+ ;; them!
+ (unless (or (boundp 'yas/snippet-dirs) (get 'yas/snippet-dirs 'customized-value))
+ (setq yas/snippet-dirs
+ (list (concat el-get-dir (file-name-as-directory "yasnippet") "snippets")))))
+
+ :post-init (lambda ()
+ ;; Trick customize into believing the standard
+ ;; value includes the default snippets.
+ ;; yasnippet would probably do this itself,
+ ;; except that it doesn't include an
+ ;; installation procedure that sets up the
+ ;; snippets directory, and thus doesn't know
+ ;; where those snippets will be installed. See
+ ;; http://code.google.com/p/yasnippet/issues/detail?id=179
+ (put 'yas/snippet-dirs 'standard-value
+ ;; as cus-edit.el specifies, "a cons-cell
+ ;; whose car evaluates to the standard
+ ;; value"
+ (list (list 'quote
+ (list (concat el-get-dir (file-name-as-directory "yasnippet") "snippets"))))))
+ ;; byte-compile load vc-svn and that fails
+ ;; see https://github.com/dimitri/el-get/issues/200
+ :compile nil)
(:name wanderlust :type git
:url "https://github.com/wanderlust/wanderlust.git"
:load-path ("site-lisp/wl" "elmo")
@@ -74,6 +117,9 @@
;; :compile (".")
;; :build ("make -C doc && rm contrib/slime-tramp.elc")
;; )
+ (:name monky :type git
+ :url "https://github.com/ananthakumaran/monky.git"
+ :build ("make all"))
(:name magit
:website "https://github.com/magit/magit#readme"
:description "It's Magit! An Emacs mode for Git."
@@ -126,6 +172,7 @@
(:name etags-select :type emacswiki)
(:name auto-complete-etags :type git :url "https://github.com/whitypig/auto-complete-etags.git")
+ (:name restclient :type git :url "https://github.com/pashky/restclient.el.git")
(:name buster-mode :type git :url "git://gitorious.org/buster/buster-mode.git")
(:name mark-multiple :type git :url "git://github.com/magnars/mark-multiple.el.git")
(:name haskell-mode
@@ -142,6 +189,9 @@
;cedet
smex command-frequency
session desktop-recover
+ sunrise-commander
+ sunrise-x-checkpoints
+ sunrise-x-modeline
hlinum
diminish
@@ -163,9 +213,10 @@
pos-tip ;; required by popup-kill-ring
popup-kill-ring
- dvc magit magithub gist
+ dvc magit monky magithub gist
- yasnippet auto-complete ac-dabbrev
+ yasnippet
+ auto-complete ac-dabbrev
paredit rainbow-delimiters autopair
@@ -185,7 +236,7 @@
flymake-node-jshint
buster-mode
yaml-mode
-
+ restclient
org-mode
ess
View
21 dss-sunrise.el
@@ -0,0 +1,21 @@
+(require 'sunrise-commander)
+(require 'sunrise-x-checkpoints)
+;; (require 'sunrise-x-modeline)
+
+(defun ido-sunrise ()
+ "Call `sunrise' the ido way.
+ The directory is selected interactively by typing a substring.
+ For details on keybindings, see `ido-find-file'."
+ (interactive)
+ (let ((ido-report-no-match nil)
+ (ido-auto-merge-work-directories-length -1))
+ (ido-file-internal 'sr-dired 'sr-dired nil "Sunrise: "
+ 'dir)))
+;;;(define-key (cdr (assoc 'ido-mode minor-mode-map-alist))
+;;; [remap dired] 'ido-sunrise)
+(setq find-directory-functions (cons 'sr-dired
+ find-directory-functions))
+
+(define-key sr-mode-map "=" 'dss/term-cd)
+(define-key sr-mode-map "." 'dss/term-select-window)
+(provide 'dss-sunrise)
View
3  init.el
@@ -20,6 +20,7 @@
(require 'dss-basic-editing)
(require 'dss-whitespace-and-linelen)
(require 'dss-buffer-and-window-handling)
+(require 'dss-sunrise)
(require 'dss-skeleton)
(require 'dss-generic-code-tools)
(require 'dss-codenav-helpers)
@@ -46,7 +47,7 @@
;;(require 'dss-erlang)
;; other support funcs and minor modes
-(require 'dss-yas)
+;; (require 'dss-yas)
(require 'dss-keybindings)
(require 'dss-colorthemes)
(require 'dss-browser-integration)
Please sign in to comment.
Something went wrong with that request. Please try again.