emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: table formula editor: readable elisp [7.8.03]
@ 2012-04-11 11:37 Arne Babenhauserheide
  0 siblings, 0 replies; only message in thread
From: Arne Babenhauserheide @ 2012-04-11 11:37 UTC (permalink / raw)
  To: emacs-orgmode

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


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,

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:
 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-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-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-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))

^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2012-04-11 11:38 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-04-11 11:37 Bug: table formula editor: readable elisp [7.8.03] Arne Babenhauserheide

Code repositories for project(s) associated with this public inbox


This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).