emacs-orgmode
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]