Adding current path to load-path done
This commit is contained in:
parent
e8d3bfb120
commit
88bddb2d43
|
@ -14,13 +14,29 @@
|
||||||
;; You should have received a copy of the GNU General Public License
|
;; You should have received a copy of the GNU General Public License
|
||||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
(setq shit-mode 0)
|
||||||
|
(setq DEBUG 1)
|
||||||
|
|
||||||
(defun shitty-mode (active)
|
(defun log (ARG) "print a log on message buffer."
|
||||||
"A peace of shit configuration that tune emacs to be easier to develop with it."
|
(if (= DEBUG 1) (message "[SHIT] DEBUG >>> %s" ARG))
|
||||||
(interactive "n")
|
)
|
||||||
(if (= active 1)
|
|
||||||
;; if
|
|
||||||
|
(defun start-shit ()
|
||||||
|
"A peace of shit configuration that tune emacs to be an IDE."
|
||||||
|
(interactive)
|
||||||
|
(if (/= shit-mode 1)
|
||||||
(progn
|
(progn
|
||||||
()
|
(setq shit-mode 1)
|
||||||
|
(log "Starting shit mode . . .")
|
||||||
|
(setq cur-path-list (split-string load-file-name "/"))
|
||||||
|
(nbutlast cur-path-list)
|
||||||
|
(setq curpath (mapconcat 'identity cur-path-list "/"))
|
||||||
|
(log curpath)
|
||||||
|
(add-to-list 'load-path curpath)
|
||||||
|
|
||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
(start-shit)
|
||||||
|
|
Loading…
Reference in New Issue