Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 20 Dec 2012 23:42:25 +0200
changeset 1013 e88896e74332
parent 1012 3432d1144a70 (current diff)
parent 1008 ff0b8955a3c0 (diff)
child 1014 82ae06b5d7c4
merged
.emacs-my file | annotate | diff | comparison | revisions 
--- a/.emacs-my	Wed Dec 19 11:15:54 2012 +0200
+++ b/.emacs-my	Thu Dec 20 23:42:25 2012 +0200
@@ -1267,6 +1267,7 @@
    org-reverse-note-order t
    org-hide-leading-stars t
    org-tags-column 64
+   org-archive-save-context-info '(time file olpath todo itags)
    )
   (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
   (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
@@ -1275,7 +1276,7 @@
   (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
 
   ;; My tags for remember buffer.
-  (setq org-tag-persistent-alist
+  (setq org-tag-alist
         '(
           ("ADMIN" . ?a)
           ("BLOG" . ?b)
@@ -1290,6 +1291,9 @@
           ("READ" . ?r)
           ("SEE" . ?s)
           ))
+  ;; With this variable tags duplicated in *Org Tags* menu. I use
+  ;; `org-tag-alist' instead until bug fixed.
+  (setq org-tag-persistent-alist nil)
 
   (when (or (featurep 'remember) (fboundp 'remember))
     (setq remember-annotation-functions '(org-remember-annotation))
@@ -2164,6 +2168,20 @@
     )
    ))
 
+(defun my-dump-funcs ()
+  "Dump all function calls in current buffer. Useful to explore
+elisp API from somebody else files."
+  (interactive)
+  (let* ( (cur-buffer (current-buffer)) (new-buffer (get-buffer-create (concat (buffer-name cur-buffer) "-funcs.el"))) symb )
+    (while (search-forward-regexp "([[:alnum:]*]" nil t)
+      (setq symb (thing-at-point 'symbol))
+      (with-current-buffer new-buffer
+        (insert-string symb)
+        (insert-char ?\n 1)))
+    (switch-to-buffer new-buffer)
+    (shell-command-on-region (point-min) (point-max) "sort -u" nil t)
+    ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "C, c-mode, C++, c++-mode")
 
--- a/Makefile	Wed Dec 19 11:15:54 2012 +0200
+++ b/Makefile	Thu Dec 20 23:42:25 2012 +0200
@@ -92,7 +92,7 @@
 	for file in $(FILES_MODE_EL); do \
 		cp -f $$file $(HOME)/.emacs.d/my-lisp; \
 	done
-	$(EMACS) --batch \
+	$(EMACS) -Q --batch \
 		--eval='(let ( (generated-autoload-file "~/.emacs.d/my-lisp/autoload-my.el") ) (update-directory-autoloads "~/.emacs.d/my-lisp") )'
 	./.emacs-autogen.sh $(HOME)/.emacs-autogen
dot-emacs