summaryrefslogtreecommitdiffstats
path: root/shell/_emacs/site-lisp
diff options
context:
space:
mode:
authorTharre <tharre3@gmail.com>2015-09-14 20:19:14 +0200
committerTharre <tharre3@gmail.com>2016-10-07 20:13:36 +0000
commit98ba0e744bdf99ce0a894451700f11c39dc2579b (patch)
tree0586076ab8c7f3acde1bfef4375e6d4bdcd76003 /shell/_emacs/site-lisp
parent71a55046a49ea4f340638fc989fbad1a6b001ca7 (diff)
downloaddotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.tar.gz
dotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.tar.xz
dotfiles-98ba0e744bdf99ce0a894451700f11c39dc2579b.zip
emacs: actually install .emacs.d
Diffstat (limited to 'shell/_emacs/site-lisp')
-rw-r--r--shell/_emacs/site-lisp/dconf-proxy.el14
-rw-r--r--shell/_emacs/site-lisp/site-lisp-autoloads.el5
-rw-r--r--shell/_emacs/site-lisp/util.el36
-rw-r--r--shell/_emacs/site-lisp/with-package.el31
4 files changed, 0 insertions, 86 deletions
diff --git a/shell/_emacs/site-lisp/dconf-proxy.el b/shell/_emacs/site-lisp/dconf-proxy.el
deleted file mode 100644
index 954852a..0000000
--- a/shell/_emacs/site-lisp/dconf-proxy.el
+++ /dev/null
@@ -1,14 +0,0 @@
-(defun refresh-proxy-settings ()
- (interactive)
- (if (string= (shell-command-to-string "dconf read /system/proxy/http/enabled") "true\n")
- (setq url-proxy-services
- `(("http" .
- ,(concat
- (car (split-string-and-unquote ;; split string to remove single quotes and newline
- (shell-command-to-string "dconf read /system/proxy/http/host") '"'"))
- ":"
- (car (split-string-and-unquote ;; split string to remove newline
- (shell-command-to-string "dconf read /system/proxy/http/port") '"\n"))))))
- (setq url-proxy-services nil)))
-
-(provide 'dconf-proxy)
diff --git a/shell/_emacs/site-lisp/site-lisp-autoloads.el b/shell/_emacs/site-lisp/site-lisp-autoloads.el
deleted file mode 100644
index 2b1e039..0000000
--- a/shell/_emacs/site-lisp/site-lisp-autoloads.el
+++ /dev/null
@@ -1,5 +0,0 @@
-
-(autoload 'refresh-proxy-settings "dconf-proxy" "Refresh proxy settings" t)
-(autoload 'eval-and-replace "util" "Eval and replace lisp expression" t)
-
-(provide 'site-lisp-autoloads)
diff --git a/shell/_emacs/site-lisp/util.el b/shell/_emacs/site-lisp/util.el
deleted file mode 100644
index b5bdc10..0000000
--- a/shell/_emacs/site-lisp/util.el
+++ /dev/null
@@ -1,36 +0,0 @@
-(defun eval-and-replace ()
- "Replace the preceding sexp with its value."
- (interactive)
- (forward-char) ;; for evil normal state
- (backward-kill-sexp)
- (condition-case nil
- (prin1 (eval (read (current-kill 0)))
- (current-buffer))
- (error (message "Invalid expression")
- (insert (current-kill 0)))))
-
-(defun lorem ()
- "Insert a lorem ipsum."
- (interactive)
- (insert "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do "
- "eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim"
- "ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut "
- "aliquip ex ea commodo consequat. Duis aute irure dolor in "
- "reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla "
- "pariatur. Excepteur sint occaecat cupidatat non proident, sunt in "
- "culpa qui officia deserunt mollit anim id est laborum."))
-
-(defun insert-date ()
- "Insert a time-stamp according to locale's date and time format."
- (interactive)
- (insert (format-time-string "%c" (current-time))))
-
-(defun indent-buffer ()
- (interactive)
- (indent-region (point-min) (point-max)))
-
-(defun untabify-buffer ()
- (interactive)
- (untabify (point-min) (point-max)))
-
-(provide 'util)
diff --git a/shell/_emacs/site-lisp/with-package.el b/shell/_emacs/site-lisp/with-package.el
deleted file mode 100644
index 3dfc52d..0000000
--- a/shell/_emacs/site-lisp/with-package.el
+++ /dev/null
@@ -1,31 +0,0 @@
-(require 'cl)
-
-;; will be available at emacs 24.4
-(unless (fboundp 'with-eval-after-load)
- "Do magic from the future"
- (defmacro with-eval-after-load (file &rest body)
- `(eval-after-load ,file
- `(funcall (function ,(lambda () ,@body))))))
-
-(defmacro with-package (packages &rest body)
- "After pkg macro"
- (declare (indent defun))
- (when (symbolp packages) ;; make a list if necessary
- (setf packages (list packages)))
- `(progn
- (dolist (p ',packages)
- (when (not (package-installed-p p))
- (package-install p))
- (with-eval-after-load p ,@body))))
-
-(defmacro with-package* (packages &rest body)
- "After pkg macro*"
- (declare (indent defun))
- (when (symbolp packages) ;; make a list if necessary
- (setf packages (list packages)))
- `(prog1
- (with-package ,packages ,@body)
- (dolist (p ',packages)
- (require p))))
-
-(provide 'with-package)