Jacopo De Simoi
8 years ago
parent
0af513257c
commit
edc5b64e93
4 changed files with 195 additions and 190 deletions
@ -1,4 +0,0 @@ |
||||
(add-hook 'emacs-lisp-mode-hook |
||||
(lambda () |
||||
(outline-minor-mode) |
||||
(linum-mode))) |
||||
@ -1,36 +0,0 @@ |
||||
(defun kde-current-activity () |
||||
"Returns the current KDE activity" |
||||
(substring (shell-command-to-string "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.CurrentActivity") 0 -1) |
||||
) |
||||
|
||||
(defun kde-current-activity-name () |
||||
"Returns the name of the current KDE activity" |
||||
(substring (shell-command-to-string (concat "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.ActivityName " (kde-current-activity))) 0 -1)) |
||||
|
||||
(defun X-window-id-belongs-to-activity (window-id activity) |
||||
(= (shell-command (concat "xprop -id " window-id " | grep _KDE_NET_WM_ACTIVITIES | grep " activity ">/dev/null")) 0) |
||||
) |
||||
|
||||
(defun select-frame-on-activity (activity) |
||||
(setq framelist (frame-list)) |
||||
(setq done nil) |
||||
(while (and framelist (not done)) |
||||
(setq cur (car framelist)) |
||||
(setq cur-id (cdr (assq 'window-id (frame-parameters cur)))) |
||||
(if cur-id (if (X-window-id-belongs-to-activity cur-id activity) (progn; |
||||
(setq done 't) (select-frame cur)) )) |
||||
(setq framelist (cdr framelist))) |
||||
done |
||||
) |
||||
|
||||
(defun select-X-frame () |
||||
(setq framelist (frame-list)) |
||||
(setq done nil) |
||||
(while (and framelist (not done)) |
||||
(setq cur (car framelist)) |
||||
(setq cur-id (cdr (assq 'window-id (frame-parameters cur)))) |
||||
(if cur-id (progn; |
||||
(setq done 't) (raise-frame cur))) |
||||
(setq framelist (cdr framelist))) |
||||
done |
||||
) |
||||
@ -1,129 +0,0 @@ |
||||
;; Init for org-mode |
||||
|
||||
(require 'org-install) |
||||
(require 'org-pomodoro) |
||||
|
||||
(setq org-agenda-files |
||||
' ("~/org/notes.org" "~/org/orgzly/work.org" "~/org/orgzly/hack.org" "~/org/orgzly/live.org" "~/org/orgzly/refile.org")) |
||||
|
||||
(add-hook 'org-mode-hook (lambda () |
||||
(turn-on-auto-fill))) |
||||
(setq org-default-notes-file "~/org/notes.org") |
||||
(global-set-key (kbd "C-c a") 'org-agenda) |
||||
(global-set-key (kbd "C-c c") 'org-capture) |
||||
|
||||
(add-to-list 'org-structure-template-alist |
||||
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) |
||||
|
||||
(setq org-src-fontify-natively t) |
||||
|
||||
(setq org-capture-templates |
||||
'(("t" "TODO today" entry (file+headline "~/org/notes.org" "Tasks") |
||||
"* TODO %?\n SCHEDULED: %t" :clock-in t :clock-resume t) |
||||
("n" "TODO next" entry (file+headline "~/org/notes.org" "Tasks") |
||||
"* NEXT %?\n " :clock-in t :clock-resume t) |
||||
("T" "TODO" entry (file+headline "~/org/notes.org" "Tasks") |
||||
"* TODO %?\n %a" :clock-in t :clock-resume t) |
||||
("i" "Idea" entry (file+headline "~/org/notes.org" "Ideas") |
||||
"* IDEA %?\n %u" :clock-in t :clock-resume t ) |
||||
("j" "Journal" entry (file+datetree "~/org/notes.org") |
||||
"* %?\n%U\n" :clock-in t :clock-resume t) |
||||
("b" "Break" entry (file+datetree "~/org/notes.org") |
||||
"* break %?\n" :clock-in t :clock-resume t) |
||||
("e" "Mail To" entry (file+headline "~/org/notes.org" "E-mails") |
||||
"* DONE mailto:%?") |
||||
("r" "Reply to" entry (file+headline "~/org/notes.org" "E-mails") |
||||
"* DONE mailto:%?"))) |
||||
|
||||
(setq org-clock-persist 'history) |
||||
(org-clock-persistence-insinuate) |
||||
|
||||
(setq org-agenda-span 1) |
||||
|
||||
;; Separate drawers for clocking and logs |
||||
(setq org-drawers (quote ("PROPERTIES" "CLOCKBOOK"))) |
||||
;; Save clock data and state changes and notes in the CLOCK drawer |
||||
(setq org-clock-into-drawer "CLOCKBOOK") |
||||
;; Sometimes I change tasks I'm clocking quickly - this removes clocked tasks with 0:00 duration |
||||
(setq org-clock-out-remove-zero-time-clocks t) |
||||
;; Clock out when moving task to a done state |
||||
(setq org-clock-out-when-done t) |
||||
|
||||
|
||||
(setq org-agenda-custom-commands |
||||
'(("h" "Agenda and Android tasks" |
||||
((agenda "") |
||||
(tags-todo "Android"))) |
||||
("a" "Main agenda" |
||||
((agenda "") |
||||
(todo "NEXT|ONGOING") |
||||
(tags-todo "hack") |
||||
(tags-todo "5m") |
||||
(todo "TODO"))) |
||||
("5" "Agenda and Break tasks" |
||||
((agenda "") |
||||
(tags-todo "5m") |
||||
(tags-todo "20m"))))) |
||||
|
||||
;; some super-clever stuff |
||||
;; [https://emacs.stackexchange.com/questions/39032/tangle-the-same-src-block-to-different-files] |
||||
(defun org-babel-tangle-collect-blocks-handle-tangle-list (&optional language tangle-file) |
||||
"Can be used as :override advice for `org-babel-tangle-collect-blocks'. |
||||
Handles lists of :tangle files." |
||||
(let ((counter 0) last-heading-pos blocks) |
||||
(org-babel-map-src-blocks (buffer-file-name) |
||||
(let ((current-heading-pos |
||||
(org-with-wide-buffer |
||||
(org-with-limited-levels (outline-previous-heading))))) |
||||
(if (eq last-heading-pos current-heading-pos) (cl-incf counter) |
||||
(setq counter 1) |
||||
(setq last-heading-pos current-heading-pos))) |
||||
(unless (org-in-commented-heading-p) |
||||
(let* ((info (org-babel-get-src-block-info 'light)) |
||||
(src-lang (nth 0 info)) |
||||
(src-tfiles (cdr (assq :tangle (nth 2 info))))) ; Tobias: accept list for :tangle |
||||
(unless (consp src-tfiles) ; Tobias: unify handling of strings and lists for :tangle |
||||
(setq src-tfiles (list src-tfiles))) ; Tobias: unify handling |
||||
(dolist (src-tfile src-tfiles) ; Tobias: iterate over list |
||||
(unless (or (string= src-tfile "no") |
||||
(and tangle-file (not (equal tangle-file src-tfile))) |
||||
(and language (not (string= language src-lang)))) |
||||
;; Add the spec for this block to blocks under its |
||||
;; language. |
||||
(let ((by-lang (assoc src-lang blocks)) |
||||
(block (org-babel-tangle-single-block counter))) |
||||
(setcdr (assoc :tangle (nth 4 block)) src-tfile) ; Tobias: |
||||
(if by-lang (setcdr by-lang (cons block (cdr by-lang))) |
||||
(push (cons src-lang (list block)) blocks)))))))) ; Tobias: just () |
||||
;; Ensure blocks are in the correct order. |
||||
(mapcar (lambda (b) (cons (car b) (nreverse (cdr b)))) blocks))) |
||||
|
||||
(defun org-babel-tangle-single-block-handle-tangle-list (oldfun block-counter &optional only-this-block) |
||||
"Can be used as :around advice for `org-babel-tangle-single-block'. |
||||
If the :tangle header arg is a list of files. Handle all files" |
||||
(let* ((info (org-babel-get-src-block-info)) |
||||
(params (nth 2 info)) |
||||
(tfiles (cdr (assoc :tangle params)))) |
||||
(if (null (and only-this-block (consp tfiles))) |
||||
(funcall oldfun block-counter only-this-block) |
||||
(cl-assert (listp tfiles) nil |
||||
":tangle only allows a tangle file name or a list of tangle file names") |
||||
(let ((ret (mapcar |
||||
(lambda (tfile) |
||||
(let (old-get-info) |
||||
(cl-letf* (((symbol-function 'old-get-info) (symbol-function 'org-babel-get-src-block-info)) |
||||
((symbol-function 'org-babel-get-src-block-info) |
||||
`(lambda (&rest get-info-args) |
||||
(let* ((info (apply 'old-get-info get-info-args)) |
||||
(params (nth 2 info)) |
||||
(tfile-cons (assoc :tangle params))) |
||||
(setcdr tfile-cons ,tfile) |
||||
info)))) |
||||
(funcall oldfun block-counter only-this-block)))) |
||||
tfiles))) |
||||
(if only-this-block |
||||
(list (cons (cl-caaar ret) (mapcar #'cadar ret))) |
||||
ret))))) |
||||
|
||||
(advice-add 'org-babel-tangle-collect-blocks :override #'org-babel-tangle-collect-blocks-handle-tangle-list) |
||||
(advice-add 'org-babel-tangle-single-block :around #'org-babel-tangle-single-block-handle-tangle-list) |
||||
Loading…
Reference in new issue