emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Org-mode Tables not showing correctly in graphical emacs
@ 2014-06-26  6:54 David Rose
  2014-06-26  8:09 ` Thibaut Verron
  2014-06-26  8:14 ` Peter Frings
  0 siblings, 2 replies; 4+ messages in thread
From: David Rose @ 2014-06-26  6:54 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 1809 bytes --]

Hi,

I am not sure if this is an actual bug or if I am just missing some
new setting/configuration option, but when in a graphical emacs window
org-mode table alignments are way off, yet when in a 'terminal' window
emacs session tables are shown as expected. 

Just as I am not sure if this is a bug, I am not sure if it is in
org-mode or emacs itself, so I apologise if this is not the right list
for this.  I have tried searching on-line for an answer but have nto
been able to find this which is why I believe I might just be missing
a setting somewhere that I did not need before.

I am attaching my .emacs file as well as a screen shot showing the
issue I am speaking of.  In the screen shot the window on the left is
a graphical instance of emacs, and the one on the right is started
from a terminal window (emacs -nw --no-desktop).  Both are using the
same file.

My emacs version is: 24.3.1 (x86_64-slackware-linux-gnu with GTK+
version 2.24.17

I am currently using an older version of org-mode as I try to
reconfigure my custom latex document classes over to the newer
version.  Org mode version is: 7.8.11

I have tested this with the newest org-mode version as well though and
received the same results as I currently get.  


Thank you in advance for any assistance, and I again apologise if this
is not the correct list for this.

Sincerely,

David Rose
Linux Systems Administrator
Information Technology Services

------------------------------------

Jeppesen
A Boeing Company

ph: +46 31 722 62 25 | mobile: +46 739 01 82 47 | Voip: 376225  
fax: +46 31 720 81 20 |  david.rose@jeppesen.com

Jeppesen Systems AB | P.O. Box 192, SE-401 23 Göteborg, Sweden 
Visiting address: Odinsgatan 9, SE-411 03 Göteborg, Sweden 
www.jeppesen.com/carmen

[-- Attachment #2: emacs_table_issue.png --]
[-- Type: image/png, Size: 31540 bytes --]

[-- Attachment #3: emacs_conf --]
[-- Type: text/plain, Size: 17572 bytes --]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Initialization

(set-background-color "black")
;;(set-background-color "ARGBBB000000")
(set-foreground-color "light gray")
;;(set-face-foreground 'modeline "firebrick")
(set-cursor-color "dark red")
(menu-bar-mode nil)
(setq suggest-key-bindings t)
(setq inhibit-splash-screen t)
(setq visible-bell t)
(global-set-key (kbd "\C-cw") 'toggle-truncate-lines)

(server-start)

(add-to-list 'auto-mode-alist '("/tmp/mutt-" . mail-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Global Customizations

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ansi-color-names-vector ["#2e3436" "#a40000" "#4e9a06" "#c4a000" "#204a87" "#5c3566" "#729fcf" "#eeeeec"])
 '(baud-rate 115200)
 '(confluence-default-space-alist (list (cons confluence-url "ITS")))
 '(confluence-url "http://jira.jeppesensystems.com/confluence/rpc/xmlrpc")
 '(custom-enabled-themes (quote (wombat)))
 '(desktop-save-mode t)
 '(inhibit-startup-screen nil)
 '(jira-url "https://jira.jeppesensystems.com/rpc/xmlrpc")
 '(line-number-display-limit nil)
 '(org-agenda-diary-file (quote diary-file) nil nil "~/.org/diary.org")
 '(org-agenda-files (quote ("~/.org/jeppesen.org" "~/Documents/Oracle/Databases.org" "~/Documents/Academy.org")))
 '(org-clock-into-drawer "LOGBOOK")
 '(org-enforce-todo-checkbox-dependencies t)
 '(org-latex-classes (quote (("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")) ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")) ("none" "[NO-DEFAULT-PACKAGES][NO-PACKAGES]" ("" . "") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))))
 '(org-todo-keyword-faces (quote (("CANCELLED" . "dark red") ("DELEGATED" . "purple") ("DONE" . "dark green") ("FOLLOWUP" . "blue") ("STARTED" . "yellow") ("TODO" . org-warning))))
 '(org-todo-keywords (quote ((sequence "TODO(t@)" "STARTED(s@)" "FOLLOWUP(f@)" "|" "DONE(d)" "CANCELLED(c)"))))
 '(save-place t nil (saveplace))
 '(scroll-bar-mode nil)
 '(tool-bar-mode nil)
 '(truncate-lines nil))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "DejaVu Sans" :foundry "unknown" :slant normal :weight normal :height 83 :width normal)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Timezone setting 
(set-time-zone-rule "GMT+1")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Language Environment
(set-language-environment 'UTF-8)

;; Custom Emacs Script Location.
(setq load-path (cons "~/.emacs.d/scripts" load-path))
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(setq load-path (cons "~/.emacs.d/addons" load-path))
(setq load-path (cons "~/.emacs.d/addons/org" load-path))
(setq load-path (cons "~/.emacs.d/addons/org/lisp" load-path))
(setq load-path (cons "~/.emacs.d/addons/org/contrib/lisp" load-path))
(setq load-path (cons "~/.emacs.d/addons/multiple-cursors.el" load-path))
(setq load-path (cons "~/.emacs.d/addons/confluence-1.6" load-path))
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))
(setq load-path (cons "/usr/share/emacs/24.3/site-lisp" load-path))


;; Zooming
(global-set-key [(control mouse-4)] (lambda () (interactive) (text-scale-increase 1)))
(global-set-key [(control mouse-5)] (lambda () (interactive) (text-scale-decrease 1)))

;; Scrolling
(setq scroll-conservatively 3)  ; Don't jump the screen w/o C-l
(setq scroll-margin 3)          ; When approaching end of screen scroll

;; Ispell settings.
(setq ispell-program-name "aspell")
(setq ispell-list-command "list")
(require 'ispell)
(setq ispell-dictionary "english")

;; Always end a file with a newline
(setq require-final-newline t)

;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Package management
(require 'package)
(package-initialize)

;;; This was installed by package-install.el.
;;; This provides support for the package system and
;;; interfacing with ELPA, the package archive.
;;; Move this code earlier if you want to reference
;;; packages in your .emacs.
(when
    (load
     (expand-file-name "~/.emacs.d/elpa/package.el"))
  (package-initialize))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Shell Mode

;;(global-set-key [f7] 'alt-shell-dwim)
 (defun alt-shell-dwim (arg)
   "Run an inferior shell like `shell'. If an inferior shell as its I/O
 through the current buffer, then pop the next buffer in `buffer-list'
 whose name is generated from the string \"*shell*\". When called with
 an argument, start a new inferior shell whose I/O will go to a buffer
 named after the string \"*shell*\" using `generate-new-buffer-name'."
   (interactive "P")
   (let* ((shell-buffer-list
 	  (let (blist)
	     (dolist (buff (buffer-list) blist)
	       (when (string-match "^\\*shell\\*" (buffer-name buff))
	 	(setq blist (cons buff blist))))))
	  (name (if arg
	 	   (generate-new-buffer-name "*shell*")
	 	 (car shell-buffer-list))))
     (shell name)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Org Mode

(require 'org-install)
(setq org-export-latex-packages-alist nil)
(setq org-log-done 'note)
(setq org-agenda-skip-additional-timestamps-same-entry nil)
(setq org-export-latex-listings t)
(add-hook 'org-mode-hook (lambda () (abbrev-mode 1)))
(add-hook 'org-mode=hook (lambda () (org-columns 1)))
;; For org appointment reminders
;; Get appointments for today
  (defun my-org-agenda-to-appt ()
	(interactive)
		(setq appt-time-msg-list nil)
			(run-at-time "24:01" nil 'my-org-agenda-to-appt)
			(let ((org-deadline-warning-days 0)) ;; will be automatic in org  5.23
			  (org-agenda-to-appt)))
;;; Disabled so that I can open multiple emacs without org loading agenda files.
(appt-activate t)
;; 5 minute warning
(setq appt-message-warning-time '15)
(setq appt-display-interval '5)

;; Update appt each time agenda opened.
(add-hook 'org-finalize-agenda-hook 'my-org-agenda-to-appt)

;; Setup zenify, we tell appt to use window, and replace default function
(setq appt-display-format 'window)
(setq appt-disp-window-function (function my-appt-disp-window))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Org Time Tracking Settings
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
(setq org-log-done 'note)
(setq org-log-into-drawer 'logbook)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Org-Diary Integration
(setq org-agenda-include-diary t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Do not show Done States in the Agenda
(setq org-agenda-skip-scheduled-if-done t)

;; (defun my-appt-disp-window (min-to-app new-time msg)
;;   (save-window-excursion (shell-command (concat
;;   									   "/usr/bin/kdialog --msgbox '" msg "' &") nil nil)))
(defun my-appt-disp-window (min-to-app new-time msg)
       (save-window-excursion (async-shell-command
       (concat "/usr/bin/zenity --info --title='Appointment' --text='" msg "'")   nil nil)))
 
;; Insert immediate timestamp
(define-key global-map (kbd "<f9>")
                             '(lambda () (interactive)
                                (when (eq major-mode 'org-mode)
                                  (org-insert-time-stamp nil t t)
                                  (insert "\n"))))

(add-hook 'message-mode-hook 'orgstruct++-mode 'append)
(add-hook 'message-mode-hook 'turn-on-auto-fill 'append)
(add-hook 'message-mode-hook 'orgtbl-mode 'append)
(add-hook 'message-mode-hook 'flyspell-mode 1)
(add-hook 'message-mode-hook
	            '(lambda () (setq fill-column 72))
		    'append)
(add-hook 'message-mode-hook
	            '(lambda () (local-set-key (kbd "C-c M-o") 'org-mime-htmlize))
		    'append)

(add-hook 'mail-mode-hook 'flyspell-mode 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; TeX PDF output
(setq TeX-PDF-mode t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Doc-view auto revert
(add-hook 'doc-view-mode-hook 'auto-revert-mode)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Key bindings

(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-cb" 'org-iswitchb)
(global-set-key (kbd "<f6>") 'org-capture)
(global-set-key (kbd "<f3>") 'org-agenda)
(global-set-key "\C-cs" 'ispell-word)
(global-set-key "\C-ci" 'org-clock-in)
(global-set-key "\C-co" 'org-clock-out)
(global-set-key "\C-c C-x C-t" 'org-clock-select-task)


(setq org-agenda-files (list "~/.org/jeppesen.org" 
			     "~/Documents/Oracle/Databases.org"
			     "~/Documents/Academy.org"
			     ))
;; Capture Templates
(setq org-capture-templates
   '(
	   ("a" "Appointment" entry (file+headline
				     "~/.org/jeppesen.org" "Calander")
	    "* APPT %^{Description} %^g
	    %?")
	   ("t" "TODO" entry (file+headline
			      "~/.org/jeppesen.org" "Tasks")
	   "* TODO %^{Task} %^G
            %^{JIRA}p
            %^{C2R}p
            - %?")
	   ("m" "Meeting Notes" entry (file+datetree
				       "~/Documents/Meeting_Notes.org")
	    "* %^{Meeting}
             - %?
           ")
	   ("T" "Account Termination" entry (file+headline
					     "~/.org/jeppesen.org" "Account Terminiations")
	    "* TODO Terminate %^{User}
             :LINUX:
             %^{C2R}p
             - [ ] Account Locked
             - [ ] Data Archived")
	   ("o" "Oracle Task" entry (file+headline
				     "~/Documents/Oracle/Databases.org" "Work Log")
	    "* TODO %^{Task} 
            %^{JIRA}p
            %^{C2R}p
            %^{Server}p
            %^{SID}p
	    %^{SCHEMA}p
Added: %U
Description:
            
    %?
            ")
	   ("O" "New Oracle Server/DB" table-line (file+headline
						   "~/Documents/Oracle/Databases.org" "Servers and Databases")
	    "| |%^{Server}|%^{SID}|%^{Oracle Version}|%^{OS Version}|%^{Description}|" :table-line-pos "III-1" :immediate-finish t)
	   ("A" "Academy Worklog" entry (file+headline
					 "~/Documents/Academy.org" "Work Log")
	    "* TODO %^{Task} 
            %^{JIRA}p
            %^{C2R}p
Added: %U
Description:

    %?
           ")
	   ("s" "Storage Mail" entry (file+headline
				      "~/Documents/Storage.org" "Project Owner Mail Requests")
	    "* %^{Storage Directory} %^{Filer}%G
             %^{Sent}p
             
         
Hello,

We are kicking off a project to document our common storage usage.  We will
also highlight the cost.  Quantifying the cost will hopefully incentivize us
all to determine if we really need what is being stored.

 

We would like to document for each project who is the owner  (manager) and the
name of project using it.

 

You are receiving this mail because you were one of the last people writing in
this directory so I really would appreciate your help.

 

For the “%^{Directory}” directory I would need to know:

·         Project:

·         Owner / Manager:

 

Data is from %^{Date} Can be archived offline or is still in use ?

 

 

Many thanks for your co-operation


Sent TO:
  - 

")
 

))
		

;; flyspell mode for spell checking everywhere
(add-hook 'org-mode-hook 
	  		 (lambda ()
	  		 'turn-on-font-lock
	  		  (setq word-wrap 1)
			  (setq truncate-lines nil)
			  (flyspell-mode 1)))

;; Flyspell fix?
(setq flyspell-issue-welcome-flag nil)


;;;;;;;;;;;;;;;;;;;;
;;;;; set up unicode
(prefer-coding-system       'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)

;; This from a japanese individual.  I hope it works.
(setq default-buffer-file-coding-system 'utf-8)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Mailcrypt setup
(require 'mailcrypt)
(mc-setversion "gpg")
(add-hook 'wl-summary-mode-hook 'mc-install-read-mode)
(add-hook 'wl-mail-setup-hook 'mc-install-write-mode)


(defun mc-wl-verify-signature ()
 (interactive)
 (save-window-excursion
   (wl-summary-jump-to-current-message)
   (mc-verify)))

(defun mc-wl-decrypt-message ()
  (interactive)
  (save-window-excursion
    (wl-summary-jump-to-current-message)
    (let ((inhibit-read-only t))
      (mc-decrypt))))


(eval-after-load "mailcrypt"
 '(setq mc-modes-alist
      (append
       (quote
        ((wl-draft-mode (encrypt . mc-encrypt-message)
           (sign . mc-sign-message))
         (wl-summary-mode (decrypt . mc-wl-decrypt-message)
          (verify . mc-wl-verify-signature))))
       mc-modes-alist)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; LaTeX Export
(require 'org-latex)
(unless (boundp 'org-export-latex-classes)
	(setq org-export-latex-classes nil))
	(add-to-list 'org-export-latex-classes
	                  '("article"
	                   "\\documentclass{article}"
	                  ("\\section{%s}" . "\\section*{%s}")))  


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Latex Class for 'none'
(add-to-list 'org-export-latex-classes '("none"
	   "[NO-DEFAULT-PACKAGES][NO-PACKAGES]"
           ("\\section{%s}" . "\\section*{%s}")
	   ("\\subsection{%s}" . "\\subsection*{%s}")
	   ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
	   ("\\paragraph{%s}" . "\\paragraph*{%s}")
	   ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Multi-Cursor Settings
(require 'multiple-cursors)

(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Org-Babel
(org-babel-do-load-languages
 'org-babel-load-languages
 '(
   (sh . t)
   (python . t)
   (R . t)
   (ruby . t)
   (ditaa . t)
   (dot . t)
   (octave . t)
   (sqlite . t)
   (perl . t)
   ))

(defun my-org-confirm-babel-evaluate (lang body)
(not (string= lang "ditaa")))  ; don't ask for ditaa
(setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Ispell-Dictionary Switch
(global-set-key (kbd  "<f8>") (lambda () (interactive) (ispell-change-dictionary "swedish" nill)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Confluence Setup

(require 'confluence)

(autoload 'confluence-get-page "confluence" nil t)

(eval-after-load "confluence"
  '(progn
     (require 'longlines)
     (progn
       (add-hook 'confluence-mode-hook 'longlines-mode)
       (add-hook 'confluence-before-save-hook 'longlines-before-revert-hook)
       (add-hook 'confluence-before-revert-hook 'longlines-before-revert-hook)
       (add-hook 'confluence-mode-hook '(lambda () (local-set-key "\C-j" 'confluence-newline-and-indent))))))

;; LongLines mode: http://www.emacswiki.org/emacs-en/LongLines
;;(autoload 'longlines-mode "longlines" "LongLines Mode." t)

(eval-after-load "longlines"
  '(progn
     (defvar longlines-mode-was-active nil)
     (make-variable-buffer-local 'longlines-mode-was-active)

     (defun longlines-suspend ()
       (if longlines-mode
           (progn
             (setq longlines-mode-was-active t)
             (longlines-mode 0))))

     (defun longlines-restore ()
       (if longlines-mode-was-active
           (progn
             (setq longlines-mode-was-active nil)
             (longlines-mode 1))))

     ;; longlines doesn't play well with ediff, so suspend it during diffs
     (defadvice ediff-make-temp-file (before make-temp-file-suspend-ll
                                             activate compile preactivate)
       "Suspend longlines when running ediff."
       (with-current-buffer (ad-get-arg 0)
         (longlines-suspend)))

    
     (add-hook 'ediff-cleanup-hook 
               '(lambda ()
		  (dolist (tmp-buf (list ediff-buffer-A
                                         ediff-buffer-B
                                         ediff-buffer-C))
                    (if (buffer-live-p tmp-buf)
                        (with-current-buffer tmp-buf
                          (longlines-restore))))))))

(global-set-key "\C-xwf" 'confluence-get-page)
(add-hook 'confluence-mode-hook
          '(lambda ()
             (local-set-key "\C-xw" confluence-prefix-map)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Jira Mode
(require 'jira)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Mercurial Mode

(require 'mercurial)

^ permalink raw reply	[flat|nested] 4+ messages in thread
end of thread, other threads:[~2014-06-26  9:40 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-06-26  6:54 Org-mode Tables not showing correctly in graphical emacs David Rose
2014-06-26  8:09 ` Thibaut Verron
2014-06-26  8:14 ` Peter Frings
2014-06-26  8:22   ` David Rose

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

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

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