Extract all lisp code from the org document

5 files changed, 91 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init/oni-cmake-init.el b/emacs/.emacs.d/init/oni-cmake-init.el
new file mode 100644
index 0000000..b66da19
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-cmake-init.el
@@ -0,0 +1,5 @@
+(add-hook 'cmake-mode-hook 'cmake-font-lock-activate)
+
+(add-hook 'cmake-mode-hook 'company-mode)
+
+(add-hook 'cmake-mode-hook 'electric-pair-local-mode)
diff --git a/emacs/.emacs.d/init/oni-cpp-init.el b/emacs/.emacs.d/init/oni-cpp-init.el
new file mode 100644
index 0000000..74b81cf
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-cpp-init.el
@@ -0,0 +1,9 @@
+(add-hook 'c++-mode-hook 'electric-pair-local-mode)
+
+(add-hook 'c++-mode-hook 'flycheck-mode)
+
+(add-hook 'c++-mode-hook 'company-mode)
+
+(add-hook 'c++-mode-hook 'fci-mode)
+
+(add-hook 'c++-mode-hook 'electric-indent-local-mode)
diff --git a/emacs/.emacs.d/init/oni-gnus-init.el b/emacs/.emacs.d/init/oni-gnus-init.el
new file mode 100644
index 0000000..a3369e6
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-gnus-init.el
@@ -0,0 +1,53 @@
+(require 'gnus)
+(require 'gnus-msg)
+(require 'mail-source)
+(require 'message)
+(require 'nnfolder)
+(require 'sendmail)
+
+(setq gnus-directory (locate-user-emacs-file "data/News")
+      gnus-article-save-directory gnus-directory
+      gnus-cache-directory gnus-directory
+      gnus-kill-files-directory gnus-directory)
+
+(setq mail-source-directory (locate-user-emacs-file "data/Mail")
+      message-directory mail-source-directory
+      nnfolder-directory mail-source-directory)
+
+(setq send-mail-function 'send-mail-send-it
+      message-send-mail-function 'message-send-mail-with-sendmail
+      sendmail-program "/usr/bin/msmtp")
+
+(setq gnus-novice-user nil)
+
+(defun oni-gnus-delete-forward (&optional n)
+  "Delete the article under point and move to the next one.
+Do this N times."
+  (interactive "p")
+  (dotimes (_ (or n 1))
+    (gnus-summary-delete-article)
+    (gnus-summary-next-subject 1)))
+
+(define-key gnus-summary-mode-map (kbd "M-d") #'oni-gnus-delete-forward)
+
+(setq gnus-group-line-format "%P%(%20G%): %-10s %S%p%B %5y %5T\n")
+
+(setq gnus-select-method
+      '(nnmaildir "ryuslash" (directory "~/documents/mail/ryuslash/")))
+
+(add-to-list 'gnus-posting-styles
+             '(".*"
+               (address "tom@ryuslash.org")
+               (eval (setq message-sendmail-extra-arguments
+                           '("-a" "ryuslash")))))
+
+(add-to-list 'gnus-secondary-select-methods
+             '(nnmaildir "gmail"
+                         (directory "~/documents/mail/gmail/")))
+
+(add-to-list 'gnus-posting-styles
+             '("gmail:"
+               (name "Tom Willemse")
+               (address "ryuslash@gmail.com")
+               (eval (setq message-sendmail-extra-arguments
+                           '("-a" "gmail")))))
diff --git a/emacs/.emacs.d/init/oni-js2-init.el b/emacs/.emacs.d/init/oni-js2-init.el
new file mode 100644
index 0000000..2b9e7c8
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-js2-init.el
@@ -0,0 +1,13 @@
+(require 'js2-mode)
+
+(setq js2-strict-trailing-comma-warning nil)
+
+(add-hook 'js2-mode-hook 'subword-mode)
+
+(add-hook 'js2-mode-hook 'flycheck-mode)
+
+(setq js2-basic-offset 2)
+
+(add-hook 'js2-mode-hook 'company-mode)
+
+(add-hook 'js2-mode-hook 'fci-mode)
diff --git a/emacs/.emacs.d/init/oni-org-init.el b/emacs/.emacs.d/init/oni-org-init.el
new file mode 100644
index 0000000..14caaa2
--- /dev/null
+++ b/emacs/.emacs.d/init/oni-org-init.el
@@ -0,0 +1,11 @@
+(require 'org)
+(require 'org-bullets)
+(require 'org-capture)
+
+(setq org-src-fontify-natively t)
+
+(setq org-return-follows-link t)
+
+(add-hook 'org-mode-hook 'auto-fill-mode)
+
+(add-hook 'org-mode-hook 'org-bullets-mode)