Helping KDE

[Andreas Roehler]

Tomaz Canabrava schrieb:
>
> Hy, it`s not my first e-mail to the kde development list,
> but it`s my first to the kde Quality.
> so, Who `m I?
> Tomaz Canabrava, Computer Science student (that will resign from the 
> title, and start trying History instead... *Hate math*)
> But i do love coding. I`m now trying to help Tellico and Ark (with no 
> sucess till the time)
> I have some experience with C++ (2 years) and C( 4 years), and Ultima 
> Online scripting. (RunUO (C#), SphereScript and some other strange 
> languages)
>
> I Have know how to manipulate images with free tools like gimp and 
> inkscape instead of photoshop and illustrator ( Give a look at my 
> Flog[1], All images are made with Gimp + Inkscape, i have about 43 
> pics), Sure, i`m not a Image Genius, but i`m not that bad =P
>
> So, i wish help anyway i can, from coding to building images.
>
> If you guys want some help, just mail me, and i`ll do my best.
> (sory the bad english, i`m brazilian)
>
> [1] - http://www.flogao.com.br/tumaix
>
>
> -- 
> Um Computador sem Windows é como um Navio sem dançarinas de Can-Can
> ------------------------------------------------------------------------
>
> _______________________________________________
> kde-quality mailing list
> kde-quality at kde.org
> https://mail.kde.org/mailman/listinfo/kde-quality
>   
Hi Tomaz,

I'm a publisher from Berlin, aiming to do better translations with 
computers,  also of historical matters.

Maybe  we could join  our efforts in the future.

As I  rely heavily on abbrevs while text-editing, here a tool to remind 
them.

;;; abbrev-remind.el --- abbrev-mode utility  for Emacs

;; Erinnerer fuer Abkuerzungen im emacs-Textmodus
;;
;; Autor: Andreas Röhler, a.roehler at web.de

;; Copyright (C) should go to Free Software Foundation, Inc.

;; Keywords: abbrev convenience

;; This file is free software and not part of GNU Emacs.

;;; Code:

;; freie Verwendung auf eigene Gefahr gestattet
;;
;; Beschreibung:
;;
;; Gibt im Minibuffer die Definition der entsprechenden Abkürzung
;; aus ~/.abbrev_defs - oder anderer Abkuerzungsdatei - , falls
;; ein Wort eingesetzt wurde, ohne die Abkürzungshilfe zu
;; benutzen, d.h. falls es ausgeschrieben oder via dabbrev-expand
;; ergänzt wurde. Gibt zusätzlich je nach Einstellung einen
;; Warnton aus. Der Warnton ist mittels Eingabe von
;; toggle-abbrev-remind-beep im Minibuffer ein- oder
;; auszuschalten.
;;
;; ueberschreibt die Leerzeichentaste mit Leerzeichen+Programmausführtung

(define-key text-mode-map " " 'abbrev-remind)
(defalias 'abkuerz-erinnerer 'abbrev-remind)
(defalias 'schalte-abkuerz-erinnerer 'toggle-abbrev-remind-beep)


(defvar abbrev-remind-beep nil
  "*Warn, falls Wort eingegeben wurde, fuer das eine Abkuerzung 
definiert ist")

(defun toggle-abbrev-remind-beep ()
  "Beeb or use message-buffer alone. Nil or t, nil until first use"
  (interactive)
 (if (boundp 'abbrev-remind-beep)
      (if (eq abbrev-remind-beep t)
      (setq abbrev-remind-beep nil)
    (setq abbrev-remind-beep t))
    (setq abbrev-remind-beep nil)))

(defun abbrev-remind ()
  "Show abbrev and expansion in Minibuffer if a word was typed in 
although an abbrev defined"
  (interactive)
  (let* ((begriff
      (progn (save-excursion
           (skip-chars-backward "[ \t]")
           (buffer-substring (point) (progn (backward-word 1) (point))))))
     (begriff (progn (concat "\"[A-Za-zäöüÄÖÜß]\\{1,6\\}\" 
+\""begriff"\""))))
    (set-text-properties 0 (length begriff) nil begriff)
    (insert " ")
    ;;    (if (string= mode-name "Text")
    (if abbrev-mode
    (save-excursion
      ;; unless expansion
      (unless (< 0 (length (eval (expand-abbrev))))
        ;;       (message (format "%s %s" this-command last-command))
        (find-file-noselect "~/.abbrev_defs")
        (set-buffer (get-buffer-create ".abbrev_defs"))
        (goto-char (point-min))
        ;; (message "%s" (buffer-name (current-buffer)))
        (when (re-search-forward begriff nil t 1)
          (setq gefunden
            (buffer-substring-no-properties
             (progn
               (beginning-of-line)
               (skip-chars-forward "^\"")
               (point))
             (progn
               (end-of-line)
               (skip-chars-backward "^\"")
               (point))))
          (message "      %s" gefunden)))))))


;; siehe auch: abbrev-complete.el

__
Andreas Roehler
http://www.sleipnir.netfirms.com
+49306927863