Commits

Peter Szilagyi committed 74b7e1e

prod customizations, esp. obsolete/js/js-*.el

Comments (0)

Files changed (4)

 
 args=$*                         # before consuming below
 
-mode=test
+mode=prod
 message=
 # CR pszilagyi: Implement a general-purpose sink-args hook so I can
 # check "sink history list" very easily.
 /mnt/global/dev/lib/elisp -> /mnt/global/base/lib/elisp.
 jane-test is also meant to be symlinked from
 /mnt/global/base/lib/elisp/jane-test.
+js is to be symlinked from /mnt/global/base/lib/elisp/js.
 
 There may be other locations from which people load the old ~/.emacs
 files.  These are the known, immediately prior standard.

obsolete/js/js-common.el

+(warn "
+
+We have moved Jane Street's Emacs Lisp libraries.
+
+Please change your ~/.emacs to say:
+
+    (load \"/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-common\")
+
+Thanks.  --pszilagyi
+
+")
+(if (yes-or-no-p "Load jane-elisp? ")
+    (load "/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-common"))
+;; We could do an after-init-time/after-init-hook dance here, so the
+;; user's customizations were loaded for query-replace-regexp.
+;; However, the user's ~/.emacs is likely to die in this context,
+;; where we're changing jane-elisp out from under them.  So, do
+;; query-replace-regexp now, even though the user will get an
+;; uncustomized Emacs.
+(if (yes-or-no-p "Update ~/.emacs? ")
+    (progn (find-file (expand-file-name "~/.emacs"))
+           (goto-char (point-min))      ; point may be saved
+           (query-replace-regexp
+            "/mnt/global/\\(base\\|dev\\)/lib/elisp/jane-test/jane-common"
+            "/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-common")))

obsolete/js/js-defaults.el

+(warn "
+
+We have moved Jane Street's Emacs Lisp libraries.
+
+Please change your ~/.emacs to say:
+
+    (load \"/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-defaults\")
+
+Thanks.  --pszilagyi
+
+")
+(if (yes-or-no-p "Load jane-elisp? ")
+    (load "/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-defaults"))
+;; We could do an after-init-time/after-init-hook dance here, so the
+;; user's customizations were loaded for query-replace-regexp.
+;; However, the user's ~/.emacs is likely to die in this context,
+;; where we're changing jane-elisp out from under them.  So, do
+;; query-replace-regexp now, even though the user will get an
+;; uncustomized Emacs.
+(if (yes-or-no-p "Update ~/.emacs? ")
+    (progn (find-file (expand-file-name "~/.emacs"))
+           (goto-char (point-min))      ; point may be saved
+           (query-replace-regexp
+            "/mnt/global/\\(base\\|dev\\)/lib/elisp/jane-test/jane-defaults"
+            "/j/office/app/emacs/prod/jane-elisp/elisp/jane/jane-defaults")))