From c8b34bbdad15a4153f87d4b6df324fe34b1c8a37 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Mon, 17 Dec 2012 12:11:03 +0100 Subject: Remove oni:load-hippie-exp Placing `yas/hippie-try-expand' at the end of the `hippie-expand-try-functions-list' doesn't seem to work very well and putting it in the front might cause situations where I want to expand a variable name or something and yas might take over, so don't use yas with hippie-expand. Instead bind `yas-expand' to `C-\' and set `yas-fallback-behavior' to nil so it doesn't start acting crazy when there's no snippet to expand. --- .emacs.d/site-lisp/oni.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index f636587..8930d6d 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -287,13 +287,6 @@ If COUNT has been specified indent by that much, otherwise look at (kill-region (region-beginning) (region-end)) (kill-line))) -(defun oni:load-hippie-exp (other) - "Make sure both hippie-expand and yasnippet are loaded in order - to add yasnippet's expand function to hippie-expand." - (require other) - (add-to-list 'hippie-expand-try-functions-list - 'yas/hippie-try-expand t)) - (defun oni:lua-mode-func() "Function for `lua-mode-hook'." (local-unset-key (kbd ")")) @@ -626,7 +619,8 @@ for easy selection." (defun oni:yas-minor-mode-func () "Function for `yas-minor-mode-hook'." (define-key yas-minor-mode-map (kbd "TAB") nil) - (define-key yas-minor-mode-map [(tab)] nil)) + (define-key yas-minor-mode-map [(tab)] nil) + (define-key yas-minor-mode-map (kbd "C-\\") 'yas-expand)) (define-skeleton html-tag "Testing creation of an html tag" -- cgit v1.2.3-54-g00ecf From 19cc94fc81a8b655c7104d1f058fa2ac1b0a52c4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 19 Dec 2012 11:29:46 +0100 Subject: Only make TAGS when TAGS target available The "(Shell command failed with code 2 and no output)" was starting to drive me nuts. * .emacs.d/site-lisp/oni.el (oni:after-save-func): Check if there is a `TAGS:' target in the found makefile before trying to make. --- .emacs.d/site-lisp/oni.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 8930d6d..46c87fb 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -68,8 +68,10 @@ DOT are intentionally being skipped." "Function for `after-save-hook'." (oni:compile-el) (executable-make-buffer-file-executable-if-script-p) - (let ((dom-dir (locate-dominating-file (buffer-file-name) "Makefile"))) - (when dom-dir + (let* ((dom-dir (locate-dominating-file (buffer-file-name) "Makefile")) + (TAGSp (not (string= "" (shell-command-to-string + (concat "grep \"^TAGS:\" " dom-dir "Makefile")))))) + (when (and dom-dir TAGSp) (shell-command (concat "make -C " dom-dir " TAGS >/dev/null 2>&1"))))) -- cgit v1.2.3-54-g00ecf From 25adcab0c33d332f5379b46fde5530f0b714a749 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 19 Dec 2012 11:43:00 +0100 Subject: Set the fci-rule-column to 101 for lisps --- .emacs.d/init.el | 3 +++ .emacs.d/site-lisp/oni.el | 5 +++++ 2 files changed, 8 insertions(+) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 3e74568..6b78465 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -302,6 +302,7 @@ (add-hook 'css-mode-hook 'oni:css-mode-func) (add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func) +(add-hook 'emacs-lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'erc-mode-hook 'oni:erc-mode-func) (add-hook 'eshell-mode-hook 'oni:eshell-mode-func) (add-hook 'flymake-mode-hook 'oni:flymake-mode-func) @@ -314,6 +315,7 @@ (add-hook 'java-mode-hook 'oni:java-mode-func) (add-hook 'js-mode-hook 'oni:js-mode-func) (add-hook 'js2-mode-hook 'oni:js2-mode-func) +(add-hook 'lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'lua-mode-hook 'oni:lua-mode-func) (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func) @@ -323,6 +325,7 @@ (add-hook 'prog-mode-hook 'oni:prog-mode-func) (add-hook 'python-mode-hook 'oni:python-mode-func) (add-hook 'rst-mode-hook 'oni:rst-mode-func) +(add-hook 'scheme-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'term-mode-hook 'oni:term-mode-func) (add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func) (add-hook 'write-file-hooks 'oni:write-file-func) diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 46c87fb..f652069 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -179,6 +179,11 @@ DOT are intentionally being skipped." (local-set-key [M-P] 'flymake-goto-prev-error) (local-set-key [M-N] 'flymake-goto-next-error)) +(defun oni:generic-lisp-mode-hook () + "Function for `emacs-lisp-mode-hook', `lisp-mode-hook' and +`scheme-mode-hook'." + (setq fci-column 101)) + (defun oni:go-mode-func () "Function for `go-mode-hook'." (setq indent-tabs-mode nil) -- cgit v1.2.3-54-g00ecf From 0dc07f528ff1545aa70bed57724da7279faec895 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 19 Dec 2012 23:56:25 +0100 Subject: Update eltuki to work better and do more --- .emacs.d/site-lisp/eltuki.el | 40 ++++++++++++++++++++++++++++++++-------- 1 file changed, 32 insertions(+), 8 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el index 4815108..80400a9 100644 --- a/.emacs.d/site-lisp/eltuki.el +++ b/.emacs.d/site-lisp/eltuki.el @@ -163,9 +163,13 @@ (eltuki-slugify-string (eltuki-get-title)))) (defun eltuki-write-content (dir) - (with-current-buffer (org-export-region-as-html - (point-min) (point-max) t "*eltuki-html*") - (write-region (point-min) (point-max) (concat dir "/content")))) + (let ((org-export-with-toc nil) + (filename (concat dir "/content"))) + (with-current-buffer (org-export-region-as-html + (point-min) (point-max) t "*eltuki-html*") + (write-region (point-min) (point-max) filename) + (kill-buffer)) + filename)) (defun eltuki-write-metadata (dir) (let ((timestamp (eltuki-get-timestamp)) @@ -173,7 +177,8 @@ (status (eltuki-get-status)) (title (eltuki-get-title)) (name (eltuki-slugify-string (eltuki-get-title))) - (commentstatus (eltuki-get-comment-status))) + (commentstatus (eltuki-get-comment-status)) + (filename (concat dir "/metadata"))) (with-temp-buffer (insert "timestamp: " timestamp "\n" "tags: " tags "\n" @@ -181,17 +186,36 @@ "title: " title "\n" "name: " name "\n" "comment_status: " commentstatus) - (write-region (point-min) (point-max) (concat dir "/metadata"))))) + (write-region (point-min) (point-max) filename)) + filename)) + +(defun eltuki-save-org (buffer dir) + (let ((filename (concat dir "/post.org"))) + (with-current-buffer buffer + (write-file filename)) + filename)) + +(defun eltuki-git-add (file) + (shell-command (concat "cd " eltuki-blog-dir "; git add '" (expand-file-name file) "'"))) + +(defun eltuki-commit () + (shell-command (concat "cd " eltuki-blog-dir "; git commit -m \"new post: \\\"" (eltuki-get-title) + "\\\"\""))) (defun eltuki-finish () (interactive) - (let ((buffer (get-buffer "*eltuki*")) + (let ((buffer (or (get-buffer "*eltuki*") + (current-buffer))) (dest (eltuki-get-directory))) (unless (file-exists-p dest) (mkdir dest)) - (eltuki-write-content dest) - (eltuki-write-metadata dest) + (mapc #'eltuki-git-add + (list (eltuki-write-content dest) + (eltuki-write-metadata dest) + (eltuki-save-org buffer dest))) + + (eltuki-commit) (kill-buffer buffer))) (provide 'eltuki) -- cgit v1.2.3-54-g00ecf From 86c28de3740885ed872acfbc7024315f1df98c91 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 20 Dec 2012 00:15:52 +0100 Subject: Add feeds from Magnar Sveen --- .emacs.d/site-lisp/newsticker-init.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/newsticker-init.el b/.emacs.d/site-lisp/newsticker-init.el index 5d60850..aabb782 100644 --- a/.emacs.d/site-lisp/newsticker-init.el +++ b/.emacs.d/site-lisp/newsticker-init.el @@ -102,7 +102,11 @@ "http://feeds.feedburner.com/QjGameNewsOpinionsBlogsandMore" nil nil nil) ("Beej's Bit Bucket" - "http://beej.us/blog/rss.xml" nil nil nil))) + "http://beej.us/blog/rss.xml" nil nil nil) + ("What the .emacs.d!?" + "http://whattheemacsd.com/atom.xml" nil nil nil) + ("Emacs Rocks!" + "http://emacsrocks.com/atom.xml" nil nil nil))) (setq newsticker-use-full-width nil) (provide 'newsticker-init) -- cgit v1.2.3-54-g00ecf From abc27202062e6d6a0a9c7f790aecbda87b5152d8 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 23 Dec 2012 12:52:18 +0100 Subject: Use fci-rule-column, not fci-column --- .emacs.d/site-lisp/oni.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index f652069..fdaf01e 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -182,7 +182,7 @@ DOT are intentionally being skipped." (defun oni:generic-lisp-mode-hook () "Function for `emacs-lisp-mode-hook', `lisp-mode-hook' and `scheme-mode-hook'." - (setq fci-column 101)) + (setq fci-rule-column 101)) (defun oni:go-mode-func () "Function for `go-mode-hook'." -- cgit v1.2.3-54-g00ecf From 08b6b2334926ac0cafff0a46aa90464735e58bd9 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 27 Dec 2012 02:26:32 +0100 Subject: Emacs: I've started using Gnus again for most feeds --- .emacs.d/site-lisp/newsticker-init.el | 99 +---------------------------------- 1 file changed, 2 insertions(+), 97 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/newsticker-init.el b/.emacs.d/site-lisp/newsticker-init.el index aabb782..ad91632 100644 --- a/.emacs.d/site-lisp/newsticker-init.el +++ b/.emacs.d/site-lisp/newsticker-init.el @@ -1,112 +1,17 @@ -(defmacro reddit-feed (name) - "Return a reddit feed url" - (concat "http://www.reddit.com/r/" name "/new/.rss?sort=new")) - (setq newsticker-automatically-mark-items-as-old nil) (setq newsticker-html-renderer 'w3m-region) (setq newsticker-obsolete-item-max-age 604800) (setq newsticker-url-list - `(("Irreal" - "http://irreal.org/blog/?feed=rss2" nil nil nil) - ("Arch Linux - Keeping it Simple" - ,(reddit-feed "archlinux") nil nil nil) - ("The C programming language" - ,(reddit-feed "c_language") nil nil nil) - ("C" - ,(reddit-feed "C_Programming") nil nil nil) - ("coding" - ,(reddit-feed "coding") nil nil nil) - ("Command Line" - ,(reddit-feed "commandline") nil nil nil) - ("Django" - ,(reddit-feed "django") nil nil nil) - ("M-x emacs-reddit" - ,(reddit-feed "emacs") nil nil nil) - ("git" - ,(reddit-feed "git") nil nil nil) - ("JavaScript" - ,(reddit-feed "javascript") nil nil nil) - ("r/Linux" - ,(reddit-feed "linux") nil nil nil) - ("Linux Gaming on Reddit" - ,(reddit-feed "linux_gaming") nil nil nil) - ("Lisp" - ,(reddit-feed "lisp") nil nil nil) - ("Open Source on Reddit" - ,(reddit-feed "opensource") nil nil nil) - ("PHP: The latest news in the PHP world" - ,(reddit-feed "PHP") nil nil nil) - ("programming" - ,(reddit-feed "programming") nil nil nil) - ("Python" - ,(reddit-feed "Python") nil nil nil) - ("Scheme Programming Language articles" - ,(reddit-feed "scheme") nil nil nil) - ("The Wayland Display Server" - ,(reddit-feed "wayland") nil nil nil) - ("Identity at Mozilla" - "http://identity.mozilla.com/rss" nil nil nil) - ("jd:/dev/blog" - "http://julien.danjou.info/blog/index.xml" nil nil nil) - ("KaKaRoTo's Blog" - "http://kakaroto.homelinux.net/feed/" nil nil nil) - ("Awhan Patnaik" - "http://awhan.wordpress.com/feed/" nil nil nil) - ("The Gitorious Blog" - "http://blog.gitorious.org/feed/" nil nil nil) - ;; ("Dieter on the web" - ;; "http://dieter.plaetinck.be/index.rss" nil nil nil) - ("Public Git Hosting - conkeror.git/atom log" + `(("Public Git Hosting - conkeror.git/atom log" "http://repo.or.cz/w/conkeror.git/atom" nil nil nil) - ("Stevey's Blog Rants" - "http://steve-yegge.blogspot.com/feeds/posts/default" - nil nil nil) ("Script Tutorials" "http://www.script-tutorials.com/feed/rss/" nil nil nil) - ("Hacker News" - "http://news.ycombinator.com/rss" nil nil nil) - ("HowtoForge - Linux Howtos and Tutorials -" - "http://www.howtoforge.com/node/feed" nil nil nil) - ("Linuxtoday.com" - "http://linuxtoday.com/backend/biglt.rss" nil nil nil) - ("Linux.com - Content Feed" - "http://linux.com/rss/feeds.php" nil nil nil) - ("TuxRadar feed" - "http://www.tuxradar.com/rss" nil nil nil) - ("Planet Emacsen" - "http://planet.emacsen.org/atom.xml" nil nil nil) - ("M-x all-things-emacs" - "http://emacsblog.org/feed/" nil nil nil) - ;; ("Xah Emacs Blog" - ;; "http://feeds.feedburner.com/XahsEmacsBlog" nil nil nil) - ;; ("Mastering Emacs" - ;; "http://www.masteringemacs.org/feed/" nil nil nil) ("WikEmacs - Recent changes [en]" "http://wikemacs.org/w/index.php?title=Special:RecentChanges&feed=atom" nil nil nil) - ("newest questions tagged emacs - Stack Overflow" - "http://stackoverflow.com/feeds/tag?tagnames=emacs&sort=newest" - nil nil nil) - ("newest questions tagged elisp - Stack Overflow" - "http://stackoverflow.com/feeds/tag?tagnames=elisp&sort=newest" - nil nil nil) - ("Recent Commits to python-django.el:master" - "https://github.com/fgallina/python-django.el/commits/master.atom" - nil nil nil) ("git.tuxfamily.org Git - sawfish.main.git/atom log" "http://git.tuxfamily.org/sawfish/main.git?p=sawfish/main.git;a=atom" - nil nil nil) - ("BLABBERMOUTH.NET Latest News" - "http://feeds.feedburner.com/blabbermouth" nil nil nil) - ("QJ.NET" - "http://feeds.feedburner.com/QjGameNewsOpinionsBlogsandMore" - nil nil nil) - ("Beej's Bit Bucket" - "http://beej.us/blog/rss.xml" nil nil nil) - ("What the .emacs.d!?" - "http://whattheemacsd.com/atom.xml" nil nil nil) - ("Emacs Rocks!" - "http://emacsrocks.com/atom.xml" nil nil nil))) + nil nil nil))) (setq newsticker-use-full-width nil) (provide 'newsticker-init) -- cgit v1.2.3-54-g00ecf From e36594413834a5c59b317a022dadecc073fc1436 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 27 Dec 2012 02:26:58 +0100 Subject: Emacs: Use special face for "done" org tasks --- .emacs.d/site-lisp/org-init.el | 1 + 1 file changed, 1 insertion(+) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el index 793b453..9d61396 100644 --- a/.emacs.d/site-lisp/org-init.el +++ b/.emacs.d/site-lisp/org-init.el @@ -70,6 +70,7 @@ "http://www.myepisodes.com/rss.php?feed=mylist&uid=Slash&pwdmd5=04028968e1f0b7ee678b748a4320ac17" "~/documents/org/tasks" "MyEpisodes" :formatter oni:myepisodes-formatter))) +(setq org-fontify-done-headline t) (setq org-hide-emphasis-markers t) (setq org-outline-path-complete-in-steps t) (setq org-refile-allow-creating-parent-nodes t) -- cgit v1.2.3-54-g00ecf From fea253be001c509dedfc027573f3dcc53dcf75e2 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 28 Dec 2012 01:59:21 +0100 Subject: Emacs: Remove last feeds from newsticker All feeds are being handled by Gnus again. --- .emacs.d/site-lisp/newsticker-init.el | 11 ----------- 1 file changed, 11 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/newsticker-init.el b/.emacs.d/site-lisp/newsticker-init.el index ad91632..c393df1 100644 --- a/.emacs.d/site-lisp/newsticker-init.el +++ b/.emacs.d/site-lisp/newsticker-init.el @@ -1,17 +1,6 @@ (setq newsticker-automatically-mark-items-as-old nil) (setq newsticker-html-renderer 'w3m-region) (setq newsticker-obsolete-item-max-age 604800) -(setq newsticker-url-list - `(("Public Git Hosting - conkeror.git/atom log" - "http://repo.or.cz/w/conkeror.git/atom" nil nil nil) - ("Script Tutorials" - "http://www.script-tutorials.com/feed/rss/" nil nil nil) - ("WikEmacs - Recent changes [en]" - "http://wikemacs.org/w/index.php?title=Special:RecentChanges&feed=atom" - nil nil nil) - ("git.tuxfamily.org Git - sawfish.main.git/atom log" - "http://git.tuxfamily.org/sawfish/main.git?p=sawfish/main.git;a=atom" - nil nil nil))) (setq newsticker-use-full-width nil) (provide 'newsticker-init) -- cgit v1.2.3-54-g00ecf From 430729835bcd48744c736d5d90140723dc9e79e3 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 30 Dec 2012 02:31:16 +0100 Subject: Emacs: Autofill everything in Texinfo Not just comments --- .emacs.d/site-lisp/oni.el | 1 + 1 file changed, 1 insertion(+) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index fdaf01e..f461bab 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -603,6 +603,7 @@ If no direction is given, don't split." (defun oni:texinfo-mode-func () "Function for `texinfo-mode-hook'." + (setq-local comment-auto-fill-only-comments nil) (auto-fill-mode)) (defun oni:view-mail (inbox) -- cgit v1.2.3-54-g00ecf From 3fc11c073a8dc4bec85d32b0a7b642d6d0be0ab4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 30 Dec 2012 02:33:34 +0100 Subject: Emacs: Change colors of org todo states Make them look better with yoshi-theme. --- .emacs.d/site-lisp/org-init.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/org-init.el b/.emacs.d/site-lisp/org-init.el index 9d61396..23ae6a5 100644 --- a/.emacs.d/site-lisp/org-init.el +++ b/.emacs.d/site-lisp/org-init.el @@ -81,16 +81,16 @@ (setq org-tags-column -101) (setq org-tags-exclude-from-inheritance '("crypt")) (setq org-todo-keyword-faces - '(("TODO" :background "red") - ("DONE" :background "forest green") - ("SUCCEEDED" :background "forest green") - ("WAITING" :background "orange" :foreground "black") - ("CANCELLED" :background "orange red") - ("FAILED" :background "orange red") - ("WIP" :background "#ff9800" :foreground "black") - ("HOLD" :background "orange" :foreground "black") - ("ACQUIRE" :background "red") - ("IGNORED" :background "#555555"))) + '(("TODO" :foreground "#ff756e" :background "#171719" :box (:width 1 :color "#282830")) + ("DONE" :foreground "#9ad870" :background "#222224" :box (:width 1 :color "#333335")) + ("SUCCEEDED" :foreground "#9ad870" :background "#222224" :box (:width 1 :color "#333335")) + ("WAITING" :foreground "#ffbb56" :background "#171719" :box (:width 1 :color "#282830")) + ("CANCELLED" :foreground "#93d8d8" :background "#222224" :box (:width 1 :color "#333335")) + ("FAILED" :foreground "#93d8d8" :background "#222224" :box (:width 1 :color "#333335")) + ("WIP" :foreground "#ff756e" :background "#171719" :box (:width 1 :color "#282830")) + ("HOLD" :foreground "#ffbb56" :background "#171719" :box (:width 1 :color "#282830")) + ("ACQUIRE" :foreground "#ff756e" :background "#171719" :box (:width 1 :color "#282830")) + ("IGNORED" :foreground "#999999" :background "#222224" :box (:width 1 :color "#333335")))) (setq org-use-fast-todo-selection t) (setq org-use-property-inheritance '("slug")) -- cgit v1.2.3-54-g00ecf From 4cf76b65c14060b60804ac119cbf91f779bc2e55 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 4 Jan 2013 00:00:37 +0100 Subject: Emacs: Stay true to 80 columns, even with lisp --- .emacs.d/init.el | 3 --- .emacs.d/site-lisp/oni.el | 5 ----- 2 files changed, 8 deletions(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index f8c32bb..2b32682 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -273,7 +273,6 @@ (add-hook 'css-mode-hook 'oni:css-mode-func) (add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func) -(add-hook 'emacs-lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'erc-mode-hook 'oni:erc-mode-func) (add-hook 'eshell-mode-hook 'oni:eshell-mode-func) (add-hook 'flymake-mode-hook 'oni:flymake-mode-func) @@ -286,7 +285,6 @@ (add-hook 'java-mode-hook 'oni:java-mode-func) (add-hook 'js-mode-hook 'oni:js-mode-func) (add-hook 'js2-mode-hook 'oni:js2-mode-func) -(add-hook 'lisp-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'lua-mode-hook 'oni:lua-mode-func) (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func) @@ -296,7 +294,6 @@ (add-hook 'prog-mode-hook 'oni:prog-mode-func) (add-hook 'python-mode-hook 'oni:python-mode-func) (add-hook 'rst-mode-hook 'oni:rst-mode-func) -(add-hook 'scheme-mode-hook 'oni:generic-lisp-mode-hook) (add-hook 'term-mode-hook 'oni:term-mode-func) (add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func) (add-hook 'write-file-hooks 'oni:write-file-func) diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index f461bab..79b5f6e 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -179,11 +179,6 @@ DOT are intentionally being skipped." (local-set-key [M-P] 'flymake-goto-prev-error) (local-set-key [M-N] 'flymake-goto-next-error)) -(defun oni:generic-lisp-mode-hook () - "Function for `emacs-lisp-mode-hook', `lisp-mode-hook' and -`scheme-mode-hook'." - (setq fci-rule-column 101)) - (defun oni:go-mode-func () "Function for `go-mode-hook'." (setq indent-tabs-mode nil) -- cgit v1.2.3-54-g00ecf From 1be69078ad8c1af62de79b80345a72d2b8490b04 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 4 Jan 2013 00:01:52 +0100 Subject: eltuki: Add post skeleton and use it for new posts --- .emacs.d/site-lisp/eltuki.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to '.emacs.d/site-lisp') diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el index 80400a9..224e9ab 100644 --- a/.emacs.d/site-lisp/eltuki.el +++ b/.emacs.d/site-lisp/eltuki.el @@ -46,10 +46,20 @@ :group 'eltuki :type 'string) +(define-skeleton eltuki-post + "Create a post template for eltuki." + "" + "#+TITLE: " (skeleton-read "Title: ") "\n" + "#+TIMESTAMP: \n" + "#+TAGS: " (skeleton-read "Tags (comma separated): ") "\n" + "\n" + _) + (defun eltuki-new-post () (interactive) (switch-to-buffer (get-buffer-create "*eltuki*")) - (org-mode)) + (org-mode) + (eltuki-post)) (defun eltuki-get-title () (save-excursion -- cgit v1.2.3-54-g00ecf