equal
deleted
inserted
replaced
1265 org-agenda-skip-scheduled-if-done t |
1265 org-agenda-skip-scheduled-if-done t |
1266 org-agenda-start-on-weekday nil |
1266 org-agenda-start-on-weekday nil |
1267 org-reverse-note-order t |
1267 org-reverse-note-order t |
1268 org-hide-leading-stars t |
1268 org-hide-leading-stars t |
1269 org-tags-column 64 |
1269 org-tags-column 64 |
|
1270 org-archive-save-context-info '(time file olpath todo itags) |
1270 ) |
1271 ) |
1271 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1272 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1272 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1273 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1273 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
1274 (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file)) |
1274 (define-key global-map "\C-va" 'org-agenda) |
1275 (define-key global-map "\C-va" 'org-agenda) |
1275 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
1276 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
1276 |
1277 |
1277 ;; My tags for remember buffer. |
1278 ;; My tags for remember buffer. |
1278 (setq org-tag-persistent-alist |
1279 (setq org-tag-alist |
1279 '( |
1280 '( |
1280 ("ADMIN" . ?a) |
1281 ("ADMIN" . ?a) |
1281 ("BLOG" . ?b) |
1282 ("BLOG" . ?b) |
1282 ("DEVEL" . ?d) |
1283 ("DEVEL" . ?d) |
1283 ("HOME" . ?h) |
1284 ("HOME" . ?h) |
1288 ("QUESTION" . ?q) |
1289 ("QUESTION" . ?q) |
1289 ("PROJECT" . ?p) |
1290 ("PROJECT" . ?p) |
1290 ("READ" . ?r) |
1291 ("READ" . ?r) |
1291 ("SEE" . ?s) |
1292 ("SEE" . ?s) |
1292 )) |
1293 )) |
|
1294 ;; With this variable tags duplicated in *Org Tags* menu. I use |
|
1295 ;; `org-tag-alist' instead until bug fixed. |
|
1296 (setq org-tag-persistent-alist nil) |
1293 |
1297 |
1294 (when (or (featurep 'remember) (fboundp 'remember)) |
1298 (when (or (featurep 'remember) (fboundp 'remember)) |
1295 (setq remember-annotation-functions '(org-remember-annotation)) |
1299 (setq remember-annotation-functions '(org-remember-annotation)) |
1296 (setq remember-handler-functions '(org-remember-handler)) |
1300 (setq remember-handler-functions '(org-remember-handler)) |
1297 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
1301 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
2161 `( |
2165 `( |
2162 ("(\\<\\(lambda\\)\\>" |
2166 ("(\\<\\(lambda\\)\\>" |
2163 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) |
2167 (1 (progn (compose-region (match-beginning 1) (match-end 1) ,(make-char 'greek-iso8859-7 107)) font-lock-keyword-face)) |
2164 ) |
2168 ) |
2165 )) |
2169 )) |
|
2170 |
|
2171 (defun my-dump-funcs () |
|
2172 "Dump all function calls in current buffer. Useful to explore |
|
2173 elisp API from somebody else files." |
|
2174 (interactive) |
|
2175 (let* ( (cur-buffer (current-buffer)) (new-buffer (get-buffer-create (concat (buffer-name cur-buffer) "-funcs.el"))) symb ) |
|
2176 (while (search-forward-regexp "([[:alnum:]*]" nil t) |
|
2177 (setq symb (thing-at-point 'symbol)) |
|
2178 (with-current-buffer new-buffer |
|
2179 (insert-string symb) |
|
2180 (insert-char ?\n 1))) |
|
2181 (switch-to-buffer new-buffer) |
|
2182 (shell-command-on-region (point-min) (point-max) "sort -u" nil t) |
|
2183 )) |
2166 |
2184 |
2167 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2185 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2168 (message "C, c-mode, C++, c++-mode") |
2186 (message "C, c-mode, C++, c++-mode") |
2169 |
2187 |
2170 ;; Minor mode that highlights suspicious C and C++ constructions. |
2188 ;; Minor mode that highlights suspicious C and C++ constructions. |