[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Bug: table formula editor: readable elisp [7.8.03]
From: |
Arne Babenhauserheide |
Subject: |
[O] Bug: table formula editor: readable elisp [7.8.03] |
Date: |
Wed, 11 Apr 2012 13:37:53 +0200 |
User-agent: |
SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Gojō) APEL/10.8 Emacs/23.4 (x86_64-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO) |
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
http://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
Dear Hackers,
I am working on turning org-tables into full kanban boards which get
their data from org todo states. During hacking I realized, that even in
the formula editor, lisp code without linebreaks is very hard to read.
So it would be nice, if the formula editor could automatically reformat
the code to be readable. That would mean inserting linebreaks where
applthat helps.
Best wishes,
Arne
PS: My current zero-state kanban:
| | |
|-+-|
| | |
#+TBLFM: @1='(let ((words org-todo-keywords-1)) (nth (- $# 1)
words))::@2$1..@>$>='(let ((elem (nth (- @# 1) (delete nil
(org-map-entries (lambda () (let ((line (filter-buffer-substring
(point) (line-end-position)))(keyword (nth (- $# 1)
org-todo-keywords-1))) (let ((cleanline (nth 1 (split-string line "*
")))) (if (not (member keyword (split-string cleanline " "))) nil
(concat "[[" cleanline "][" (substring cleanline (+ (length keyword) 1)
(min 30 (length cleanline))) "]]" ))))) nil 'agenda))))) (if (equal
elem nil) "" elem)))
Emacs : GNU Emacs 23.4.2 (x86_64-pc-linux-gnu, GTK+ Version 2.24.8)
of 2012-03-20 on fluss
Package: Org-mode version 7.8.03
current state:
==============
(setq
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
org-agenda-custom-commands '(("o" "Agenda and TODOs" ((tags "KANBAN") (agenda
nil) (todo ""))))
org-agenda-files '("~/.emacs.d/private/org/emacs-plan.org")
org-agenda-include-diary t
org-babel-load-languages '((python . t) (sh . t))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el"))
org-export-latex-format-toc-function 'org-export-latex-format-toc-default
org-agenda-skip-scheduled-if-done t
org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-shell-link-function 'yes-or-no-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/.emacs.d/private/org/emacs-remember-mode.org"
org-directory "~/.emacs.d/private/org"
outline-mode-hook '((lambda nil (require (quote outline-magic))))
org-blank-before-new-entry nil
org-babel-pre-tangle-hook '(save-buffer)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
org-mode-hook '(org-mode-reftex-setup turn-on-font-lock
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-show-block-all append local] 5]
org-babel-hide-all-hashes)
org-extend-today-until 4
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-agenda-start-on-weekday nil
org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src
org-babel-exp-inline-src-blocks))
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-agenda-skip-deadline-if-done t
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp nil
org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
outline-minor-mode-hook '((lambda nil (require (quote outline-magic)))
(lambda nil (require (quote
outline-magic))
(define-key
outline-minor-mode-map [(f10)] (quote outline-cycle)))
)
org-remember-templates '(("todo" 116 "❢: %?\n"
"~/.emacs.d/private/org/emacs-plan.org" nil nil) ("Note" 110 "%?\n" nil nil
nil))
org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
org-beamer-auto-fragile-frames
org-beamer-place-default-actions-for-lists)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-abbrev-alist '(("bib" .
"~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/ref.bib::%s")
("notes" .
"~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers.org::#%s")
("papers" .
"~/Dokumente/Uni/Doktorarbeit-inverse-co2-ch4/aufschriebe/papers/%s.pdf"))
org-export-blocks '((src org-babel-exp-src-block nil) (comment
org-export-blocks-format-comment t)
(ditaa org-export-blocks-format-ditaa
nil) (dot org-export-blocks-format-dot nil))
)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [O] Bug: table formula editor: readable elisp [7.8.03],
Arne Babenhauserheide <=