-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathhost-mk-t410.el
128 lines (101 loc) · 4.33 KB
/
host-mk-t410.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
;;;; host-mktop.el -- setup for my laptop
(require 'mk-project)
(require 'cl)
(require 'lisp)
(require 'clojure)
;;; cl-sip -------------------------------------------------------------
(lexical-let ((bd (concat homedir "code/lisp/cl-sip/"))
(pd (concat projdir "cl-sip/")))
(project-def "cl-sip"
`((basedir ,bd)
(src-patterns (".lisp" "*.asd"))
(ignore-patterns ("*.fasl"))
(tags-file ,(concat bd "TAGS"))
(open-files-cache ,(concat pd "open-files"))
(vcs git)
(startup-hook cl-sip-startup-hook)))
(defun cl-sip-startup-hook ()
(slime)
(dolist (file (directory-files bd t "\.lisp$" t))
(find-file file))))
;;; mk-project ---------------------------------------------------------
(let ((pd (concat projdir "mk-project/")))
(project-def "mk-project"
`((basedir ,(concat homedir "code/mk-project"))
(src-patterns ("*.el"))
(ignore-patterns ("*.elc"))
(file-list-cache ,(concat pd "files"))
(open-files-cache ,(concat pd "open-files"))
(tags-file ,(concat pd "TAGS"))
(ack-args "-i")
(vcs git))))
;;; sipbotc ------------------------------------------------------------
(lexical-let ((bd (concat homedir "code/sipbotc/"))
(pd (concat projdir "sipbotc/")))
(project-def "sipbotc"
`((basedir ,bd)
(src-patterns "*.clj")
(ignore-patterns ("*.class"))
(file-list-cache ,(concat pd "files"))
(open-files-cache ,(concat pd "open-files"))
(tags-file ,(concat pd "tags"))
(ack-args "-i")
(vcs git)
(startup-hook sipbotc-hook)))
(defun sipbotc-hook ()
(defun clojure ()
(interactive)
(require 'slime)
(clojure-project bd
(expand-file-name "lib/clojure-1.0.0.jar" bd)
(expand-file-name "lib/clojure-contrib.jar" bd)
(expand-file-name "build/classes" bd)
(mapcar (lambda (f) (expand-file-name f bd))
(list "src" "build/classes" "lib"))))
(find-file (concat bd "src/com/nortelnetworks/sipbotc/sipbotc.clj"))))
;;; Qrev ---------------------------------------------------------------
(project-def "qrev"
'((basedir "~mk/code/lisp/qrev/")
(src-patterns ("*.lisp"))
(ignore-patterns ("*.fasl"))
(tags-file "~mk/code/lisp/qrev/TAGS")
(vcs git)
(compile-cmd "make -k")
(startup-hook qrev-startup-hook)
(shutdown-hook qrev-shutdown-hook)))
(defun qrev-startup-hook ()
(slime)
(dolist (file (directory-files mk-proj-basedir t "\.lisp$" t))
(find-file file))
(message "Qrev it up, baby!"))
(defun qrev-shutdown-hook ()
(when (y-or-n-p "Close slime? ")
(slime-quit-lisp)))
;;; compojure ----------------------------------------------------------
(project-def "compojure"
`((basedir "~/code/compojure")
(src-patterns ("*.clj" "*.java"))
(ignore-patterns ("*.class"))
(tags-file "~/code/compojure/TAGS")
(file-list-cache "~/code/compojure/.file-index")
(vcs git)
(compile-cmd "ant")))
;;; soalib -------------------------------------------------------------
(mk-clojure-mk-project "soalib" "~/code/soalib")
;;; org-mode -----------------------------------------------------------
(add-to-list 'org-agenda-files (concat dotfiles-dir "TODO-elisp.org"))
;; git-auto-commit runs at top of hour
(defvar mk-org-save-timer
(run-at-time "00:59" 3600 'org-save-all-org-buffers))
;; TODO mk-agenda-to-html is f*cking up the rest of org somehow
(when nil
(defvar mk-agenda-timer
(run-at-time "00:58" 300 'mk-agenda-to-html "~/.agenda.html")))
;;; new lrb ------------------------------------------------------------
(defun mk-newlrb-project-startup ()
(unless (get-buffer "*inferior-lisp*")
(mk-lein-swank)
(message "You've been swanked!")))
(mk-clojure-mk-project "newlrb" "~/code/newlrb")
(mk-clojure-mk-project "newlrb" "~/code/myalbum")
(mk-clojure-mk-project "jaxws" "~/code/clojure/jaxws/jaxws")