;; -ss*- mode: elisp -*-


;;--setta il formato della data diversamente ------
;;(setq-default org-display-custom-times t)
(setq org-time-stamp-custom-formats '("<%a %d %m %Y>" . "<%a %d %m %Y %H:%M>"))

;;----- comandi per gestire la grandezza della finestraprincipale di emacs -----
(setq initial-frame-alist
       (append '((width . 200) (height . 400) (top 45) (left 45) ())
               initial-frame-alist))

;;-----------------------(add-to-list 'default-frame-alist '(height . 24))
(add-to-list 'default-frame-alist '(width . 80)) 

;;------------ fà partire in AGENDA la settimana dal giorno 1---
(setq calendar-week-start-day 1)

;;---settaggi carattere e dimensione di default del carattere--
(set-face-attribute 'default nil :font "Andale Mono" :height 160 )

;; Disable the splash screen (to enable it agin, replace the t with 0)
(setq inhibit-splash-screen t)

;; Enable transient mark mode
(transient-mark-mode 1)

;;;;;;Org mode configuration
Enable Org mode
(require 'org)

;; Make Org mode work with files ending in .org
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
The above is the default in recent emacsen
(require 'org)
(setq org-log-done t)

;; set maximum indentation for description lists
(setq org-list-description-max-indent 5)

;; prevent demoting heading also shifting text inside sections
(setq org-adapt-indentation nil)

;;-------- determina le sequenze di stato al TODO
(setq org-todo-keywords
     '((sequence "TODO" "IN-PROGRESS" "WAITING" "DONE")))

;;-------------------------- file utilizzati  per TODO list in Agenda
(setq org-agenda-files '( "~/org/agenda/"   
;;      "~/org/agenda/amorc.org"
;;      "~/org/agenda/amorc.org"
;;                             "~/org/agenda/renato.org"
     ))
;; mappa alcuni tasti per ottenere le parentesi graffe e quadre
(global-set-key "\M-(" (lambda () (interactive) (insert "{")))
(global-set-key "\M-)" (lambda () (interactive) (insert "}")))
(global-set-key "\M-7" (lambda () (interactive) (insert "#")))
(global-set-key "\M-8" (lambda () (interactive) (insert "[")))
(global-set-key "\M-9" (lambda () (interactive) (insert "]")))

(global-set-key "\M-9" (lambda () (interactive) (insert "]")))

;;---Aggiunge il TIMESTAMP quando chiudo uno statemet TODO
(setq org-log-done 'time)

;;----fa aggiungere una nota di testo quando si chiude un TODO
(setq org-log-done 'note)

;;--setta dei tasti comodi da utilizzare in emacs
(global-set-key (kbd "C-c l") #'org-store-link)
(global-set-key (kbd "C-c a") #'org-agenda)
(global-set-key (kbd "C-c c") #'org-capture)

;;--- azioni applicate ai TODO
(setq org-todo-keywords
     '((sequence "TODO" "FEEDBACK" "VERIFY" "|" "DONE" "DELEGATED")))
(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.
;; '(package-selected-packages '(org-contacts frame-tabs ebdb)))
::(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.
;;)
;;-----apre emacs-org mode in modalità Agenda
(org-agenda-list)
(delete-other-windows)