Compare commits

..

No commits in common. "main" and "optimize-startup-time" have entirely different histories.

1999 changed files with 1487214 additions and 270746 deletions

View file

@ -1,9 +0,0 @@
;;-*-coding: utf-8;-*-
(define-abbrev-table 'global-abbrev-table
'(
("g11n" "globalization" nil :count 0)
("i18n" "internationalization" nil :count 2)
("l10n" "localization" nil :count 0)
("t9n" "translation" nil :count 0)
))

View file

@ -1,38 +0,0 @@
;;;; babel.lisp - Personal function library loaded at sbcl startup
;;;; Author: Marcus Kammer <marcus.kammer@metalisp.dev>
;;;; MIT License
;; Put the following lines into your .sbclrc:
;;
;; (let ((babel (merge-pathnames ".emacs.d/babel.lisp" (user-homedir-pathname))))
;; (when (probe-file babel)
;; (load babel)))
;;; --- snip ---
(defun print-condition-hook (condition hook)
"This function is designed to be used as a custom debugger hook.
It prints the condition (error message), clears any remaining input,
and aborts the current operation."
;; Ignore the hook argument since it's not used in this function.
(declare (ignore hook))
;; Print the error message associated with the condition.
(princ condition)
;; Clear any pending input from the stream.
(clear-input)
;; Abort the current operation and return to the top-level.
(abort))
;; Get the value of the global variable *debugger-hook*.
*debugger-hook*
;; Set the global variable *debugger-hook* to the custom debugger hook
;; function 'print-condition-hook'. This function will now be called
;; whenever an unhandled error occurs.
(setf *debugger-hook* #'print-condition-hook)
(sb-ext:set-sbcl-source-location #P"~/sbcl/")
(defun get-external-symbols (package-name)
(let ((package (find-package package-name)))
(when package
(let ((result '()))
(do-external-symbols (symbol package)
(push symbol result))
result))))

View file

@ -1,96 +0,0 @@
;;; bundle--ct.el --- Bunch of capture tempates -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Marcus Kammer
;; Author: Marcus Kammer <marcus.kammer@mailbox.org>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;; Code:
(defun mk/link-to-current-task ()
"Return an Org link to the current clocked-in task, if any, or prompt for manual entry."
(if (org-clock-is-active)
(with-current-buffer (marker-buffer org-clock-marker)
(save-excursion
(goto-char org-clock-marker)
(format ":TASK_ID: [[id:%s][%s]]" (org-id-get) (org-get-heading t t))))
(let ((manual-id (read-string "Enter Task ID (leave empty if not applicable): ")))
(unless (string-empty-p manual-id)
(format ":TASK_ID: [[id:%s][Task]]\n" manual-id)))))
(setq org-capture-templates
'(("T" "Task Management")
("Tt" "Task" entry (file "agenda/tasks.org")
"* TODO %? :TASK:\n:PROPERTIES:\n:ID: %(org-id-new)\n:Project: %^{Project}\n:END:\nEntered on %U\n")
("Tp" "Project" entry (file "agenda/projects.org")
"* %^{Project Name} :PROJECT:\n:PROPERTIES:\n:ID: %(org-id-new)\n:Start Date: %T\n:End Date: %^{End Date}\n:END:\n** Objective\n%?\n** Challenges\n- [ ] %^{Challenge 1}\n- [ ] %^{Challenge 2}\n")
("Tv" "Achievement" entry (file+olp+datetree "achievements.org")
"* %^{Achievement Title} :ACHIEVEMENT:\n:PROPERTIES:\n:Project: %^{Project}\n:Date: %T\n:END:\n- Description: %?\n- Impact: %^{Impact}\n- Associated Tasks: %^{Tasks}\n")
("N" "Notes and Journaling")
("Nn" "Note" entry (file "notes.org")
"* %? :NOTE:\n:PROPERTIES:\n:ID: %(org-id-new)\n%(mk/link-to-current-task):END:\nEntered on: %U\n")
("Nj" "Journal" entry (file+olp+datetree "agenda/journal.org")
"* %T - End of Day Reflection :JOURNAL:\n- Was ist heute gut gelaufen?\n %?\n- Was könnte verbessert werden?\n \n- Worauf konzentriere ich mich morgen?\n ")
("Nl" "Log" entry (file+olp+datetree "logbook.org")
"* %T - %^{Activity} :LOG:\n%?" :clock-in t :empty-lines 1)
("M" "Meetings and Appointments")
("Ma" "Appointment" entry (file "agenda/appt.org")
"* %^{Title} %^g\n:PROPERTIES:\n:LOCATION: %^{Location}\n:ATTENDEES: %^{Attendees}\n:END:\n%^{Date}t\n** Agenda\n%?\n** Preparation Tasks\n- [ ]\n- [ ]\n- [ ]\n** Notes\n")
("Mm" "Meeting" entry (file "agenda/meetings.org")
"* %^{Topic} \n%T\n%?" :clock-in t :empty-lines 1)
("R" "Research and Information Gathering")
("Rb" "Bookmark" table-line (file+headline "bookmarks.org" "Bookmarks")
"| %^{URL} | %^{Tags} | %u |" :prepend t)
("Rc" "Code Snippet" entry (file+headline "code.org" "Snippets")
"* %?\n#+begin_src %^{language}\n%i\n#+end_src")
("Rs" "Stock Recommendation" entry (file+headline "stocks.org" "Stock Recommendations")
"* %^{Stock Name} :STOCK:\n:PROPERTIES:\n:Date: %T\n:WKN: %^{WKN}\n:ISIN: %^{ISIN}\n:END:\n%?")
("Ru" "UTM Parameters" entry (file+headline "utm.org" "UTM Parameters")
"* %^{Campaign Name}\n:PROPERTIES:\n:Source: %^{utm_source}\n:Medium: %^{utm_medium}\n:Term: %^{utm_term}\n:Content: %^{utm_content}\n:END:\n")
("I" "Interviews")
("Ih" "How Might We" entry (file+headline "interviews.org" "HMW Questions")
"* WKW/HMW %? :HMW:\n%U\n:PROPERTIES:\n:Interviewee: %^{Interviewee}\n:Context: %^{Context}\n:END:")
("Iq" "Interview Question" entry (file+headline "interviews.org" "Interview Questions")
"* %^{Interview Topic} :INTERVIEW:\n:PROPERTIES:\n:Project: %^{Project Name}\n:Date: %T\n:END:\n- %?\n")
("Io" "Quote from User Interview" entry (file+headline "interviews.org" "Quotes")
"* %^{Quote} :QUOTE:\n:PROPERTIES:\n:Interviewee: %^{Interviewee}\n:Timestamp: %^{Timestamp in Video}\n:Project: %^{Project}\n:Context: %^{Context}\n:END:\n")
("A" "Accounting")
("Ae" "Expense" table-line (file+headline "accounting.org" "Expenses")
"| %U | %^{Amount} | %^{Category} | %? |")
("Ai" "Income" table-line (file+headline "accounting.org" "Income")
"| %U | %^{Amount} | %^{Source} | %? |")
("AI" "Invoice" table-line (file+headline "accounting.org" "Invoices")
"| %T | %^{Client} | %^{Amount} | %^{Due Date} | %? |")
("Ab" "Budget" table-line (file+headline "accounting.org" "Budget")
"| %(format-time-string \"%Y\") | %(format-time-string \"%B\") | %^{Estimated Income} | %^{Estimated Expenses} | %? |")
("Av" "Investment" table-line (file+headline "accounting.org" "Investments")
"| %U | %^{Type} | %^{Amount} | %? |")
("P" "Personal")
("Pb" "Book" table-line (file+headline "books.org" "Meine Bücherliste")
"| %^{Buchtitel} | %^{Autor} | %^{Status||Geplant|In Bearbeitung|Fertig} | %U |" :kill-buffer t)))
(provide 'bundle--ct)
;;; bundle--ct.el ends here

View file

@ -0,0 +1,35 @@
;; OS SETTINGS
(when (eq system-type 'gnu/linux)
(load "bundle--email")
(setq custom-file "~/.emacs.d/bundle/custom_gnu.el"
browse-url-secondary-browser-function 'browse-url-firefox))
(when (eq system-type 'windows-nt)
;; (add-to-list 'exec-path "C:/msys64/mingw64/bin")
;; (add-to-list 'exec-path "C:/msys64/usr/bin")
;; (setenv "PATH" (concat "C:\\msys64\\mingw64\\bin;" (getenv "PATH")))
(setq
ispell-program-name "c:/msys64/mingw64/bin/aspell.exe"
custom-file "~/.emacs.d/bundle/custom_win32.el"
org-babel-python-command "python")
(use-package powershell)
(defun powershell (&optional buffer)
"Launches a powershell in buffer *powershell* and switches to it."
(interactive)
(let ((buffer (or buffer "*powershell*"))
(powershell-prog "C:\\Program Files\\PowerShell\\7\\pwsh.exe"))
(make-comint-in-buffer "shell" "*powershell*" powershell-prog)
(switch-to-buffer buffer)))
(when (string= (system-name) "EVG02667NB")
(cd "d:/opt")
(setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))
(when (string= (system-name) "XPS-8930")
(cd "d:/visua/sync/Documents/")))
;; CUSTOM_FILE
(load custom-file :noerror)

107
bundle/bundle--defaults.el Normal file
View file

@ -0,0 +1,107 @@
;; General user interface and appearance
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(horizontal-scroll-bar-mode -1)
(global-hl-line-mode 1)
(display-time-mode 1)
(global-prettify-symbols-mode 1)
(set-fringe-mode 10)
(setq-default display-time-format "%V %F %R %a")
(setq-default display-time-24hr-format t)
;; Cursor and mouse
(column-number-mode 1)
(mouse-wheel-mode 1)
(blink-cursor-mode -1)
;; Customization for locale, environment and computer
(setq-default european-calendar-style t)
(setq-default calendar-christian-all-holidays-flag t)
(setq-default calendar-date-style (quote iso))
(setq-default calendar-view-diary-initially-flag t)
(setq-default calendar-week-start-day 1)
(setq-default calendar-intermonth-text
'(propertize
(format "%2d"
(car
(calendar-iso-from-absolute
(calendar-absolute-from-gregorian
(list month day year )))))
'font-lock-face 'font-lock-function-name-face))
(setq-default ispell-program-name "aspell")
(setq-default grep-command "grep -i -nH -e ")
(when (eq system-type 'gnu/linux)
(setq-default shell-file-name "/bin/bash")
(setq-default tex-shell-file-name "/bin/bash"))
;; Files and sessions
(setq-default auto-save-timeout 60)
;; Tabs, spaces, lines and parenthesis
(show-paren-mode 1)
(setq-default indent-tabs-mode nil)
(setq-default line-spacing nil)
(setq-default make-backup-files nil)
(setq tab-width 4)
(setq sentence-end-double-space nil)
(setq next-line-add-newlines t)
(setq require-final-newline t)
;; Miscellaneous
(require 'cl-lib)
(setq default-major-mode 'text-mode)
(setq-default inhibit-startup-buffer-menu t
inhibit-startup-screen t)
(setq-default tramp-default-method "ssh")
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(defalias 'yes-or-no-p 'y-or-n-p)
;; Mode line
(setq-default mode-line-format
'((""
mode-line-modified
mode-line-frame-control "%b %z%n "
mode-name
vc-mode
" "
mode-line-position
mode-line-misc-info
minor-mode-alist
mode-line-end-spaces "%-"
)))
;; Disable line numbers in modes
(dolist (mode '(org-mode-hook
term-mode-hook
shell-mode-hook
eshell-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))
(add-hook 'after-save-hook
'executable-make-buffer-file-executable-if-script-p)
(global-set-key (kbd "M-i") 'imenu)
;;(global-set-key (kbd "M-[") 'tab-bar-history-back)
;;(global-set-key (kbd "M-]") 'tab-bar-history-forward)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)
(add-hook 'write-file-hooks 'delete-trailing-whitespace)
(add-hook 'diary-list-entries-hook 'diary-include-other-diary-files)
(add-hook 'diary-mark-entries-hook 'diary-mark-included-diary-files)
(setq compilation-ask-about-save nil)
(setq vc-handled-backends '(Git Hg)) ;; Only use Git and Hg for VC
(setq default-frame-alist
'((font . "MonoLisa-12")
(width . 92)
(height . 62)
(alpha . 100)
(fullscreen . maximized)
(horizontal-scroll-bars)
(vertical-scroll-bars)))

34
bundle/bundle--email.el Normal file
View file

@ -0,0 +1,34 @@
(when (eq system-type 'gnu/linux)
(use-package mu4e
:ensure nil
:custom
(mu4e-change-filenames-when-moving t)
(mu4e-drafts-folder "/Drafts")
(mu4e-get-mail-command "mbsync -a")
(mu4e-headers-date-format "%Y-%m-%d %H:%M")
(mu4e-refile-folder "/Archive")
(mu4e-sent-folder "/Sent")
(mu4e-trash-folder "/Trash")
(mu4e-split-view 'horizontal)
(mu4e-compose-signature "Cheers Marcus (Nuremberg . Germany)\nGnuPG Key: https://meta.sr.ht/~marcuskammer.pgp\nFingerprint: 86DB 0F30 F9F1 661A 54E2 1664 C374 817B E285 268F")
(mu4e-update-interval (* 10 60)))
(use-package smtpmail
:ensure nil
:defer t
:custom
(message-send-mail-function 'smtpmail-send-it)
(smtpmail-smtp-server "smtp.mailbox.org")
(smtpmail-smtp-service 465)
(smtpmail-stream-type 'tls)
(message-send-mail-function 'smtpmail-send-it)
(smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")))
;; (setq mml-secure-openpgp-signers '("86DB0F30F9F1661A54E21664C374817BE285268F"))
;; (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)
(defun me/sign-email ()
;; Sign an Email using the key of the sender.
(interactive)
(setq mml-secure-openpgp-sign-with-sender t)
(mml-secure-message-sign-pgpmime)))

View file

@ -0,0 +1,7 @@
;; UTF-8 FTW
(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(setenv "PYTHONIOENCODING" "UTF-8")

41
bundle/bundle--gui.el Normal file
View file

@ -0,0 +1,41 @@
(use-package all-the-icons
:if (display-graphic-p)
:commands all-the-icons-install-fonts
:init
(unless (find-font (font-spec :name "all-the-icons"))
(all-the-icons-install-fonts t)))
(use-package all-the-icons-dired
:if (display-graphic-p)
:hook (dired-mode . all-the-icons-dired-mode))
(use-package doom-themes
:init (load-theme 'doom-nord t))
(use-package doom-modeline
:init (doom-modeline-mode 1)
:custom (doom-modeline-height 33))
(use-package helpful
:commands (helpful-callable helpful-variable helpful-command helpful-key)
:bind
([remap describe-command] . helpful-command)
([remap describe-key] . helpful-key))
(use-package rainbow-delimiters
:hook (prog-mode . rainbow-delimiters-mode))
(use-package olivetti
:init (add-hook 'Info-mode-hook (lambda () (olivetti-mode) (setq olivetti-body-width 89)))
:custom (olivetti-body-width 84)
:bind ("<f6>" . olivetti-mode))
(use-package ace-window
:init (global-set-key (kbd "M-o") 'ace-window))
(use-package emojify
:commands emojify-mode)
(use-package smartparens)
(use-package vertico
:init
(vertico-mode))
(use-package webjump
:bind ("C-c j" . webjump)
:custom
(webjump-sites
(append '(("Wikipedia_de" . [simple-query
"de.wikipedia.org"
"https://de.wikipedia.org/wiki/" ""]))
webjump-sample-sites)))

View file

@ -0,0 +1,38 @@
(setq holiday-oriental-holidays
'(()))
(setq holiday-islamic-holidays
'(()))
(setq holiday-bahai-holidays
'(()))
(setq holiday-hebrew-holidays
'(()))
(setq holiday-general-holidays
'((holiday-fixed 1 1 "Neujahr")
(holiday-fixed 5 1 "1. Mai")
(holiday-fixed 10 3 "Tag der Deutschen Einheit")))
(setq holiday-christian-holidays
'((holiday-float 12 0 -4 "1. Advent" 24)
(holiday-float 12 0 -3 "2. Advent" 24)
(holiday-float 12 0 -2 "3. Advent" 24)
(holiday-float 12 0 -1 "4. Advent" 24)
(holiday-fixed 12 25 "1. Weihnachtstag")
(holiday-fixed 12 26 "2. Weihnachtstag")
(holiday-fixed 1 6 "Heilige Drei Könige")
(holiday-easter-etc -48 "Rosenmontag")
;; (holiday-easter-etc -3 "Gründonnerstag")
(holiday-easter-etc -2 "Karfreitag")
(holiday-easter-etc 0 "Ostersonntag")
(holiday-easter-etc +1 "Ostermontag")
(holiday-easter-etc +39 "Christi Himmelfahrt")
(holiday-easter-etc +49 "Pfingstsonntag")
(holiday-easter-etc +50 "Pfingstmontag")
(holiday-easter-etc +60 "Fronleichnam")
(holiday-fixed 8 15 "Mariae Himmelfahrt")
(holiday-fixed 11 1 "Allerheiligen")
;; (holiday-float 11 3 1 "Buss- und Bettag" 16)
(holiday-float 11 0 1 "Totensonntag" 20)))

39
bundle/bundle--irc.el Normal file
View file

@ -0,0 +1,39 @@
(use-package erc
:defer t
:hook (erc-mode . emojify-mode)
:custom
(erc-track-shorten-start 8)
(erc-kill-buffer-on-part t)
(erc-auto-query 'bury)
(erc-hide-list '("JOIN" "PART" "QUIT"))
(erc-network-hide-list '(("irc.libera.chat" "JOIN" "PART" "QUIT")))
(erc-channel-hide-list '(("#emacs" "JOIN" "PART" "QUIT")))
(erc-rename-buffers t)
(erc-image-inline-rescale 300)
(erc-autojoin-channels-alist '(("libera.chat" "#emacs")))
(erc-interpret-mirc-color t)
(erc-modules '(autojoin
button
completion
fill
irccontrols
list
match
menu
move-to-prompt
netsplit
networks
noncommands
readonly
ring
stamp
track
image
truncate)))
(defun start-irc (nick)
(interactive "sTell me your nick please: ")
(erc-tls :server "irc.libera.chat"
:port 6697
:nick nick
:full-name "emacs-user"))

9
bundle/bundle--latex.el Normal file
View file

@ -0,0 +1,9 @@
(with-eval-after-load 'ox-latex
(add-to-list 'org-latex-classes
'("koma-article"
"\\documentclass{scrartcl}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))))

View file

@ -1,103 +1,33 @@
;;; bundle-mk.el --- Personal functions -*- lexical-binding: t; -*-
;; (defun mk-show-modeline ()
;; (interactive)
;; (setq mode-line-format
;; '(("-" mode-line-mule-info
;; mode-line-modified
;; mode-line-frame-identification
;; mode-line-buffer-identification " "
;; mode-line-position
;; mode-line-modes
;; (which-func-mode
;; ("" which-func-format "--"))
;; (global-mode-string
;; ("--" global-mode-string)) "-%-")))
;; (defvar mode-line-format-current
;; (symbol-value 'mode-line-format)))
;; Copyright (C) 2024 Marcus Kammer
;; (defun mk-hide-modeline ()
;; (interactive)
;; (setq mode-line-format nil))
;; Author: Marcus Kammer <marcus.kammer@mailbox.org>
;; Keywords:
;; (defun mk-write-mode-enable ()
;; (setq olivetti-body-width 73)
;; (olivetti-mode)
;; (mk-hide-modeline))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; (defun mk-write-mode-disable ()
;; (olivetti-mode)
;; (mk-show-modeline))
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Personal functions library
;;; Code:
(defun org-agenda-log-mode-colorize-block ()
"Set different line spacing based on clock time duration."
(save-excursion
(let* ((colors (cl-case (alist-get 'background-mode (frame-parameters))
('light (list "#d8dee9" "#e5e9f0" "#eceff4"))
('dark (list "#bf616a" "#d08770" "#ebcb8b" "#a3be8c" "#b48ead"))))
pos
duration)
(nconc colors colors)
(goto-char (point-min))
(while (setq pos (next-single-property-change (point) 'duration))
(goto-char pos)
(when (and (not (equal pos (point-at-eol)))
(setq duration (org-get-at-bol 'duration)))
;; larger duration bar height
(let ((line-height (if (< duration 15) 1.0 (+ 0.5 (/ duration 30))))
(ov (make-overlay (point-at-bol) (1+ (point-at-eol)))))
(overlay-put ov 'face `(:background ,(car colors) :foreground "black"))
(setq colors (cdr colors))
(overlay-put ov 'line-height line-height)
(overlay-put ov 'line-spacing (1- line-height))))))))
(add-hook 'org-agenda-finalize-hook #'org-agenda-log-mode-colorize-block)
(defun mk/extract-headlines-by-tag (tag)
"Extract headlines and their content from current buffer by TAG."
(interactive "sEnter tag: ")
(save-excursion
(let ((result-buffer (generate-new-buffer (concat "*Extracted Headlines " tag "*"))))
(with-current-buffer result-buffer
(org-mode)
(insert "* Extracted Headlines by Tag: " tag " *\n\n"))
(org-element-map (org-element-parse-buffer) 'headline
(lambda (headline)
(when (member tag (org-element-property :tags headline))
(with-current-buffer result-buffer
(insert (org-element-interpret-data headline) "\n")))))
(pop-to-buffer result-buffer))))
;; (load "bundle--mk")
(defvar mk/useful-websites
'(("https://regexr.com/" regex debug)
("https://regex101.com/" regex debug)
("https://www.regextester.com/" regex debug)
("https://extendsclass.com/regex-tester.html#python" regex debug)
("https://everything.curl.dev/" curl tool))
"I often forgot useful websites. So this is meant to be some kind of bookmark list.")
(defvar mk/mirror-website
"Locally mirror a website using `wget -mkEpnp <url>`")
(defvar mk/useful-regex
'(("match any word or space that precedes the :" . "[\\w\\s]+:")
("search for anything in square brackets" . "\\[.*\\]")
("upper and lowercase English alphabet" . "[A-Za-z]+")
("numbers from 0 to 9" . "[0-9]")
("upper and lowercase English alphabet, - and ." . "[A-Za-z\\-\\.]+")
("a, - and z" . "(a-z)")
("spaces or a comma" . "(\\s+|,)")
("find hashtags" . "#\\w+")
("matches both mentions (@) and hashtags" . "([@|#]\\w+)")
("email regex" . "^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\\.[a-zA-Z0-9-.]+$")
("matching decimal numbers" . "-?\\d+(\\.\\d*)?")
("matching urls" . "(?:http|https|ftp|mailto|file|data|irc):\\/\\/[A-Za-z0-9\\-]{0,63}(\\.[A-Za-z0-9\\-]{0,63})+(:\\d{1,4})?\\/*(\\/*[A-Za-z0-9\\-._]+\\/*)*(\\?.*)?(#.*)?")
("matching dates yyyy/mm/dd" . "^\\d{4}/(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])$")
("matching dates mm/dd/yyyy" . "^(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])/\\d{4}$")
("matching dates dd/mm/yyyy" . "^(0[1-9]|[12][0-9]|3[01])/(0[1-9]|1[0-2])/\\d{4}$")
("matching HTML" . "<.+>")
("matching specific tags" . "</?(?:p|a|b|img)(?: /)?>")
("ISO 8601 Date Format (YYYY-MM-DD)" . "\\([0-9]{4}\\)-\\([0-1][0-9]\\)-\\([0-3][0-9]\\)")))
(defun mk/split-windows-horizontal (count-windows)
(defun me/split-windows-horizontal (count-windows)
"Split windows horizontal by equal width."
(interactive "nHow many splits? ")
(delete-other-windows)
@ -105,7 +35,7 @@
(dotimes (i (1- count-windows))
(split-window-right (- width)))))
(defun mk/split-windows-vertical (count-windows)
(defun me/split-windows-vertical (count-windows)
"Split windows vertical by equal width."
(interactive "nHow many splits? ")
(delete-other-windows)
@ -113,16 +43,13 @@
(dotimes (i (1- count-windows))
(split-window-below (- height)))))
(defun mk/split ()
(mk/split-h3))
(defun mk/split-h3 ()
(defun me/split-h3 ()
(interactive)
(mk/split-windows-horizontal 3))
(me/split-windows-horizontal 3))
(defun mk/split-v3 ()
(defun me/split-v3 ()
(interactive)
(mk/split-windows-vertical 3))
(me/split-windows-vertical 3))
;; Set transparency of emacs
(defun transparency (value)
@ -130,369 +57,34 @@
(interactive "nTransparency Value 0 - 100 opaque: ")
(set-frame-parameter (selected-frame) 'alpha value))
(defun mk/show-agenda-list ()
(if (display-graphic-p)
(add-hook 'after-init-hook (lambda () (org-agenda-list) (mk/split-h3)))
(org-agenda-list)))
;; (if (display-graphic-p)
;; (add-hook 'after-init-hook (lambda () (org-agenda-list) (me/split-h3)))
;; (org-agenda-list))
(defun mk/list-files (folder suffix)
(let ((regexp (concat "\\." suffix "$")))
(directory-files folder nil regexp)))
(defvar mk/useful-websites
'(("https://regexr.com/" regex debug)
("https://regex101.com/" regex debug)
("https://www.regextester.com/" regex debug)
("https://extendsclass.com/regex-tester.html#python" regex debug)))
(defun mk/build-file-suffix ())
(defvar mk/mirror-website
"Locally mirror a website using `wget -mkEpnp <ur>`")
(defun mk/copy-files (src-dir dst-dir suffix)
(let ((src-files '())
(src-dir (expand-file-name src-dir))
(dst-dir (expand-file-name dst-dir)))
(dolist (file (mk/list-files src-dir suffix) src-files)
(let ((src-file (expand-file-name (concat src-dir "/" file)))
(dst-file (expand-file-name (concat dst-dir "/" file))))
(add-to-list 'src-files src-file)
(copy-file src-file dst-file t)))))
(defun mk/delete-files (lst)
(dolist (file lst)
(delete-file file t)))
(defun mk/get-current-time-formatted ()
(concat "#+DATE: "
(format "[%s]" (format-time-string "%Y-%m-%d %R" (current-time)))))
(defun mk/generate-unique-id ()
(interactive)
(let ((random-number-1 (random 9999))
(random-number-2 (random 9999)))
(let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2)))
(message "ID: %s" unique-id) unique-id)))
(defun mk/wget-mirror-site (url)
"Use wget to mirror a website for offline use. Takes a URL as argument."
(interactive "sEnter the URL to mirror: ")
(let ((cmd (format "wget --mirror --convert-links --adjust-extension --page-requisites --no-parent %s" url)))
(async-shell-command cmd)))
(defun mk/get-auth-source-key (host key)
"Retrieve the API key using 'auth-source'."
(require 'auth-source)
(let* ((auth-source-creation-prompts
'((secret . (format "API key for %s@%s: " key host))))
(found (nth 0 (auth-source-search
:max 1
:host host
:user key
:require '(:secret)
:create t)))
(secret (plist-get found :secret)))
(if (functionp secret)
(funcall secret)
secret)))
;; (load "bundle--linux")
(defvar linux-filesystem-alist
'(( "/" . "Root directory, the base of the filesystem hierarchy")
("/bin" . "Essential command binaries, needed for booting")
("/boot" . "Bootloader files, kernel, and other files needed during booting")
("/dev" . "Device files representing hardware components")
("/etc" . "System-wide configuration files")
("/home" . "User home directories")
("/lib" . "Shared libraries and kernel modules")
("/media" . "Mount points for removable media like CDs and USBs")
("/mnt" . "Temporary mount points for filesystems")
("/opt" . "Optional application software packages")
("/proc" . "Virtual filesystem providing info about processes and system")
("/root" . "Home directory for the root user")
("/sbin" . "Essential system binaries, usually for the root user")
("/srv" . "Data directories for services like HTTP, FTP, etc.")
("/sys" . "Virtual filesystem for kernel objects")
("/tmp" . "Temporary files, cleared on reboot")
("/usr" . "User binaries, documentation, libraries, etc.")
("/var" . "Variable files like logs, databases, etc."))
"Alist mapping Linux directories to their descriptions.")
(defun describe-linux-directory (dirname)
"Describe the purpose of a Linux directory.
Takes DIRNAME as an argument and prints its description."
(interactive "sEnter Linux directory name (e.g., /bin): ")
(let ((description (assoc-default dirname linux-filesystem-alist)))
(if description
(message "%s: %s" dirname description)
(message "Unknown directory: %s" dirname))))
(defvar bash-regex-alist
'(("empty line" . "^$")
("backslash" . "\\\\")
("line starts with a dot" . "^\\.")
("line ends with a dot" . "\\.$")
("line starts with a dollar sign" . "^\\$")
("line starts with a caret" . "^\\^")
("left square bracket" . "\\[")
("right square bracket" . "\\]")
("entire line" . "^.*$")
("any alphanumeric character" . "[a-zA-Z0-9]")
("IP Address" . "\\b(?:[0-9]{1,3}\\.){3}[0-9]{1,3}\\b")
("email" . "[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{2,}")
("hex color code" . "#[a-fA-F0-9]{6}")
("date in yyyy-mm-dd" . "\\b\\d{4}-\\d{2}-\\d{2}\\b")
("time in hh:mm:ss" . "\\b\\d{2}:\\d{2}:\\d{2}\\b")
("words without vowels" . "\\b[^aeiou\s]+\\b"))
"Alist mapping Bash regular expressions to their descriptions.")
(defun describe-bash-regex (regex)
"Describe the purpose of a Bash regular expression.
Takes REGEX as an argument and prints its description."
(interactive "sEnter Bash regex (e.g., empty line): ")
(let ((description (assoc-default regex bash-regex-alist)))
(if description
(message "%s: %s" regex description)
(message "Unknown regular expression: %s" regex))))
(defvar linux-process-commands-alist
'(("ps" . "Shows a snapshot of the current processes")
("top" . "Displays dynamic real-time view of system stats and processes")
("htop" . "An interactive process viewer, similar to top but more feature-rich")
("pgrep" . "Looks up processes based on name and other attributes")
("pstree" . "Displays the process tree in a tree-like diagram")
("ps -e" . "Lists all the processes running on the system")
("ps aux" . "Displays detailed information about all processes")
("kill" . "Terminates processes by sending signals")
("killall" . "Kills all processes that match the given name")
("pkill" . "Send signals to processes based on name and other attributes"))
"Alist mapping Linux process-checking commands to their descriptions.")
(defun describe-linux-process-command (command)
"Describe the purpose of a Linux process-checking command.
Takes COMMAND as an argument and prints its description."
(interactive "sEnter Linux process command (e.g., ps): ")
(let ((description (assoc-default command linux-process-commands-alist)))
(if description
(message "%s: %s" command description)
(message "Unknown command: %s" command))))
(defvar linux-logfiles-alist
'(("/var/log/syslog" . "System messages, including the messages that are logged during system startup")
("/var/log/auth.log" . "Security/authorization information, including user logins and authentication")
("/var/log/kern.log" . "Kernel logs")
("/var/log/cron.log" . "Logs for cron jobs")
("/var/log/messages" . "General system activity logs")
("/var/log/boot.log" . "System boot log")
("/var/log/daemon.log" . "Background daemon log messages")
("/var/log/dpkg.log" . "Logs for package installations and removals")
("/var/log/mail.log" . "Mail server logs")
("/var/log/user.log" . "User-level messages"))
"Alist mapping Linux log files to their descriptions.")
(defun describe-linux-logfile (logfile)
"Describe the purpose of a Linux log file.
Takes LOGFILE as an argument and prints its description."
(interactive "sEnter Linux log file path (e.g., /var/log/syslog): ")
(let ((description (assoc-default logfile linux-logfiles-alist)))
(if description
(message "%s: %s" logfile description)
(message "Unknown log file: %s" logfile))))
(defvar linux-basic-commands-alist
'(("list directory contents" . "ls")
("change directory" . "cd")
("move or rename files" . "mv")
("copy files" . "cp")
("remove files or directories" . "rm")
("print working directory" . "pwd")
("display variable value" . "echo")
("create an empty file" . "touch")
("change file permissions" . "chmod")
("change file ownership" . "chown"))
"Alist mapping basic Linux command descriptions to their commands.")
(defun describe-basic-linux-command (command)
"Describe the purpose of a basic Linux command.
Takes COMMAND as an argument and prints its description."
(interactive "sEnter basic Linux command (e.g., ls): ")
(let ((description (assoc-default command linux-basic-commands-alist)))
(if description
(message "%s: %s" command description)
(message "Unknown command: %s" command))))
(defvar chown-options-alist
'(("-R" . "Operate on files and directories recursively")
("--from" . "Change the owner and/or group of each file only if its current owner and/or group match specified values")
("--no-dereference" . "Affect symbolic links instead of the files they point to")
("--preserve-root" . "Fail when attempting to operate recursively on '/'")
("--reference" . "Use owner and group of a reference file")
("-c" . "Report when a change is made")
("-f" . "Suppress most error messages")
("-v" . "Output a diagnostic for every file processed"))
"Alist mapping chown command options to their descriptions.")
(defun describe-chown-option (option)
"Describe the purpose of a chown option.
Takes OPTION as an argument and prints its description."
(interactive "sEnter chown option (e.g., -R): ")
(let ((description (assoc-default option chown-options-alist)))
(if description
(message "%s: %s" option description)
(message "Unknown chown option: %s" option))))
(defvar chmod-options-alist
'(("-R" . "Operate on files and directories recursively")
("--preserve-root" . "Avoid operating recursively on '/'")
("-c" . "Report when a change is made")
("-f" . "Suppress most error messages")
("-v" . "Output a diagnostic for every file processed")
("--reference" . "Use mode of a reference file")
("-w" . "Remove write permission")
("-x" . "Remove execute permission")
("-u" . "Set user ID on execution")
("-g" . "Set group ID on execution"))
"Alist mapping chmod command options to their descriptions.")
(defun describe-chmod-option (option)
"Describe the purpose of a chmod option.
Takes OPTION as an argument and prints its description."
(interactive "sEnter chmod option (e.g., -R): ")
(let ((description (assoc-default option chmod-options-alist)))
(if description
(message "%s: %s" option description)
(message "Unknown chmod option: %s" option))))
(defvar ssh-use-cases-alist
'(("remote login" . "ssh user@host")
("run command" . "ssh user@host 'command'")
("file transfer" . "scp file.txt user@host:/path/")
("secure ftp" . "sftp user@host")
("port forwarding" . "ssh -L local_port:remote_host:remote_port user@host")
("dynamic port forwarding" . "ssh -D port user@host")
("remote port forwarding" . "ssh -R remote_port:local_host:local_port user@host")
("tunneling" . "ssh -L local_port:remote_host:remote_port user@host -f -N")
("agent forwarding" . "ssh -A user@host")
("ssh multiplexing" . "ssh -M -S /tmp/ssh_socket user@host; ssh -S /tmp/ssh_socket user@host"))
"Alist mapping SSH use cases to their corresponding commands.")
(defun describe-ssh-use-case (use-case)
"Describe the SSH command for a given use case."
(interactive "sEnter the SSH use case: ")
(let ((command (assoc-default use-case ssh-use-cases-alist)))
(if command
(message "Command for %s: %s" use-case command)
(message "Use case not found"))))
(defvar mk/remote-*host-aliases*
'(("website" . "marcus@www.marcuskammer.dev")
("survey" . "cl@survey.metalisp.dev")
("pihole" . "ubuntu@pi-hole.fritz.box"))
"Alist mapping friendly host names to actual SSH-compatible host strings.")
(defun mk/remote--get-real-host (alias)
"Lookup the real host name based on a given ALIAS."
(or (cdr (assoc alias mk/remote-*host-aliases*)) alias))
(defun mk/remote--systemctl-service (alias service command)
"Execute a systemctl COMMAND on a systemd SERVICE on a remote host identified by ALIAS.
ALIAS is a string that specifies the remote host; it can be an
alias defined in `mk/remote-*host-aliases*'.
SERVICE is the name of the systemd service to operate on.
COMMAND is the systemctl command to execute on the service (e.g.,
'start', 'stop', 'status')."
(let* ((host (mk/remote--get-real-host alias))
(buffer (generate-new-buffer (format "*%s-%s-%s*" alias service command)))
(process-name (format "systemctl-%s-%s" command service)))
(make-process :name process-name
:buffer buffer
:command `("ssh" ,host "sudo" "systemctl" ,command ,service)
:sentinel (lambda (process signal)
(when (memq (process-status process) '(exit signal))
(message "Process: %s %s" process signal))))))
(defmacro mk/remote-define-systemctl-functions (&rest actions)
"Dynamically create functions to interact with systemd services on a remote host.
Each function will be named `mk/remote-ACTION-service', where
ACTION is one of the symbols in ACTIONS. The functions will take
an ALIAS and SERVICE as arguments and call
`mk/remote--systemctl-service' accordingly."
`(progn
,@(mapcar
(lambda (action)
`(defun ,(intern (format "mk/remote-%s-service" action)) (alias service)
(interactive "sEnter the host alias or name: \nsEnter the service name: ")
(mk/remote--systemctl-service alias service ,(symbol-name action))))
actions)))
(mk/remote-define-systemctl-functions start stop status)
(defun mk/remote--log (alias service filename)
(let* ((filepath (concat "/var/log/" service (unless (string-empty-p filename) (concat "/" filename))))
(host (mk/remote--get-real-host alias))
(buffer (generate-new-buffer (format "*%s-%s-%s*" alias service filename)))
(process-name (format "log-%s-%s" service filename)))
(make-process :name process-name
:buffer buffer
:command `("ssh" ,host "sudo" "tail -f" ,filepath)
:sentinel (lambda (process signal)
(when (memq (process-status process) '(exit signal))
(message "Process: %s %s" process signal))))))
(defmacro mk/define-remote-log-function (alias service &optional filename)
"Define a function to asynchronously tail a remote log file."
(let ((fname (if filename filename "")))
`(defun ,(intern (format "mk/remote-log-%s-%s-%s" alias service filename)) ()
,(format "Tail the remote log file: %s" filename)
(interactive)
(mk/remote--log ,alias ,service ,fname))))
(mk/define-remote-log-function "website" "nginx" "access.csv")
(mk/define-remote-log-function "website" "nginx" "error.log")
(mk/define-remote-log-function "website" "syslog")
(mk/define-remote-log-function "survey" "nginx" "access.csv")
(mk/define-remote-log-function "survey" "syslog")
(mk/define-remote-log-function "pihole" "pihole" "pihole.log")
(defun mk/babel-ansi ()
(when-let ((beg (org-babel-where-is-src-block-result nil nil)))
(save-excursion
(goto-char beg)
(when (looking-at org-babel-result-regexp)
(let ((end (org-babel-result-end))
(ansi-color-context-region nil))
(ansi-color-apply-on-region beg end))))))
(add-hook 'org-babel-after-execute-hook 'mk/babel-ansi)
(defun mk/toggle-frame-decorations ()
"Toggle the window decorations (title bar, menu bar, tool bar, scroll bar) for the current frame."
(interactive)
(let* ((frame (selected-frame))
(current-undecorated (frame-parameter frame 'undecorated))
(new-undecorated (not current-undecorated)))
(set-frame-parameter frame 'undecorated new-undecorated)
(if new-undecorated
(progn
(menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)))
(message "Window decorations %s" (if new-undecorated "disabled" "enabled"))))
(global-set-key (kbd "<f12>") 'mk/toggle-frame-decorations)
(defun mk/set-frame-size-85x50 ()
"Set the current frame's size to 85 columns by 50 rows."
(interactive)
(set-frame-size (selected-frame) 92 53))
(global-set-key (kbd "M-<f11>") #'mk/set-frame-size-85x50)
(defun shell-new-bottom ()
"Open a shell window in the bottom third of the current window."
(interactive)
(let* ((current-window (selected-window))
(new-window (split-window-below (- (window-height) (/ (window-height) 3)))))
(select-window new-window)
(shell)
(select-window current-window)))
(provide 'bundle-mk)
;;; bundle-mk.el ends here
(defvar mk/useful-regex
'(("[\w\s]+:" "match any word or space that precede the :")
("\[.*\]" "search for anything in square brackets")
("[A-Za-z]+" "upper and lowercase english alphabet")
("[0-9]" "numbers from 0 to 9")
("[A-Za-z\-\.]" "upper and lowercase english alphabet, - and .")
("(a-z)" "a, - and z")
("(\s+|,)" "spaces or a comma")
("#\w+" "find hashtags")
("([@|#]\w+)" "matches both mentions (@) and hashtags")
("(^[a-zA-Z0-9_.+-]+@[a-zA-Z0-9-]+\.[a-zA-Z0-9-.]+$)" "email regex")
("-?\d+(\.\d*)?" "matching decimal numbers")
("(?:http|https|ftp|mailto|file|data|irc):\/\/[A-Za-z0-9\-]{0,63}(\.[A-Za-z0-9\-]{0,63})+(:\d{1,4})?\/*(\/*[A-Za-z0-9\-._]+\/*)*(\?.*)?(#.*)?" "matching urls")
("^\d{4}/(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])$" "matching dates yyyy/mm/dd")
("^(0[1-9]|1[0-2])/(0[1-9]|[12][0-9]|3[01])/\d{4}$" "matching dates mm/dd/yyyy")
("^(0[1-9]|[12][0-9]|3[01])/(0[1-9]|1[0-2])/\d{4}$" "matching dates dd/mm/yyyy")
("<.+>" "matching html")
("<\/?(?:p|a|b|img)(?: \/)?>" "matchig specific tags")))

94
bundle/bundle--news.el Normal file
View file

@ -0,0 +1,94 @@
(use-package eww
:defer t
:init
(add-hook 'eww-after-render-hook #'shrface-mode)
:config
(require 'shrface)
(setq shr-use-colors nil
shr-use-fonts nil
shr-cookie-policy nil
browse-url-browser-function (quote eww-browse-url)))
(use-package elfeed
:bind ("C-x w" . elfeed)
:init
(setq elfeed-feeds
'(("http://nullprogram.com/feed/" lisp blog)
("https://m-x-erlangen.gitlab.io/atom.xml" lisp meetup)
("https://takeonrules.com/index.atom" lisp emacs blog)
("https://www.fsf.org/static/fsforg/rss/news.xml" fsf news)
("https://www.fsf.org/static/fsforg/rss/blogs.xml" fsf blogs)
("https://www.fsf.org/static/fsforg/rss/events.xml" fsf events)
("https://netzpolitik.org/feed/" netz politik news)
;; ("https://logbuch-netzpolitik.de/feed/m4a" netz politik podcast meta)
("https://lisp-journey.gitlab.io/index.xml" lisp blog)
("https://www.guyrutenberg.com/feed/" linux blog)
;; ("https://c-for-dummies.com/blog/?feed=rss2" cc blog)
("https://www.raspberrypi.com/news/feed/" blog pi os)
("https://planet.emacslife.com/atom.xml" emacs)
("https://planet.lisp.org/rss20.xml" lisp blogs)
("https://drewdevault.com/blog/index.xml" coding golang blog)
("https://emacsredux.com/atom.xml" emacs blog)
("https://yiming.dev/rss.xml" coding emacs lisp blog)
("https://endlessparentheses.com/atom.xml" emacs elisp blog)
("https://blog.mozilla.org/en/feed/" browser web)
("https://blog.codinghorror.com/rss/" coding blog)
("https://blog.chromium.org/feeds/posts/default" browser web)
("https://hacks.mozilla.org/feed/" browser web)
("https://www.interaction-design.org/rss/site_news.xml" ux design)
;; ("https://www.nngroup.com/feed/rss/" ux design)
;; ("https://uxpamagazine.org/?feed=full" ux design)
;; ("https://feedpress.me/UXmatters" ux design)
;; ("https://uxmovement.com/feed" ux design)
;; ("https://www.uxbeginner.com/feed/" ux design)
;; ("https://jeffgothelf.com/feed/" lean ux design blog)
("https://www.colinmclear.net/posts/index.xml" research emacs blog)
("https://en.wikipedia.org/w/api.php?action=featuredfeed&feed=onthisday&feedformat=atom" general)
;; ("https://uxwritinghub.com/feed/" ux writing blog)
("https://www.philnewton.net/blog/feed/" emacs blog)
("https://emacsredux.com/atom.xml" emacs blog)
("https://marcus3santos.github.io/index.xml" emacs blog)
("https://pragdave.me/feed.xml" coding blog)
;; ("https://feeds.feedburner.com/PythonInsider" security bugs python news)
("https://mailbox.org/share/feed-de-mailbox.xml" email mailbox web)
;; ("https://blog.codinghorror.com/rss/" blog coding)
;; ("https://makezine.com/feed/" blog hardware hacking make)
;; ("https://blog.pythonanywhere.com/index.xml" blog python hosting)
;; ("https://pbpython.com/feeds/all.atom.xml" blog python)
("https://feeds.feedburner.com/GoogleWebFonts" fonts blog google)
("https://feeds.feedburner.com/glyph" python blog)
;; ("https://uxcontent.com/feed/" ux writing blog)
;; ("https://userlutions.com/feed/" ux usability blog)
("https://nostarch.com/feeds/newbooks.xml" books)
("https://www.djangoproject.com/rss/weblog/" django python official news)
;; ("https://realpython.com/atom.xml?format=xml" python blog)
;; ("https://feeds.feedburner.com/PythonSoftwareFoundationNews" python psf news)
;; ("https://appliedgo.net/index.xml" golang blog)
;; ("https://blog.learngoprogramming.com/feed" golang blog)
;; ("https://www.askpython.com/feed" python tutorials docs)
;; ("https://gosamples.dev/index.xml" golang blog)
;; ("https://golangbyexample.com/feed/" golang blog)
;; ("https://go.dev/blog/feed.atom" golang blog official)
;; ("https://golangdocs.com/feed" golang tutorials docs)
;; ("https://golangnews.com/index.xml" golang news)
("https://metaebene.me/feed/m4a/" podcast)
;; ("https://blog.rust-lang.org/feed.xml" rust blog news)
)
elfeed-search-filter "@4-day-ago +unread"))
(use-package gnus
:ensure nil
:hook (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
:custom
(user-full-name "Marcus Kammer")
(gnus-inhibit-startup-message t)
(gnus-check-new-newsgroups nil)
(gnus-select-method '(nntp "news.individual.de"
(nntp-open-connection-function nntp-open-ssl-stream)
(nntp-port-number 563)))
:config
(add-to-list 'gnus-secondary-select-methods
'(nnimap "mailbox"
(nnimap-address "imap.mailbox.org")
(nnimap-server-port 143)
(nnimap-stream starttls))))

187
bundle/bundle--org.el Normal file
View file

@ -0,0 +1,187 @@
(use-package org
:ensure nil
:hook (org-mode . turn-on-auto-fill)
:init (org-clock-persistence-insinuate)
:bind
(("C-c l" . org-store-link)
("C-c a" . org-agenda)
("C-c c" . org-capture)
("C-c b" . org-switchb))
:init
(org-babel-lob-ingest "~/.emacs.d/library-of-babel.org")
:custom
(org-hide-emphasis-markers nil)
(org-default-notes-file "notes.org")
(org-insert-mode-line-in-empty-file t)
(org-adapt-indentation nil)
(org-agenda-prefix-format
'((agenda . " %i %-12:c%?-12t%-6e% s")
(todo . " %i %-12:c %-6e")
(tags . " %i %-12:c")
(search . " %i %-12:c")))
(org-agenda-dim-blocked-tasks nil)
(org-agenda-inhibit-startup nil)
(org-agenda-span 7)
(org-agenda-start-on-weekday 1)
(org-agenda-include-diary t)
(org-capture-templates
'(
;; Just make a note
("n" "Note" entry
(file+headline "notes.org" "Notes") "* %k\n%U\n- %l\n- %K\n%i\n%?")
;; Task driven life
("t" "Task" entry
(file+headline "planning.org" "Tasks") "* TODO %?\n%u\n%a")
;; Recurring appointments
("a" "Appointment" entry
(file+headline "planning.org" "Appointments") "* %?\n%T\n")
;; Capture a meeting
("m" "Meeting" entry
(file+headline "planning.org" "Meetings") "* %? :MEETING:\n%T" :clock-in t)
;; Capture a training
("w" "Training" entry
(file+headline "planning.org" "Trainings") "* %? :TRAINING:\n%T" :clock-in t)
;; Log my activities
("j" "Journal" entry
(file+olp+datetree "journal.org" "Journal") "* %^{Activity}\nEntered on %U\n%i\n%?" :tree-type week)
;; Log my activities
("l" "Log" entry
(file+olp+datetree "journal.org" "Logbook") "* %U - %^{Activity} :LOG:")
;; Log my growth talks
("g" "Growth Talk" entry
(file+olp+datetree "growthtalk.org" "Talks") "* %U - %^{Activity} :TALK:")
;; Record general hours
("A" "Allgemein" table-line (file+olp "journal.org" "Stunden" "Allgemein") "| %u | %^{Stunden} | %? |")
;; Record general hours
("B" "Buy" table-line (file+olp "journal.org" "Shopping") "| %u | %^{Preis} | %? |")))
(org-clock-out-remove-zero-time-clocks t)
(org-clock-persist t)
(org-clock-rounding-minutes 30)
(org-confirm-babel-evaluate nil)
(org-duration-format (quote h:mm))
(org-export-with-sub-superscripts nil)
(org-export-dispatch-use-expert-ui nil)
(org-export-backends
'(ascii html latex md))
(org-global-properties
'(("EFFORT_ALL" . "0:30 1:00 2:00 3:00 5:00 8:00")))
(org-html-doctype "html5")
(org-html-html5-fancy t)
(org-html-htmlize-output-type nil)
(org-latex-pdf-process
'("latexmk -xelatex -shell-escape -quiet -f %f"))
(org-latex-compiler "xelatex")
(org-latex-listings t)
(org-log-done (quote time))
(org-refile-targets '((nil :maxlevel . 3)))
(org-startup-folded t)
(org-startup-truncated nil)
(org-src-fontify-natively t)
(org-src-tab-acts-natively t)
(org-src-window-setup 'other-window)
(org-time-stamp-rounding-minutes '(30 30))
(org-todo-keywords
'((sequence "TODO" "DOING(!)" "DONE(!)")
(sequence "RECRUIT" "INTERVIEW" "QDA" "DOC" "REVIEW")))
(org-use-property-inheritance nil)
:config
(when (eq system-type 'windows-nt)
(setq org-babel-sqlite3-command "c:/msys64/mingw64/bin/sqlite3.exe"))
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t) (gnuplot . t) (python . t) (sqlite . t) (shell . t)))
;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks.
(defun org-agenda-log-mode-colorize-block ()
"Set different line spacing based on clock time duration."
(save-excursion
(let* ((colors (cl-case (alist-get 'background-mode (frame-parameters))
('light (list "#d8dee9" "#e5e9f0" "#eceff4"))
('dark (list "#bf616a" "#d08770" "#ebcb8b" "#a3be8c" "#b48ead"))))
pos
duration)
(nconc colors colors)
(goto-char (point-min))
(while (setq pos (next-single-property-change (point) 'duration))
(goto-char pos)
(when (and (not (equal pos (point-at-eol)))
(setq duration (org-get-at-bol 'duration)))
;; larger duration bar height
(let ((line-height (if (< duration 15) 1.0 (+ 0.5 (/ duration 30))))
(ov (make-overlay (point-at-bol) (1+ (point-at-eol)))))
(overlay-put ov 'face `(:background ,(car colors) :foreground "black"))
(setq colors (cdr colors))
(overlay-put ov 'line-height line-height)
(overlay-put ov 'line-spacing (1- line-height))))))))
(add-hook 'org-agenda-finalize-hook #'org-agenda-log-mode-colorize-block))
(use-package org-roam
:after org
:init
(setq org-roam-v2-ack t)
(setq org-roam-db-location "~/org-roam.db")
(require 'org-roam-dailies)
:bind (("C-c r l" . org-roam-buffer-toggle)
("C-c r f" . org-roam-node-find)
("C-c r g" . org-roam-graph)
("C-c r i" . org-roam-node-insert)
("C-c r c" . org-roam-capture)
("C-c r j" . org-roam-dailies-map)
:map org-roam-dailies-map
("t" . org-roam-dailies-capture-today)
("y" . org-roam-dailies-capture-yesterday)
("T" . org-roam-dailies-capture-tomorrow)
:map org-mode-map
("C-M-i" . completion-at-point))
:custom
(org-roam-completion-everywhere t)
(org-roam-dailies-capture-templates
'(("d" "default" entry "* %<%R> %?"
:if-new (file+head "%<%F>.org" "#+title: %<%F>\n"))))
(org-roam-capture-templates
'(("d" "default" plain
"%?"
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n")
:unnarrowed t)
("n" "Note" plain
"%?"
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n%l\n\n%i")
:unnarrowed t)
("p" "personas" plain
"%?"
:if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n#+date: %U\n* Personality\n* Behaviors\n* Needs & Goals\n")
:unnarrowed t))))
(use-package org-tree-slide
:bind ("<f5>" . org-tree-slide-mode)
:custom
(org-image-actual-width nil))
(use-package org-web-tools
:defer t
:custom (org-web-tools-pandoc-sleep-time 0.4))
;; (use-package ob-go
;; :after org)
(use-package ox-reveal
:after org)
;; (defun me/write-readme-md-on-save ()
;; ;; when README.org, also write README.md on save
;; (when (string-match "README" (buffer-file-name))
;; (make-local-variable 'after-save-hook)
;; (add-hook 'after-save-hook
;; (lambda () (let ((outfile (org-export-output-file-name ".md")))
;; (org-export-to-file 'md outfile))))))
;; (add-hook 'org-mode-hook 'me/write-readme-md-on-save)

203
bundle/bundle--package.el Normal file
View file

@ -0,0 +1,203 @@
;; PACKAGE
(require 'package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless package-archive-contents
(package-refresh-contents))
(unless (package-installed-p 'use-package)
(package-install 'use-package))
;; USE-PACKAGE
(require 'use-package)
(setq use-package-always-ensure t)
(load "bundle--gui")
(use-package shrface
:defer t
:config
(shrface-basic)
(shrface-trial)
(shrface-default-keybindings) ; setup default keybindings
(setq shrface-href-versatile t
shrface-toggle-bullets t
shr-width nil))
(use-package nov
:hook (nov-mode . olivetti-mode)
:mode ("\\.epub\\'" . nov-mode)
:config
(setq nov-text-width nil
nov-variable-pitch nil)
(when (eq system-type 'windows-nt)
(setq nov-unzip-program "c:/msys64/usr/bin/unzip.exe")))
(use-package eglot
:defer t
:config
(add-to-list 'eglot-server-programs '((c++-mode c-mode) "ccls")))
(use-package lisp-mode
:ensure nil
:mode (("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode)))
(use-package geiser
:defer t
:config
(setq geiser-active-implementations '(racket guile)))
(use-package geiser-racket
:defer t
:after geiser
:config
(when (eq system-type 'windows-nt)
(setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
(use-package geiser-guile
:defer t
:after geiser
:config
(setq geiser-guile-binary "guile"))
(use-package cc-mode
;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
:ensure nil
;; :hook (c-mode . eglot-ensure)
:hook (c-mode-common . c-toggle-auto-newline)
:custom
(fill-column 79) ; according to gnu style guide
(c-basic-offset 2) ; ""
:config
(defun me/c-mode-style-hook ()
;; if linux kernel source use linux style, else use gnu style
(c-set-style
(if (and (buffer-file-name)
(string-match "/usr/src/linux" (buffer-file-name)))
"linux"
"gnu")))
(add-hook 'c-mode-common-hook 'me/c-mode-style-hook)
(defun me/c-mode-compile-command-hook ()
;; if no makefile use gcc for compile command
(unless (or (file-exists-p "makefile")
(file-exists-p "Makefile"))
(set (make-local-variable 'compile-command)
(concat "gcc " "-Wall " "-g " buffer-file-name " -o "
(file-name-sans-extension buffer-file-name)))))
(add-hook 'c-mode-common-hook 'me/c-mode-compile-command-hook)
(defun me/c-mode-compile-on-save ()
;; compile on save hook
(make-local-variable 'after-save-hook)
(add-hook 'after-save-hook (lambda () (compile compile-command))))
(add-hook 'c-mode-common-hook 'me/c-mode-compile-on-save))
(use-package js-mode
:ensure nil
:hook (js-mode . eglot-ensure)
:mode (("\\.webmanifest\\'" . js-mode)
("\\.js\\'" . js-mode)))
(use-package go-mode
:mode ("\\.go\\'" . go-mode)
:config
(add-hook 'before-save-hook #'gofmt-before-save)
(add-hook 'go-mode-hook 'eglot-ensure)
(defun me/go-mode-compile-command-hook ()
;; if no makefile use go build for compile command
(unless (or (file-exists-p "makefile")
(file-exists-p "Makefile"))
(set (make-local-variable 'compile-command)
(concat "go " "vet " buffer-file-name))))
(add-hook 'go-mode-hook 'me/go-mode-compile-command-hook)
(defun me/go-mode-compile-on-save ()
;; compile on save hook
(make-local-variable 'after-save-hook)
(add-hook 'after-save-hook (lambda () (compile compile-command))))
(add-hook 'go-mode-hook 'me/go-mode-compile-on-save))
(use-package web-mode
;; :hook html-mode
:mode (("\\.html?\\'" . web-mode)
("\\.tmpl\\'" . web-mode))
:custom
(web-mode-markup-indent-offset 2)
(web-mode-css-indent-offset 2)
(web-mode-code-indent-offset 2)
(web-mode-enable-auto-pairing nil)
(web-mode-enable-auto-closing t)
(web-mode-enable-current-element-highlight t)
(web-mode-enable-current-column-highlight t))
(use-package racket-mode
:init (require 'smartparens-config)
:mode "\\.rkt\\'")
(use-package python
:mode (("\\.py\\'" . python-mode)
("\\.wsgi$" . python-mode)
("\\.j2" . python-mode))
:init
(setq python-indent-offset 4)
(setq-default indent-tabs-mode nil)
:custom
(fill-column 79)
:config
(add-hook 'python-mode-hook 'eglot-ensure))
(use-package slime
:defer t
:custom
(slime-autodoc-use-multiline-p 1)
:config
(setq inferior-lisp-program (executable-find "sbcl"))
(slime-setup '(slime-autodoc
slime-fancy
slime-asdf
slime-indentation
slime-editing-commands
slime-sbcl-exts))
(when (eq system-type 'windows-nt)
(setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe")
sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core")
inferior-lisp-program "sbcl"
slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))))
(use-package simple-httpd
:defer t)
(use-package go-translate
:defer t
:config
(setq gts-translate-list '(("en" "de")))
(setq gts-default-translator
(gts-translator
:picker (gts-prompt-picker)
:engines (list (gts-google-engine) (gts-google-rpc-engine))
:render (gts-buffer-render))))
(use-package sql
:ensure nil
:defer t
:config
(when (eq system-type 'windows-nt)
(setq sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe")))
(use-package magit
:bind ("C-x g" . magit-status)
:config
(global-set-key (kbd "C-x M-g") 'magit-dispatch))
(use-package yaml-mode
:mode "\\.yml\\'")
(use-package csv-mode
:mode "\\.csv\\'")
(load "bundle--irc")
(load "bundle--news")

View file

@ -1,14 +0,0 @@
;;; bundle--qda.el --- Data and functions for qualitative data analysis
(use-package subed
:config
;; Disable automatic movement of point by default
(add-hook 'subed-mode-hook 'subed-disable-sync-point-to-player)
;; Remember cursor position between sessions
(add-hook 'subed-mode-hook 'save-place-local-mode)
;; Break lines automatically while typing
(add-hook 'subed-mode-hook 'turn-on-auto-fill)
;; Break lines at 40 characters
(add-hook 'subed-mode-hook (lambda () (setq-local fill-column 40)))
(when (eq system-type 'windows-nt)
(when (directory-name-p "c:/msys64/")
(setq subed-mpv-executable "c:/msys64/mingw64/bin/mpv.exe"))))

5
bundle/bundle--server.el Normal file
View file

@ -0,0 +1,5 @@
(require 'server)
;; Start a server if (server-running-p) does not return t (e.g. if it
;; returns nil or :other)
(or (eq (server-running-p) t)
(server-start))

View file

@ -1,32 +0,0 @@
;;; bundle--stats.el --- Statistics Lib -*- lexical-binding: t; -*-
;; Author: Marcus Kammer
;; Version: 0.0.1
;; Keywords: statistics
(defun stats:evenp (number)
(if (= 0 (% number 2))
t
nil))
(defun stats:oddp (number)
(not (evenp number)))
(defun stats:mean (list)
(/ (apply #'+ list) (float (length list))))
(defun stats:median (list)
(let* ((sorted (sort (copy-sequence list) #'<))
(len (length sorted))
(mid (floor (/ len 2))))
(if (evenp len)
(/ (+ (nth mid sorted) (nth (1- mid) sorted)) 2.0)
(nth mid sorted))))
(defun stats:standard-deviation (list)
(let ((m (stats:mean list)))
(sqrt (/ (seq-reduce (lambda (x acc) (+ x (expt (- x m) 2))) list 0)
(length list)))))
(provide 'bundle--stats)
;;; bundle--stats.el ends here

View file

@ -1,396 +0,0 @@
;; Personal UX database. Goal of this database is to provide funtions and data
;; to generate an org file for ux planning.
(require 'org)
(require 'cl-lib)
(defvar ux:glossary
'((context-of-use "The Context of Use is the actual conditions under which a given artifact/software product is used, or will be used in a normal day to day working situation.")))
(defvar ux:roles
'((strategist "In essence, the UX strategist gives valuable input and suggestions to key business decisions with a user-centered mindset. They work with different stakeholders to determine what features to improve upon or add to the product—always with the goal of improving the business overall.")
(architect "The purpose of a User Experience (UX) Architect is to develop the structure and flow of a digital solution (website, app, software, mobile, etc.). The Architect conducts research, interviews, and surveys, and then translates that information into sitemaps, wireframes, and prototypes.")
(consultant "UX consultants research customers, audit websites, create and test prototypes, and train their clients in user experience best practices.")
(researcher "The purpose of user research is to put your design project into context. It helps you understand the problem you're trying to solve; it tells you who your users are, in what context they'll be using your product or service, and ultimately, what they need from you, the designer!")
(designer "The goal of UX design in business is to “improve user satisfaction and loyalty through the utility, ease of use, and pleasure provided in the interaction with a product.”")
(writer "A UX writer plans and writes the microcopy in apps, websites, and other digital products users need to navigate a product. A user experience (UX) writer creates copy for apps, websites, and other digital products that help users navigate the product.")
(analyst "A UX analyst, also known as a usability analyst, is a member of a UX design team who studies data to determine how users engage with a software product, such as an application or website.")))
(defvar ux:methods
'((contextual-inquiry "Contextual inquiry is a type of ethnographic field study that involves in-depth observation and interviews of a small sample of users to gain a robust understanding of work practices and behaviors." research)
(interview "User interviews are guided interviews where a researcher asks existing or potential users questions to gain an understanding of their preferences, thoughts and feelings." research)
(focus-group "A focus group is a research method that brings together a small group of people to answer questions in a moderated setting." research)
(diary-study "A diary study is a research method used to collect qualitative data about user behaviors, activities, and experiences over time." research)
(usability-testing "The goal is to identify any usability problems, collect qualitative and quantitative data and determine the participant's satisfaction with the product." research)
(web-analytics "Web analytics is the collection, reporting, and analysis of website data. The focus is on identifying measures based on your organizational and user goals and using the website data to determine the success or failure of those goals and to drive strategy and improve the users experience." research)
(survey "A process of asking questions that are answered by a sample of a defined group of people to get numbers that you can use to make decisions." research)
(tree-testing "Tree Testing is a usability technique for evaluating the difficulty of finding topics in a website." research)
(card-sorting "Card Sorting is a user-centered research method used to help determine how people categorize a set of items - referred to as 'cards' - to increase the users ability to find them. The technique can be used to determine both the naming of the categories and the grouping of the items within the categories." research design)
(sketching "Sketching is a distinctive form of drawing which designers use to propose, explore, refine and communicate ideas." design)
(design-thinking "Design thinking is a non-linear, iterative process that teams use to understand users, challenge assumptions, redefine problems and create innovative solutions to prototype and test." design research writing)
(prototyping "A simulation or sample version of a final product, which UX teams use for testing before launch." design research)
(content-strategy "Content strategy focuses on the planning, creation, delivery, and governance of content." writing)))
(defvar ux:deliverables
'((information-architecture "Organizing, structuring, and labeling content in an effective and sustainable way." design)
(user-flow "The user flow lays out the user's movement through the product, mapping out each and every step the user takes—from entry point right through to the final interaction" design)
(wireframe "A wireframe is a diagram or a set of diagrams that consists of simple lines and shapes representing the skeleton of a website or an application's user interface (UI) and core functionality." design)
(storyboard "a sequence of drawings, typically with some directions and dialogue, representing the users perspective." design)
(environment-design "Represents the overall product structure." design)
(user-journey "A person's experience during one session of using a website or application, consisting of the series of actions performed to achieve a particular goal." research)
(persona "The aspect of someone's character that is presented to or perceived by others." research)
(affinity-diagram "An affinity diagram is a collection of large amounts of data that is organized into groups or themes based on their relationships." research)
(mental-model "A mental model is an explanation of someone's thought process about how something works in the real world." research)))
(defvar ux:maps
'((user-journey)
(customer-journey "A journey map shows a person's interaction with a company and brand over time, shedding particular light on decisions to purchase and remain loyal to a solution.")
(service-blueprint "A service blueprint describes in detail the frontstage and backstage processes of providing a service within a particular interaction episode.")))
(defvar ux:maturity-levels
'((isolated
"strategy set by management"
"scope set by product owner"
"developers driven by features"
"second-guessing users"
"little or no design budget"
"minor usability/visual tweaks"
"design joint later in project"
"sprinkling of magic"
"culture resistance")
(reliant
"budget allocated for design"
"interactive design and testing"
"ethnographic research begins"
"some direct customers contacts"
"research driving features"
"design “as user expert” in room"
"work across product teams"
"minimum knowledge sharing"
"deliverable becomes lean"
"cultural barriers coming down")
(central
"specialism on design team"
"design on project the norm"
"product discovery/agile process"
"design planned and budgeted for"
"product scoped with owners"
"regular research and testing"
"developers using user stories"
"user testing accumulating data"
"awareness of design outside team"
"design team spread thin")
(managed
"Company-wide, central resource"
"Multiple digital touchpoints"
"Responsible for experience"
"Scope project to fit strategy"
"Generalist manager picking projects"
"Several specialist design staff"
"Standard usability testing metrics"
"Harmonized product details"
"Coaching of other teams begins"
"Testing evidence of success")
(strategic
"User-driven organization"
"Set strategy with senior staff"
"Comprehensive user database"
"Team road map, plan portfolio"
"Teams have performance targets"
"Work across digital devices"
"Team sets and governs standards"
"Established process company-wide"
"Engagement at senior level"
"Research and test new hypothesis"))
"The UX-maturity model provides a framework to assess each
organization's UX-related strengths and weaknesses.")
(defvar ux:usability:research-questions
'((web-sites
"How easily do users understand what is clickable?"
"How easily and successfully do users find the products or information they are looking for?"
"How easily and successfully do users register for the site?"
"Where in the site do users go to find Search? Why?"
"How easily can users return to the home page?")
(small-interfaces
"How easily do users switch between modes on multi-purpose buttons?"
"How well do users understand the symbols and icons?"
"Which ones are problematic? Why?"
"How easily do users download updates and features?"
"How quickly can users perform common tasks?")
(hardware
"How easily and successfully can users use all buttons on the control panel?"
"Can users use the control panel without assistance or training?"
"How easily can users find the correct input and output ports?"
"How easily can users change settings in the menus?")
(documentation
"Do users go to online help when they encounter error messages?"
"How easily do users find topics they are looking for in the online help?"
"How well do the topic titles reflect what user are looking for?"
"How well do they understand the content of the topics they find?"
"How helpful is the topic content?"
"Which parts of each topic do users pay attention to?"
"Can users easily switch between reading the online help and interacting with the interface to complete the task?")
(software
"How closely does the flow of the software reflect how the user thinks of the work flow? "
"How easily and successfully do users find the tools or options they want?"
"Do users use the toolbar icons or the standard menus? Why?"
"Is the response time a cause of user frustration or errors?")
(general
"What obstacles prevent users from completing installation and set up?"
"Can users perform common tasks within established benchmarks?"
"What are the major usability flaws that prevent users from completing the most common tasks?"
"How does ease-of-use compare in the planned release to the last release?"
"How does ease-of-use compare between our product and the competition?"
"Is there an appropriate balance of ease of use and ease of learning?"))
"Example of questions which can be answered through usability tests.")
(defvar ux:usability:test-plan-categories
'("Purpose, goals, and objectives of the test"
"Research questions"
"Participant characteristics"
"Method (test design)"
"Task list"
"Test environment, equipment, and logistics"
"Test moderator role"
"Data to be collected and evaluation measures"
"Report contents and presentation"))
(defvar ux:usability:heuristics
'("Visibility of system status"
"Match between system and the real world"
"User control and freedom"
"Consistency and standards"
"Error prevention"
"Recognition rather than recall"
"Flexibility and efficiency of use"
"Aesthetic and minimalist design"
"Help users recognize, diagnose, and recover from errors"
"Help and documentation")
"https://www.nngroup.com/articles/ten-usability-heuristics/")
(defvar ux:research:want-to-learn
'((customer
"Their goals in purchasing the product."
"Their frustrations with current solutions."
"Their decision process for purchasing a product of the type youre designing."
"Their role in installing, maintaining, and managing the product."
"Domain-related issues and vocabulary.")
(user
"The context of how the product (or analogous system, if no current product exists) fits into their lives or work flow: when, why, and how the product is or will be used."
"Domain knowledge from a user perspective: What do users need to know to do their jobs?"
"Current tasks and activities: both those the current product is required to accomplish and those it doesnt support."
"Goals and motivations for using their product."
"Mental model: how users think about their jobs and activities, as well as what expectations users have about the product."
"Problems and frustrations with current products (or an analogous system if no current product exists)."))
"What do we want to learn from users or/and customers?")
(defvar ux:behavior-model
'(pain
"Mental or emotional distress or suffering."
"Many people suffer because of climate change, it has to be stopped."
(gain
"Something wanted or Desirable."
"I want to be a great scientist, bring humanity a step forward."
(goal
"A long term purpose which a person strives to achieve."
"I want to discover something new in physics."
(objective
"Achievements which can be attained only if the attempts are made in a particular direction."
"I will finish a Phd in physics in 5 years."
(task
"A piece of work. Something that has to be done"
"I need to apply for studying physics at the university."
(action
"The quality or state of being active. Behavior or actions of a particular kind physical activity."
"I need to figure out the postal address of the university, using their website."))))))
"Explain codes used for thematic analysis.")
(defvar ux:behavior-to-questions
'((activity . how)
(job . what)
(objective . why)
(gain . why)
(pain . what)))
(defvar ux:interview-questions
'((general
(en "What does your typical weekday look like?"
"Tell me about your role at your company?"
"Can you give me an summary of your work?")
(de "Wie sieht Ihr typischer Arbeitstag aus?"
"Erzählen Sie mir etwas über Ihre Rolle in Ihrem Unternehmen?"
"Können Sie mir einen Überblick über Ihre Arbeit geben?")
(fr "Pouvez-vous me donner un aperçu de votre travail (exemple: activités quotidiennes) ?")
(it "Può darmi un visione generale del suo lavoro? (per exempio: attività giornaliere)"))
(goals
(en "Why is achieving this goal important to you?"
"What will success look like?"
"How will you benefit from reaching this goal?"
"What is your first step?"
"What step will take you furthest, fastest?"
"Who can help you achieve it?"
"Who will support you?"
"Who wont support you?"
"What will be your biggest barrier?"
"How will you stay focused during the process?")
(de "Warum ist das Erreichen dieses Ziels für Sie wichtig?"
"Wie wird der Erfolg aussehen?"
"Wie werden Sie von der Erreichung dieses Ziels profitieren?"
"Was ist Ihr erster Schritt?"
"Welcher Schritt bringt Sie am weitesten und am schnellsten voran?"
"Wer kann Sie dabei unterstützen?"
"Wer wird Sie unterstützen?"
"Wer wird Sie nicht unterstützen?"
"Was wird Ihr größtes Hindernis sein?"
"Wie werden Sie während des Ablaufs fokussiert bleiben?"))
(activities
(en "What are your most important activities?"
"What activities waste your time?")
(de "Was sind Ihre wichtigsten Aktivitäten?"
"Welche Aktivitäten verschwenden Ihre Zeit?")
(fr "Quelles sont vos principales (importantes) activités ?"
"Quelles sont les activités qui vous font perdre votre temps ou ?")
(it "Quali sono le sue attività più importanti?"
"Quali sono le attività che ti fanno sprecare tempo?"))
(job/pain
(en "Whats the hardest part about [problem / task]?"
"How do you currently go about [problem / task]?"
"What is the biggest pain point related to [problem / task]?")
(de "Was ist das Schwierigste an [Problem / Aufgabe]?"
"Wie gehen Sie derzeit [Problem / Aufgabe] an?"
"Was ist der größte Schmerzpunkt im Zusammenhang mit [Problem / Aufgabe]?"))
(demographic
(en "What is the highest degree or level of education you have completed?"
"What kind of training did you receive?")
(de "Welches ist der höchste Abschluss, den Sie erworben haben?"
"Welche Art von Ausbildung haben Sie durchlaufen?")
(fr "Quel type de formation avez-vous suivi ?")
(it "Che tipo di educazione ha ricevuto?"))
(environment
(en "Where do you do your work (Physical location)?")
(de "Wo üben Sie Ihre Tätigkeit aus (physischer Standort)?")
(fr "Où travaillez-vous (lieu physique) ?")
(it "Dove lavorate (luogo fisico)?"))
(standard
(en "What information do you collect?"
"What information do you need to make a decision?"
"Who do you provide information to?"
"What device do you use?"
"How do you keep track of what you need to get done at work?")
(de "Welche Informationen sammeln Sie?"
"Welche Informationen benötigen Sie, um eine Entscheidung zu treffen?"
"Wem stellen Sie Informationen zur Verfügung?"
"Welches Gerät benutzen Sie?"
"Wie behalten Sie den Überblick darüber, was Sie bei der Arbeit zu erledigen haben?")
(fr "Quelles informations collecter-vous ?"
"De quelles informations avez-vous besoin pour prendre une décision ?"
"À qui fournissez-vous des informations ?"
"Quel appareil utilisez-vous ?"
"Comment gardez-vous une trace de ce que vous avez à faire au travail")
(it "Quali informazioni raccoglie?"
"Di quali informazioni hai bisogno per prendere una decisione?"
"A chi fornisce informazioni?"
"Quale dispositivo usa?"
"Come fa a tenere traccia di quello, che deve fare al lavoro?"))
(sus
(en "I think that I would like to use this system frequently."
"I found the system unnecessarily complex."
"I thought the system was easy to use."
"I think that I would need the support of a technical person to be able to use this system."
"I found the various functions in this system were well integrated."
"I thought there was too much inconsistency in this system."
"I would imagine that most people would learn to use this system very quickly."
"I found the system very cumbersome to use."
"I felt very confident using the system."
"I needed to learn a lot of things before I could get going with this system.")
(de "Ich denke, dass ich dieses System häufig nutzen möchte."
"Ich fand das System unnötig komplex."
"Ich fand das System einfach zu bedienen."
"Ich glaube, ich bräuchte die Unterstützung einer technischen Person, um dieses System nutzen zu können."
"Ich fand, dass die verschiedenen Funktionen in diesem System gut integriert waren."
"Ich fand, dass dieses System zu widersprüchlich war."
"Ich könnte mir vorstellen, dass die meisten Menschen sehr schnell lernen würden, mit diesem System umzugehen."
"Ich fand das System sehr umständlich zu bedienen."
"Ich fühlte mich sehr sicher im Umgang mit dem System."
"Ich musste eine Menge Dinge lernen, bevor ich mit diesem System loslegen konnte."))))
(defun ux:questions-by-category (category)
(cdr (assoc category ux:interview-questions)))
(defun ux:questions-by-lang (lang category)
(let* ((questions (ux:questions-by-category category))
(lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
(remove lang (flatten-tree lang-questions))))
(defun ux:filtered-tbl (sym tbl)
"Return entry of table when SYM is member of entry"
(remove nil (mapcar (lambda (entry) (when (member sym (car (cl-remove-if-not #'listp entry))) entry)) tbl)))
(defun ux:filter-tbl (sym tbl)
(cond ((null sym) tbl)
(t (ux:filter-tbl (cdr sym) (ux:filtered-tbl (car sym) tbl)))))
(defun ux:transpose (lst)
(if (memq nil lst)
nil
(cons (mapcar #'car lst)
(ux:transpose (mapcar #'cdr lst)))))
(defun ux:sus-calc-score (lst)
(let ((counter 0))
(mapcar (lambda (x)
(setq counter (1+ counter))
(if (= 0 (% counter 2))
(- 5 x)
(1- x)))
lst)))
(defun ux:sus-calc-score-per-row (lst)
(* (apply '+ (ux:sus-calc-score lst)) 2.5))
;; ======= Analyze Interviews =======
(defun ux/extract-interview-data ()
"Extrahiert Interviewdaten aus dem aktuellen Org-Buffer."
(org-element-map (org-element-parse-buffer) 'headline
(lambda (headline)
(when (string= (org-element-property :TYPE headline) "INTERVIEW")
(list :title (org-element-property :TITLE headline)
:date (org-element-property :DATE headline)
:content (org-element-property :raw-value headline))))))
(defun ux/analyze-sentiment (text)
"Führt eine einfache Stimmungsanalyse durch."
(let ((positive-words '("good" "great" "excellent" "love" "enjoy"))
(negative-words '("bad" "poor" "terrible" "hate" "dislike")))
(- (cl-count-if (lambda (word) (member word positive-words :test #'string-equal))
(split-string text))
(cl-count-if (lambda (word) (member word negative-words :test #'string-equal))
(split-string text)))))
(defun ux/analyze-interviews ()
"Analysiert Interviews im aktuellen Org-Buffer."
(interactive)
(let ((interviews (ux/extract-interview-data)))
(mapcar (lambda (interview)
(list :title (plist-get interview :title)
:date (plist-get interview :date)
:sentiment (ux/analyze-sentiment (plist-get interview :content))))
interviews)))
(defun ux/display-interview-analysis ()
"Zeigt die Analyse der Interviews an."
(interactive)
(let ((result (ux/analyze-interviews)))
(with-current-buffer (get-buffer-create "*Interview Analysis*")
(erase-buffer)
(insert "Interview Analysis:\n\n")
(dolist (interview result)
(insert (format "Title: %s\nDate: %s\nSentiment: %d\n\n"
(plist-get interview :title)
(plist-get interview :date)
(plist-get interview :sentiment))))
(pop-to-buffer (current-buffer)))))
;; (global-set-key (kbd "C-c i") 'display-interview-analysis)

View file

@ -9,13 +9,18 @@
'(ansi-color-faces-vector
[default default default italic underline success warning error])
'(backup-directory-alist '(("." . "~/.backup_filez")))
'(bookmark-default-file "~/Documents/bookmarks.el")
'(custom-enabled-themes '(doom-spacegrey))
'(custom-safe-themes
'("1f292969fc19ba45fbc6542ed54e58ab5ad3dbe41b70d8cb2d1f85c22d07e518" "e8ceeba381ba723b59a9abc4961f41583112fc7dc0e886d9fc36fa1dc37b4079" "0c83e0b50946e39e237769ad368a08f2cd1c854ccbcd1a01d39fdce4d6f86478" "f64189544da6f16bab285747d04a92bd57c7e7813d8c24c30f382f087d460a33" "7c28419e963b04bf7ad14f3d8f6655c078de75e4944843ef9522dbecfcd8717d" "5c7720c63b729140ed88cf35413f36c728ab7c70f8cd8422d9ee1cedeb618de5" "9e36779f5244f7d715d206158a3dade839d4ccb17f6a2f0108bf8d476160a221" "02d422e5b99f54bd4516d4157060b874d14552fe613ea7047c4a5cfa1288cf4f" "a9eeab09d61fef94084a95f82557e147d9630fbbb82a837f971f83e66e21e5ad" "0d2c5679b6d087686dcfd4d7e57ed8e8aedcccc7f1a478cd69704c02e4ee36fe" "77fff78cc13a2ff41ad0a8ba2f09e8efd3c7e16be20725606c095f9a19c24d3d" "0325a6b5eea7e5febae709dab35ec8648908af12cf2d2b569bedc8da0a3a81c1" "88f7ee5594021c60a4a6a1c275614103de8c1435d6d08cc58882f920e0cec65e" "34cf3305b35e3a8132a0b1bdf2c67623bc2cb05b125f8d7d26bd51fd16d547ec" default))
'(default-frame-alist
'((tab-bar-lines . 0)
(font . "MonoLisa-12")
(width . 95)
(height . 66)
(alpha . 100)
(horizontal-scroll-bars)
(fullscreen . maximized)
(vertical-scroll-bars)
(undecorated . t)))
'(delete-selection-mode nil)
'(diary-file "~/Documents/org/diary")
'(display-time-mail-string "")
'(diary-file "~/Documents/diary/diary")
'(gnus-init-file "~/.emacs.d/.gnus.el")
'(hl-paren-colors '("#B9F" "#B8D" "#B7B" "#B69" "#B57" "#B45" "#B33" "#B11"))
'(hl-todo-keyword-faces
@ -34,33 +39,26 @@
("FIXME" . "#dc752f")
("XXX+" . "#dc752f")
("\\?\\?\\?+" . "#dc752f")))
'(ignored-local-variable-values
'((Package . FIVEAM)
(Syntax . Ansi-Common-Lisp)
(Package . JSON)
(Syntax . ANSI-COMMON-LISP)
(Package . CL-PPCRE)
(Package . CL-USER)
(Base . 10)
(Package . HUNCHENTOOT)
(Syntax . COMMON-LISP)))
'(inferior-lisp-program "/usr/bin/sbcl --noinform" t)
'(initial-buffer-choice "~/Documents/org/agenda/tasks.org")
'(initial-frame-alist '((fullscreen . maximized) (undecorated . t)))
'(line-spacing nil)
'(message-user-organization "")
'(org-agenda-files '("~/Documents/org/agenda/"))
'(initial-buffer-choice "~/Documents/journal/notes.org")
'(initial-frame-alist '((fullscreen . maximized)))
'(ispell-dictionary "de_DE,de_CH,en_GB,en_US")
'(ispell-program-name "hunspell")
'(org-agenda-files '("~/Documents/journal/"))
'(org-babel-python-command "python3")
'(org-directory "~/Documents/org/")
'(org-directory "~/Documents/journal/")
'(org-modules
'(ol-bbdb ol-docview ol-eww ol-gnus ol-info ol-irc ol-mhe ol-rmail org-tempo ol-w3m orgtbl-sqlinsert))
'(org-roam-directory "~/Documents/org")
'(org-plantuml-jar-path "~/.local/bin/plantuml.jar")
'(org-roam-directory "~/Documents/org-roam")
'(package-enable-at-startup t)
'(package-selected-packages
'(slime-company slime auctex kotlin-mode company-terraform org-roam-ui geiser-chez cider all-the-icons geiser-guile geiser 0blayout go-translate paredit auto-complete terraform-mode mu4e wallabag anki calibredb dockerfile-mode docker erc-image erc-hl-nicks journalctl-mode gnuplot yaml-mode which-key web-mode vertico use-package typescript-mode ts ssh-config-mode spotify simple-httpd shrface rainbow-delimiters plantuml-mode ox-rss ox-reveal org-web-tools org-tree-slide org-roam olivetti ob-restclient ob-http ob-go nov nim-mode nginx-mode mastodon markdown-mode magit keepass-mode json-navigator js2-mode jq-format jabber hyperbole htmlize helpful gptel go-mode flymake-json emojify elfeed eglot doom-modeline dashboard csv-mode common-lisp-snippets auto-dim-other-buffers all-the-icons-dired ace-window))
'(csv-mode ox-reveal ob-go org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode eglot nov vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
'(plantuml-default-exec-mode 'jar)
'(python-shell-interpreter "ipython")
'(python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")
'(scroll-bar-mode nil)
'(scroll-step 5)
'(tab-width 4)
'(tab-bar-mode nil)
'(tetris-x-colors
[[229 192 123]
[97 175 239]
@ -69,7 +67,6 @@
[152 195 121]
[198 120 221]
[86 182 194]])
'(timeclock-file "~/Documents/org/timelog")
'(user-mail-address "marcus.kammer@mailbox.org")
'(warning-suppress-log-types '((comp))))
(custom-set-faces
@ -77,6 +74,4 @@
;; 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.
'(shortdoc-heading ((t (:weight bold :height 1.3))))
'(shortdoc-section ((t nil)))
'(variable-pitch ((t (:weight normal :height 1.2 :family "Liberation Serif")))))
'(variable-pitch ((t (:height 1.2 :family "Roboto Condensed")))))

View file

@ -4,21 +4,20 @@
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(Info-additional-directory-list '("~/.emacs.d/info/"))
'(bookmark-default-file "~/bookmarks.el")
'(custom-enabled-themes '(doom-nord))
'(custom-safe-themes
'("1a1ac598737d0fcdc4dfab3af3d6f46ab2d5048b8e72bc22f50271fd6d393a00" "fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default))
'(doc-view-resolution 150)
'(epg-gpg-home-directory "~/AppData/Roaming/gnupg")
'(epg-gpg-program "c:/Program Files (x86)/GnuPG/bin/gpg.exe")
'(epg-gpgconf-program "c:/Program Files (x86)/GnuPG/bin/gpgconf.exe")
'(initial-buffer-choice "d:/visua/Documents/org/agenda/tasks.org")
'("fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default))
'(default-frame-alist '((font . "MonoLisa-11") (width . 94) (height . 70)))
'(initial-frame-alist '((fullscreen . maximized)))
'(org-agenda-files '("d:/visua/Documents/org/agenda"))
'(org-directory "D:/visua/Documents/org")
'(org-roam-db-location "~/org-roam.db" t)
'(org-roam-directory "d:/visua/Documents/org/")
'(ispell-program-name "c:/msys64/mingw64/bin/aspell.exe" t)
'(nov-unzip-program "c:/msys64/usr/bin/unzip.exe")
'(olivetti-body-width 82 nil nil "Customized with use-package olivetti")
'(org-agenda-files '("d:/visua/sync/Documents/journal"))
'(org-default-notes-file "notes.org")
'(org-directory "D:/visua/sync/Documents/journal")
'(org-roam-directory "d:/visua/sync/Documents/org-roam")
'(package-selected-packages
'(org-roam mastodon ob-restclient restclient which-key auctex jabber js2-mode gptlet gptel ob-go plantuml-mode htmlize ox-rss ob-http nim-mode hyperbole kotlin-mode typescript-mode markdown-mode csv-mode yaml-mode powershell ox-reveal org-web-tools org-tree-slide elfeed erc-image magit go-translate simple-httpd slime web-mode go-mode eglot nov shrface vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
'(powershell ox-reveal org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode geiser-guile geiser-racket geiser eglot nov shrface vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
'(python-shell-interpreter "ipython")
'(python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")
'(ring-bell-function 'ignore)
@ -30,12 +29,10 @@
[152 195 121]
[198 120 221]
[86 182 194]])
'(tramp-default-method "ssh")
'(vc-hg-program "c:/Program Files/TortoiseHg/hg.exe"))
'(tramp-default-method "ssh"))
(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.
'(font-lock-keyword-face ((t (:slant italic))))
'(variable-pitch ((t (:height 1.0 :family "Noto Sans")))))
)

View file

@ -0,0 +1,95 @@
(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.
'(Info-additional-directory-list '("~/.emacs.d/info"))
'(Info-default-directory-list '("%emacs_dir%/share/info/"))
'(ansi-color-faces-vector
[default default default italic underline success warning error])
'(backup-directory-alist '(("." . "~/.backup_filez")))
'(beacon-color "#d54e53")
'(bookmark-default-file "~/emacs-bookmarks")
'(company-quickhelp-color-background "#4F4F4F")
'(company-quickhelp-color-foreground "#DCDCCC")
'(default-frame-alist
'((tab-bar-lines . 0)
(font . "MonoLisa-12")
(width . 90)
(height . 64)
(alpha . 100)
(horizontal-scroll-bars)
(vertical-scroll-bars)))
'(delete-by-moving-to-trash t)
'(diary-file
"d:/UserData/marcus.kammer/OneDrive - Siemens AG/documents/Diary/diary")
'(display-line-numbers-grow-only t)
'(doom-modeline-env-version nil)
'(doom-modeline-height 32)
'(flycheck-color-mode-line-face-to-color 'mode-line-buffer-id)
'(forge-alist
'(("github.com" "api.github.com" "github.com" forge-github-repository)
("gitlab.com" "gitlab.com/api/v4" "gitlab.com" forge-gitlab-repository)
("code.siemens.com" "code.siemens.com/api/v4" "code.siemens.com" forge-gitlab-repository)))
'(frame-background-mode 'dark)
'(geiser-racket-binary "C:/Program Files/Racket/Racket.exe")
'(hl-todo-keyword-faces
'(("TODO" . "#dc752f")
("NEXT" . "#dc752f")
("THEM" . "#2d9574")
("PROG" . "#4f97d7")
("OKAY" . "#4f97d7")
("DONT" . "#f2241f")
("FAIL" . "#f2241f")
("DONE" . "#86dc2f")
("NOTE" . "#b1951d")
("KLUDGE" . "#b1951d")
("HACK" . "#b1951d")
("TEMP" . "#b1951d")
("FIXME" . "#dc752f")
("XXX+" . "#dc752f")
("\\?\\?\\?+" . "#dc752f")))
'(initial-buffer-choice
"d:/UserData/marcus.kammer/OneDrive - Siemens AG/journal/planning.org")
'(initial-frame-alist '((fullscreen . maximized)))
'(ispell-local-dictionary "en_US")
'(ls-lisp-dirs-first t)
'(mouse-wheel-scroll-amount '(1 ((shift) . 1) ((meta)) ((control) . text-scale)))
'(nov-text-width nil)
'(nov-variable-pitch nil)
'(org-agenda-files
'("d:/UserData/marcus.kammer/OneDrive - Siemens AG/journal/"))
'(org-directory "d:/UserData/marcus.kammer/OneDrive - Siemens AG/journal/")
'(org-modules
'(ol-bbdb ol-bibtex ol-docview ol-eww ol-gnus ol-info ol-irc ol-mhe ol-rmail org-tempo ol-w3m))
'(org-plantuml-jar-path "~/AppData/Local/Programs/plantuml/plantuml.jar")
'(org-roam-db-autosync-mode t)
'(org-roam-directory "d:/UserData/marcus.kammer/OneDrive - Siemens AG/org-roam/")
'(org-web-tools-pandoc-sleep-time 1.0)
'(package-selected-packages
'(powershell ox-reveal org-web-tools org-tree-slide org-roam elfeed erc-image magit go-translate simple-httpd slime racket-mode web-mode go-mode geiser-guile geiser-racket geiser eglot nov shrface vertico smartparens emojify ace-window olivetti rainbow-delimiters helpful doom-modeline doom-themes all-the-icons-dired all-the-icons use-package))
'(plantuml-default-exec-mode 'jar)
'(plantuml-jar-path "~/AppData/Local/Programs/plantuml/plantuml.jar")
'(python-indent-guess-indent-offset nil)
'(python-shell-interpreter "ipython")
'(python-shell-interpreter-args "-i --simple-prompt --InteractiveShell.display_page=True")
'(reb-re-syntax 'string)
'(ring-bell-function 'ignore)
'(scroll-bar-mode nil)
'(scroll-step 5)
'(sql-sqlite-program "c:/msys64/mingw64/bin/sqlite3.exe" t)
'(tab-bar-mode nil)
'(tetris-x-colors
[[229 192 123]
[97 175 239]
[209 154 102]
[224 108 117]
[152 195 121]
[198 120 221]
[86 182 194]]))
(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.
'(variable-pitch ((t (:height 1.2 :family "Roboto Condensed")))))

View file

@ -1,73 +0,0 @@
(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-faces-vector
[default default default italic underline success warning error])
'(backup-directory-alist '(("." . "~/.backup_filez")))
'(beacon-color "#d54e53")
'(bookmark-default-file "~/bookmarks.el")
'(custom-enabled-themes '(doom-one))
'(custom-safe-themes
'("350fef8767e45b0f81dd54c986ee6854857f27067bac88d2b1c2a6fa7fecb522" "2b20b4633721cc23869499012a69894293d49e147feeb833663fdc968f240873" "d481904809c509641a1a1f1b1eb80b94c58c210145effc2631c1a7f2e4a2fdf4" "a6920ee8b55c441ada9a19a44e9048be3bfb1338d06fc41bce3819ac22e4b5a1" "c5878086e65614424a84ad5c758b07e9edcf4c513e08a1c5b1533f313d1b17f1" "5c7720c63b729140ed88cf35413f36c728ab7c70f8cd8422d9ee1cedeb618de5" "6a5584ee8de384f2d8b1a1c30ed5b8af1d00adcbdcd70ba1967898c265878acf" "7c28419e963b04bf7ad14f3d8f6655c078de75e4944843ef9522dbecfcd8717d" "0325a6b5eea7e5febae709dab35ec8648908af12cf2d2b569bedc8da0a3a81c1" "aec7b55f2a13307a55517fdf08438863d694550565dee23181d2ebd973ebd6b8" "571661a9d205cb32dfed5566019ad54f5bb3415d2d88f7ea1d00c7c794e70a36" "88f7ee5594021c60a4a6a1c275614103de8c1435d6d08cc58882f920e0cec65e" "8d3ef5ff6273f2a552152c7febc40eabca26bae05bd12bc85062e2dc224cde9a" "00cec71d41047ebabeb310a325c365d5bc4b7fab0a681a2a108d32fb161b4006" "7e068da4ba88162324d9773ec066d93c447c76e9f4ae711ddd0c5d3863489c52" "7ea883b13485f175d3075c72fceab701b5bf76b2076f024da50dff4107d0db25" "02f57ef0a20b7f61adce51445b68b2a7e832648ce2e7efb19d217b6454c1b644" "1a1ac598737d0fcdc4dfab3af3d6f46ab2d5048b8e72bc22f50271fd6d393a00" "e7820b899036ae7e966dcaaec29fd6b87aef253748b7de09e74fdc54407a7a02" "1781e8bccbd8869472c09b744899ff4174d23e4f7517b8a6c721100288311fa5" "de8f2d8b64627535871495d6fe65b7d0070c4a1eb51550ce258cd240ff9394b0" default))
'(delete-by-moving-to-trash t)
'(diary-file "~/OneDrive - Siemens AG/diary")
'(flycheck-color-mode-line-face-to-color 'mode-line-buffer-id)
'(frame-background-mode 'dark)
'(global-auto-revert-mode t)
'(hl-todo-keyword-faces
'(("TODO" . "#dc752f")
("NEXT" . "#dc752f")
("THEM" . "#2d9574")
("PROG" . "#4f97d7")
("OKAY" . "#4f97d7")
("DONT" . "#f2241f")
("FAIL" . "#f2241f")
("DONE" . "#86dc2f")
("NOTE" . "#b1951d")
("KLUDGE" . "#b1951d")
("HACK" . "#b1951d")
("TEMP" . "#b1951d")
("FIXME" . "#dc752f")
("XXX+" . "#dc752f")
("\\?\\?\\?+" . "#dc752f")))
'(ignored-local-variable-values
'((Package . CL-USER)
(Syntax . ANSI-Common-lisp)
(Base . 10)
(Package . HUNCHENTOOT)
(Syntax . COMMON-LISP)))
'(initial-buffer-choice "~/OneDrive - Siemens AG/org/agenda/tasks.org")
'(ls-lisp-dirs-first t)
'(mail-send-hook nil)
'(mouse-wheel-scroll-amount '(1 ((shift) . 1) ((meta)) ((control) . text-scale)))
'(org-agenda-files '("~/OneDrive - Siemens AG/org/agenda/"))
'(org-directory "~/OneDrive - Siemens AG/org/")
'(org-modules
'(ol-bbdb ol-bibtex ol-docview ol-eww ol-gnus ol-info ol-irc ol-mhe ol-rmail org-tempo ol-w3m))
'(org-roam-directory "~/OneDrive - Siemens AG/org/")
'(package-selected-packages
'(mu4e wallabag anki calibredb ob-plantuml kotlin-mode company-shell company-terraform company-quickhelp org-roam-ui slime-company yaml-mode which-key web-mode typescript-mode terraform-mode ssh-config-mode slime simple-httpd shrface rainbow-delimiters plantuml-mode paredit ox-reveal org-web-tools org-tree-slide org-roam olivetti ob-restclient ob-powershell ob-http nov nginx-mode mastodon markdown-mode magit js2-mode jq-format jabber htmlize helpful gptel go-translate gnuplot flymake-json erc-image erc-hl-nicks emojify elfeed doom-themes dockerfile-mode docker dashboard csv-mode all-the-icons-dired ace-window))
'(reb-re-syntax 'string)
'(ring-bell-function 'ignore)
'(scroll-step 5)
'(tab-width 4)
'(tetris-x-colors
[[229 192 123]
[97 175 239]
[209 154 102]
[224 108 117]
[152 195 121]
[198 120 221]
[86 182 194]])
'(timeclock-file "~/OneDrive - Siemens AG/timelog")
'(user-full-name "Marcus Kammer" nil nil "Customized with use-package gnus")
'(user-mail-address "marcus.kammer@mailbox.org")
'(warning-suppress-log-types '((comp))))
(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.
'(variable-pitch ((t (:weight light :height 1.0 :family "Noto Serif")))))

View file

@ -1,31 +0,0 @@
(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.
'(bookmark-default-file "~/bookmarks.el")
'(custom-safe-themes
'("1a1ac598737d0fcdc4dfab3af3d6f46ab2d5048b8e72bc22f50271fd6d393a00" "fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default))
'(initial-buffer-choice "~/Documents/org/agenda/tasks.org")
'(org-agenda-files '("~/Documents/org/agenda"))
'(org-directory "~/Documents/org")
'(org-modules
'(ol-bbdb ol-bibtex ol-docview ol-eww ol-gnus ol-info ol-irc ol-mhe ol-rmail org-tempo ol-w3m))
'(org-roam-directory "~/Documents/org/")
'(package-selected-packages
'(gnu-elpa-keyring-update yaml-mode which-key web-mode terraform-mode ssh-config-mode slime shrface rainbow-delimiters plantuml-mode paredit ox-reveal org-web-tools org-tree-slide org-roam olivetti ob-powershell ob-http nov nginx-mode mastodon markdown-mode magit js2-mode jabber htmlize helpful gptel go-translate gnuplot erc-image erc-hl-nicks emojify elfeed doom-themes dockerfile-mode docker dashboard csv-mode common-lisp-snippets calibredb auto-complete auctex all-the-icons-dired ace-window))
'(ring-bell-function 'ignore)
'(tetris-x-colors
[[229 192 123]
[97 175 239]
[209 154 102]
[224 108 117]
[152 195 121]
[198 120 221]
[86 182 194]]))
(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.
)

View file

@ -1,89 +0,0 @@
(defvar konjuntionen
'("aber" "allein" "als" "als dass" "als ob" "als wenn" "ansonst" "ansonsten" "anstatt dass" "statt dass"
ausgenommen
außer
außer wenn
andererseits
bevor
beziehungsweise
bis
da
damit
dass
denn
desto
doch
ehe
eh
entweder
einerseits
falls
gleichwie
gleichwohl
hingegen
im Falle
indem
indessen
indes
insofern
sofern
insoweit
soweit
je
jedennoch
jedoch
maßen
veraltet
minus
nachdem
ob
obgleich
obschon
obwohl
obzwar
oder
ohne dass
plus
respektive
seit
seitdem
sintemal
veraltet
so
sobald
sodass
so dass
sofern
solange
sondern
sooft
sosehr
soweit
sowenig
sowie
sowohl
sowohl
wie auch
statt
trotzdem
um
umso
und
ungeachtet
während
währenddem
währenddessen
weder
weil
wenn
wenn nicht
wenngleich
wennschon
wie
wieweit
wiewohl
wo
wobei
wofern
wohingegen
zumal

View file

@ -1,46 +0,0 @@
(defvar openai-response-buffer (get-buffer-create "*openai-response*"))
(defvar openai-api-key (getenv "OPENAI_API_KEY"))
(defun openai-api-request (prompt)
"Send a request to the OpenAI API with the given prompt and return the response."
(let* ((url "https://api.openai.com/v1/chat/completions")
(params `(("model" . "gpt-3.5-turbo")
("messages" . ,(vector (list (cons "role" "user") (cons "content" prompt))))))
(headers `(("Content-Type" . "application/json")
("Authorization" . ,(concat "Bearer " openai-api-key))))
(response-json nil))
(with-current-buffer openai-response-buffer
(goto-char (point-max))
(insert "\n\n")
(insert (format ">>> %s -- Prompt: %s\n" (format-time-string "%Y-%m-%d %H:%M:%S") prompt)))
(request
url
;; :sync t
:timeout 60
:type "POST"
:data (json-encode params)
:headers headers
:parser 'json-read
:complete (cl-function (lambda (&key data &allow-other-keys)
(with-current-buffer openai-response-buffer
(when (not (get-buffer-window (buffer-name openai-response-buffer)))
(let ((window (split-window)))
(set-window-buffer window openai-response-buffer)))
(goto-char (point-max))
(insert (format ">>> %s -- Response: %s"
(format-time-string "%Y-%m-%d %H:%M:%S")
(cdr (assoc 'content
(cdr (assoc 'message
(elt
(cdr (assoc 'choices data)) 0))))))))))
:success (cl-function (lambda (&key data &allow-other-keys)
(setq response-json data)))
:error (cl-function (lambda (&key error-thrown data &allow-other-keys)
(with-current-buffer openai-response-buffer
(goto-char (point-max))
(insert "\n")
(insert (format "Response Error: %S \n %s \n" error-thrown data))))))))
(defun ask-gpt (prompt)
(interactive "sEnter a prompt: ")
(openai-api-request prompt))

View file

@ -1,937 +0,0 @@
* The Complete Idiot's Guide to Common Lisp Packages
Erann Gat
Copyright © 2003 by the author. Permission is hereby granted for non-commercial
use provided this notice is retained.
** 1. Introduction
When coding a large project with multiple programmers two different programmers
will often want to use the same name for two different purposes. It is possible
to solve this problem using a naming convention, e.g. Bob prefixes all his
names with “BOB-“ and Jane prefixes all her names with “JANE-“. This is in fact
how Scheme addresses this problem (or fails to address it as the case may be).
Common Lisp provides a language mechanism called packages for segregating
namespaces. Here's an example of how packages work:
#+begin_example
? (make-package :bob)
#<Package "BOB">
? (make-package :jane)
#<Package "JANE">
? (in-package bob)
#<Package "BOB">
? (defun foo () "This is Bob's foo")
FOO
? (in-package jane)
#<Package "JANE">
? (defun foo () "This is Jane's foo")
FOO
? (foo)
"This is Jane's foo"
? (in-package bob)
#<Package "BOB">
? (foo)
"This is Bob's foo"
#+end_example
(NOTE: Code examples are cut-and-pasted from Macintosh Common Lisp (MCL). The
command prompt in MCL is a question mark.)
Bob and Jane each have a function named FOO that does something different, and
they don't conflict with each other.
1 Version 1.2
What if Bob wants to use a function written by Jane? There are several ways he
can do it. One is to use a special syntax to indicate that a different package
is to be used:
? (in-package bob)\\
#<Package "BOB">
? (jane::foo)
"This is Jane's foo"
?
Another is to import what he wants to use into his own package. Of course, he
won't want to import Jane's FOO function because then it would conflict with
his own, but if Jane had a BAZ function that he wanted to use by simply typing
(BAZ) instead of (JANE::BAZ) he could do it like this:
? (in-package jane)
#<Package "JANE">
? (defun baz () "This is Jane's baz")\\
BAZ
? (in-package bob)
#<Package "BOB">
? (import 'jane::baz)
T
? (baz)
"This is Jane's baz"
?
Alas, things don't always go quite so smoothly:
? (in-package jane)
#<Package "JANE">
? (defun bar () "This is Jane's bar")
BAR
? (in-package bob)
#<Package "BOB">
? (bar)
> Error: Undefined function BAR called with arguments () .
> While executing: "Unknown"
> Type Command-/ to continue, Command-. to abort.
> If continued: Retry applying BAR to NIL.
See the Restarts... menu item for further choices.
1 >
; Oops! Forgot to import.
Aborted
? (import 'jane::bar)
> Error: Importing JANE::BAR to #<Package "BOB"> would conflict with symbol BAR
.
> While executing: CCL::IMPORT-1
> Type Command-/ to continue, Command-. to abort.
> If continued: Ignore attempt to import JANE::BAR to #<Package "BOB">.\\
See the Restarts... menu item for further choices.
1 >
; Huh?
To understand why this happened, what to do about it, and many of the other
subtleties and surprises of packages, it is important to understand what
packages actually do and how they work. For example, it is important to
understand that when you type (import jane::foo) you are importing the symbol
JANE::FOO, not the function associated with that symbol. It is important to
understand the difference, and so we have to start with a review of some basic
Lisp concepts.
** 2. Symbols, Values, and the READ-EVAL-PRINT Loop
Lisp operates in a READ-EVAL-PRINT loop. Most of the interesting stuff happens
in the EVAL phase, but when it comes to packages interesting stuff happens in
all three phases, and it's important to understand what happens when. In
particular, some of the processing related to packages can change the state of
the Lisp system at READ time, which can in turn result in some surprising (and
often annoying) behavior, like the last example in the previous section.
A package is a collection of Lisp symbols, so to understand packages you first
have to understand symbols. A symbol is a perfectly ordinary Lisp data
structure, just as lists, numbers, strings, etc. are. There are built-in Lisp
functions for creating and manipulating symbols. For example, there is a
function called GENTEMP that creates new symbols:
#+begin_example
? (gentemp)
T1
? (setq x (gentemp))
T2
? (set x 123) ; Note the use of SET, not SETQ or SETF\\
123
? x
T2
? t2
123
#+end_example
(If you are not familiar with the SET function now would be a good time to look
it up because if you don't you will be lost in short order.)
The symbols created by GENTEMP behave in all respects like symbols that you get
just by typing in their names.
You have only limited control over the name of a symbol created by GENTEMP. You
can pass it an optional prefix string that, but the system will add a suffix
and you have to take whatever it decides to give you. If you want to make a
symbol with a particular name you have to use a different function,
MAKE-SYMBOL:
? (make-symbol "MY-SYMBOL")\\
#:MY-SYMBOL
?
Hm, that's odd. What's that funny-looking “#:” doing there?
To understand this we have to dig a little deeper into the guts of symbols.
? (setq symbol1 (make-symbol "MY-SYMBOL"))\\
#:MY-SYMBOL
? (setq symbol2 (make-symbol "MY-SYMBOL"))\\
#:MY-SYMBOL
? (setq symbol3 'my-symbol)
MY-SYMBOL
? (setq symbol4 'my-symbol)
MY-SYMBOL
? (eq symbol1 symbol2)
NIL
? (eq symbol3 symbol4)
T
?
As you see, MAKE-SYMBOL can make multiple distinct symbols that have the same
name, whereas symbols that the reader gives you by typing the same name on two
different occasions are the same symbol.
This property of symbol identity is very important. It is what insures that the
FOO you type in one place is the same FOO as the FOO you type someplace else.
If this were not so you could end up with some very weird results:
? (set symbol1 123)
123
? (set symbol2 456)
456
? (setq code-fragment-1 (list 'print symbol1))\\
(PRINT #:MY-SYMBOL)
? (setq code-fragment-2 (list 'print symbol2))\\
(PRINT #:MY-SYMBOL)
? (eval code-fragment-1)
123
123
? (eval code-fragment-2)
456
456
?
Contrast this with:
? (set symbol3 123)
123
? (set symbol4 456)
456
? (setq code-fragment-3 (list 'print symbol3)) (PRINT MY-SYMBOL)
? (setq code-fragment-4 (list 'print symbol4)) (PRINT MY-SYMBOL)
? (eval code-fragment-3)
456
456
? (eval code-fragment-4)
456 456
?
Symbols 1-4 all have the name “MY-SYMBOL” but symbols 1 and 2 are different
symbols, while symbols 3 and 4 are the same symbol. How did this happen? Well,
one obvious difference is that we called the function MAKE-SYMBOL to make
symbols 1 and 2, while symbols 3 and 4 were made for us by the Lisp reader.
Maybe the Lisp reader has a different way of making symbols than calling MAKE-
SYMBOL. We can test this hypothesis:
? (trace make-symbol)
NIL
? 'foobaz
Calling (MAKE-SYMBOL "FOOBAZ")\\
MAKE-SYMBOL returned #:FOOBAZ\\
FOOBAZ
Nope, the reader apparently makes symbols the same way we did, by calling
MAKE-SYMBOL. But wait, the symbol returned by MAKE-SYMBOL had that funny #:
thing in front of it, but by the time the reader was done the #: prefix had
vanished. What gives?
We can find the answer by trying the same experiment a second time with MAKE-
SYMBOL still traced:
? 'foobaz\\
FOOBAZ
Aha! The second time we type FOOBAZ the reader doesn't call MAKE-SYMBOL. So the
reader is apparently keeping a collection of all the symbols it has made, and
before it makes a new one it checks that collection to see if there is already
a symbol there by the same name. If there is, then it simply returns that same
symbol instead of making a new one. And a symbol that is a member of such a
collection loses its mysterious #: prefix.
That collection of symbols is called a package.
A package is a collection of Lisp symbols with the property that no two symbols
in the collection have the same name.
Unfortunately, that is more or less the last aspect of packages that is simple
and straightforward. From here on out things get rather hairier.
** 3. Interning
The act of putting a symbol into a package is called interning a symbol. A
symbol that is a member of a package is said to be interned in that package.
Symbols that are not members of any package are said to be uninterned. When an
uninterned symbol is printed, it gets a #: prefix^{2} to distinguish it from an
interned symbol, and to warn you that just because it looks just like another
symbol that you saw before it might not in fact be the same symbol.
Now, here's where things start to get a tad confusing.
There is a Lisp function called INTERN, which you might expect to add a symbol
to a package, but it doesn't. That function is performed by a function called
IMPORT.
#+begin_example
? symbol1
#:MY-SYMBOL
? (import symbol1)
T
? symbol1
MY-SYMBOL
? (eq symbol1 'my-symbol)
T
#+end_example
As you can see, symbol1 has gone from being an uninterned symbol to an interned
symbol. It has lost its #: prefix, and it is now EQ to the symbol MY- SYMBOL as
produced by the Lisp reader.
Now, you might expect that to undo the effect of IMPORT you would call
UNIMPORT, but there is no such function. (I warned you that things would not be
straightforward.) To remove a symbol from a package you call UNINTERN:
#+begin_example
? (unintern symbol1)
T
? symbol1
#:MY-SYMBOL
? (eq symbol1 'my-symbol)\\
NIL
#+end_example
Things are back to the way they were. Symbol 1 is now uninterned, and it is now
a different symbol than the one the reader gives you. Let's put symbol1 back
into our package:
? (import symbol1)
> Error: Importing #:MY-SYMBOL to #<Package "COMMON-LISP-USER"> would conflict
with symbol MY-SYMBOL .
> While executing: CCL::IMPORT-1
> Type Command-/ to continue, Command-. to abort.
> If continued: Ignore attempt to import #:MY-SYMBOL to #<Package
"COMMON-LISP-USER">.
See the Restarts... menu item for further choices.
2 This is not quite accurate, but a good enough approximation for now. The real
truth is that a #: prefix just means that a symbol has no home package, not
necessarily that it is not interned in any package.
1 >
Whoa! What happened? (It is a good exercise to try to figure out what's going
on here before reading any further. You have all the information you need.
Hint: try the experiment yourself with MAKE-SYMBOL traced.)
Here's what happened:
? (unintern 'my-symbol)
T
? (eq symbol1 'my-symbol
Calling (MAKE-SYMBOL "MY-SYMBOL")\\
MAKE-SYMBOL returned #:MY-SYMBOL
)
NIL
?
When we typed (eq symbol1 'my-symbol) the reader interned the symbol MY-
SYMBOL. So when we tried to import symbol1 there was already a symbol with the
same name in the package. Remember, packages maintain the invariant that there
can only be one symbol with the same name in the package at any one time
(that's the whole point) so when we tried to import symbol1 (whose name is also
MY-SYMBOL) there was already a symbol there with the same name (having been
quietly interned by the reader). This situation is called a symbol conflict,
and it is, alas, very common.
Note, by the way, that the output from the trace of MAKE-SYMBOL above appears
inside the S-expression (eq symbol1 my-symbol). This is because MCL rearranges
the text on the screen to reflect the true order of events. Because MAKE-SYMBOL
was called by the reader while processing the string “my-symbol” but before
processing the close-paren, the output appears at that point. If we type: (list
'x1 'x2 'x3 'x4) the resulting output looks like this:
? (list 'x1
Calling (MAKE-SYMBOL "X1")\\
MAKE-SYMBOL returned #:X1\\
'x2
Calling (MAKE-SYMBOL "X2")\\
MAKE-SYMBOL returned #:X2\\
'x3
Calling (MAKE-SYMBOL "X3")\\
MAKE-SYMBOL returned #:X3\\
'x4
Calling (MAKE-SYMBOL "X4")\\
MAKE-SYMBOL returned #:X4
)
Here, the text formatting has been preserved to help illustrate what is
happening. The text typed by the user is in bold type. (Note that most Lisp
systems don't do this reformatting.)
There are a few more useful functions that we can go ahead and mention at this
point. SYMBOL-NAME returns the name of a symbol as a string. FIND-SYMBOL takes
a string and tells you if there is a symbol with that name already interned.
And, finally, INTERN, which can be defined as follows:
#+begin_src lisp
(defun intern (name)
(or (find-symbol name)
(let ((s (make-symbol name)))
(import s)
s)))
#+end_src
In other words, INTERN is sort of the opposite of SYMBOL-NAME. SYMBOL-NAME
takes a symbol and returns the string that is that symbol's name. INTERN takes
a string and returns the symbol whose name is that string. INTERN is the
function that READ uses to make symbols.
** 4. Which Package?
The functions that operate on packages like FIND-SYMBOL, IMPORT and INTERN by
default operate on a package that is the value of the global variable
*PACKAGE*, also known as the current package. Like symbols, packages have
names, and no two packages can have the same name. Packages, like symbols, are
also ordinary Lisp data structures. There are functions PACKAGE-NAME and
FIND-PACKAGE which operate analogously to SYMBOL-NAME and FIND-SYMBOL, except
of course, that FIND-PACKAGE doesn't take a package argument. (It's as if there
is one global meta-package for package names.)
As we've already seen, we can make new packages by calling MAKE-PACKAGE, and
set the current package by calling IN-PACKAGE. (Note that IN-PACKAGE is not a
function but a macro that does not evaluate its argument.)
You can access symbols that are not in the current package by using a special
syntax: the package name followed by two colons followed by the symbol name.
This is handy if you want to use a symbol without importing it. For example, if
Bob wanted to use Jane's FOO function he could type JANE::FOO.
*** 4.1 Home packages
One of the invariants that Common Lisp tries to maintain is a property called
print-read consistency. This property says that if you print a symbol, and then
read the resulting printed representation of that symbol, the result is the
same symbol, with two caveats: 1) this does not apply to uninterned symbols,
and 2) it applies only if you refrain from certain “dangerous” actions. We'll
cover what those are in a moment.
To maintain print-read consistency, some symbols need to be printed with their
package qualifier. For example:
? (in-package jane)\\
#<Package "JANE">
? 'foo
FOO
? 'jane::foo
FOO
? (in-package bob) #<Package "BOB">
? 'foo
FOO
? 'jane::foo\\
JANE::FOO
? 'bob::foo
FOO
?
Obviously one of the “dangerous actions” that allows print-read consistency to
be violated is calling IN-PACKAGE.
Now, consider the following situation:
? (in-package bob)\\
#<Package "BOB">
? (unintern 'foo)
T
? (import 'jane::foo)
T
? (make-package :charlie)\\
#<Package "CHARLIE">
? (in-package charlie)\\
#<Package "CHARLIE">
? 'bob::foo
JANE::FOO
?
Here we have a symbol FOO which is interned in both the JANE and the BOB
packages. That one symbol is therefore accessible as both JANE::FOO and
BOB::FOO. How does the system decide which printed representation to use when
the symbol is printed from the CHARLIE package, in which the symbol is not
interned?
It turns out that every symbol keeps track of a single package called its home
package, which is usually the first package in which that symbol was interned
(but there are exceptions). When a symbol needs to be printed with a package
qualifier, it uses the qualifier from its home package. You can query a symbol
for its home package using the function SYMBOL-PACKAGE.
? (symbol-package 'bob::foo)\\
#<Package "JANE">
?
Note that it is possible to make symbols without home packages. Uninterned
symbols, for examples, have no home packages. But it is also possible to make
interned symbols with no home packages. For example:
? (in-package jane)
#<Package "JANE">
? 'weird-symbol
WEIRD-SYMBOL
? (in-package bob)
#<Package "BOB">
? (import 'jane::weird-symbol)
T
? (in-package jane)\\
#<Package "JANE">
? (unintern 'weird-symbol)
T
? (in-package bob)
#<Package "BOB">
? 'weird-symbol
WEIRD-SYMBOL
? (symbol-package 'weird-symbol) NIL
? (in-package jane)
#<Package "JANE">
? 'bob::weird-symbol\\
#:WEIRD-SYMBOL
Such things are best avoided.
** 5. Export and Use-package
Suppose Jane and Bob are collaborating on a software development project, each
working in their own package to avoid conflicts. Jane writes:
? (in-package jane)
#<Package "JANE">
? (defclass jane-class () (slot1 slot2 slot3))\\
#<STANDARD-CLASS JANE-CLASS>
Now, imagine that Bob wants to use JANE-CLASS. He writes:
? (in-package bob)
#<Package "BOB">
? (import 'jane::jane-class)
T
? (make-instance 'jane-class)\\
#<JANE-CLASS #x130565E>
?
So far so good. Now he tries:
? (setq jc1 (make-instance 'jane-class))
#<JANE-CLASS #x130BA96>
? (slot-value jc1 'slot1)
> Error: #<JANE-CLASS #x130BA96> has no slot named SLOT1.
> While executing: #<CCL::STANDARD-KERNEL-METHOD SLOT-MISSING (T T T T)>
What happened? Well, JANE-CLASS was defined in the JANE package, so the slot
names are symbols interned in that package. But Bob tried to access an instance
of that class using a symbol interned in the BOB package. In other words, JANE-
CLASS has a slot named JANE::SLOT1, and Bob tried to access a slot name
BOB::SLOT1, and there is no such slot.
What Bob would really like to do is import all the symbols that are
“associated” with JANE-CLASS, that is, all the slot names, method names, etc.
etc. How can he know what all those symbols are? He could examine Jane's code
and try to figure it out for himself, but that would lead to many problems, not
least of which is that he might decide to import a symbol that Jane didn't want
Bob to mess with (remember, separating Jane's symbols from the effects of Bob's
meddling is the whole point of having packages to being with).
A better solution would be for Jane to assemble a list of symbols that Bob
should import in order to use her software. Then Jane could do something like:
? (defvar *published-symbols* '(jane-class slot1 slot2 slot3))\\
*PUBLISHED-SYMBOLS*
?
And Bob could then do (import jane::*published-symbols*).
Common Lisp provides a standard mechanism for doing this. Every package
maintains a list of symbols that are intended to be used by other packages.
This list is called the exported symbol list of that package, and to add a
symbol to that package you use the function EXPORT. To remove a symbol from a
package's exported symbol list you use (as you might expect this time)
UNEXPORT. To import all of the exported symbols in a package you call
USE-PACKAGE. To unimport them all you call UNUSE-PACKAGE.
There are two things to note about exporting symbols.
First, a symbol can be exported from any package in which that symbol is
interned, not just its home package. A symbol also does not have to be exported
from its home package in order to be exported from some other package in which
that symbol is interned.
Second, a symbol that is exported from its home package uses only one colon
instead of two when printed with its package qualifier. This is to alert you to
the fact that the symbol is exported from its home package (and so you might
want to USE-PACKAGE the symbol's package instead of IMPORTing the symbol), and
also to discourage you from using unexported symbols by forcing you to type an
extra colon in order to access them. (No, I am not kidding.)
** 6. Shadowing
There is one last gotcha: using USE-PACKAGE is slightly different from
IMPORTing all the exported symbols in the package. When you IMPORT a symbol you
can undo the effect of the IMPORT using UNINTERN. You cannot use UNINTERN to
(partially) undo the effect of a USE-PACKAGE. For example:
? (in-package jane)
#<Package "JANE">
? (export '(slot1 slot2 slot3))
T
? (in-package bob)\\
#<Package "BOB">
? (use-package 'jane)
T
? (symbol-package 'slot1)\\
#<Package "JANE">
? (unintern 'slot1)
NIL
? (symbol-package 'slot1)\\
#<Package "JANE">
?
This is a problem, because it would seem to make it impossible to use two
different packages that export a symbol with the same name. For example,
suppose you wanted to use two packages P1 and P2 in a third package named
MYPACKAGE, and both P1 and P2 exported a symbol named X. If you just tried to
USE-PACKAGE both P1 and P2 you would get a name conflict because Lisp would
have no way of knowing whether X in MYPACKAGE should now be P1:X or P2:X.
To resolve such name conflicts every package maintains what is called a
shadowing symbols list. The shadowing symbols list is a list of symbols that
shadow or override any symbols would normally become visible in that package as
a result of calling USE-PACKAGE.
There are two ways to add symbols to a package's shadowing symbols list, SHADOW
and SHADOWING-IMPORT. SHADOW is used to add symbols that are in the package to
the shadowing symbols list. SHADOWING-IMPORT is used to add symbols that are in
some other package.
For example:
? (in-package p1)\\
#<Package "P1">
? (export '(x y z))
T
? (in-package p2)\\
#<Package "P2">
? (export '(x y z))
T
? (in-package bob)
T
? (use-package 'p1)
T
? (use-package 'p2)
> Error: Using #<Package "P2"> in #<Package "BOB">
> would cause name conflicts with symbols inherited\\
> by that package:
> Z P2:Z
> Y P2:Y\\
> X P2:X\\
. . .
1 >
Aborted
? (unuse-package 'p1)
T
? (shadow 'x)
T
? (shadowing-import 'p1:y)
T
? (shadowing-import 'p2:z)
T
? (use-package 'p1)
T
? (use-package 'p2)
T
? (symbol-package 'x)\\
#<Package "BOB">
? (symbol-package 'y)\\
#<Package "P1">
? (symbol-package 'z)\\
#<Package "P2">
?
To undo the effect of SHADOW or SHADOWING-IMPORT use UNINTERN.
Note that UNINTERN (and many, many other surprising things) can result in name
conflicts unexpectedly appearing. The most common cause of an unexpected name
conflict is usually inadvertently interning a symbol in a package by typing it
at the reader without paying close attention to which package you were in at
the time.
** 7. DEFPACKAGE
Now that you've learned all about the myriad functions and macros that can be
used to manipulate packages you shouldn't really be using any of them. Instead,
all of the functionality of IMPORT, EXPORT, SHADOW, etc. is all rolled up in a
single macro called DEFPACKAGE, which is what you should use for real (non-
prototype) code.
I'm not going to try to explain DEFPACKAGE here because now that you understand
the basic concepts of packages you should just be able to read the
documentation in the hyperspec and understand it. (There are also a lot of
other goodies, like DO-SYMBOLS and WITH-PACKAGE-ITERATOR, in the hyperspec that
you should now be able to understand on your own.)
One caveat about using DEFPACKAGE though: note that most of the arguments to
DEFPACKAGE are string designators, not symbols. This means that they can be
symbols, but if you choose to use symbols then those symbols will get interned
in the current package, whatever it may be, at the time that the DEFPACKAGE
form is
read. This often leads to undesirable consequences, so it's a good idea to get
into the habit of using keywords or strings in your DEFPACKAGE forms.
** 8. Final Thoughts
The most important thing to understand about packages is that they are
fundamentally a part of the Lisp reader and not the evaluator. Once you wrap
your brain around that idea, everything else will fall into place. Packages
control how the reader maps strings onto symbols (and how PRINT maps symbols
onto strings), nothing else. In particular, packages have nothing to do with
the functions, values, property lists, etc. that might or might not be
associated with any particular symbol.
Note in particular (this has nothing to do with packages but newcomers often
get confused by this anyway) that both symbols and function objects can be used
as functions, but they behave slightly differently. For example:
? (defun foo () "Original foo")
FOO
? (setf f1 'foo)
FOO
? (setf f2 #'foo)
#<Compiled-function FOO #xEB3446>
? (defun demo ()
(list (funcall f1) (funcall f2)
(funcall #'foo) (funcall #.#'foo)))
;Compiler warnings :
; Undeclared free variable F1, in DEMO.
; Undeclared free variable F2, in DEMO.
DEMO
? (demo)
("Original foo" "Original foo" "Original foo" "Original foo")\\
? (defun foo () "New foo")
FOO
? (demo)
("New foo" "Original foo" "New foo" "Original foo")
?
In this example we have two variables, F1 and F2. The value of F1 is the symbol
FOO. The value of F2 is the function object that was in the symbol-function
slot of the symbol FOO at the time F2 was assigned.
Note that when FOO is redefined, the effect of calling the symbol FOO is to get
the new behavior, whereas calling the function object produces the old
behavior.
Explaining the second and third result in the list is left as an exercise for
the reader (no pun intended).

View file

@ -1,729 +0,0 @@
# this is the affix file of the de_CH Hunspell dictionary
# derived from the igerman98 dictionary
#
# Version: 20161207+frami20170109
#
# Copyright (C) 1998-2016 Björn Jacke <bjoern@j3e.de>
#
# License: GPLv2, GPLv3
# There should be a copy of both of this licenses included
# with every distribution of this dictionary. Modified
# versions using the GPL may only include the GPL
SET ISO8859-1
TRY esijanrtolcdugmphbyfvkwqxzäüößáéêàâñESIJANRTOLCDUGMPHBYFVKWQXZÄÜÖÉ-.
PFX U Y 1
PFX U 0 un .
PFX V Y 1
PFX V 0 ver .
SFX F Y 35
SFX F 0 nen in
SFX F e in e
SFX F e innen e
SFX F 0 in [^i]n
SFX F 0 innen [^i]n
SFX F 0 in [^enr]
SFX F 0 innen [^enr]
SFX F 0 in [^e]r
SFX F 0 innen [^e]r
SFX F 0 in [^r]er
SFX F 0 innen [^r]er
SFX F 0 in [^e]rer
SFX F 0 innen [^e]rer
SFX F 0 in ierer
SFX F 0 innen ierer
SFX F er in [^i]erer
SFX F er innen [^i]erer
SFX F in In in
SFX F in Innen in
SFX F e In e
SFX F e Innen e
SFX F 0 In [^i]n
SFX F 0 Innen [^i]n
SFX F 0 In [^en]
SFX F 0 Innen [^en]
SFX F 0 In [^e]r
SFX F 0 Innen [^e]r
SFX F 0 In [^r]er
SFX F 0 Innen [^r]er
SFX F 0 In [^e]rer
SFX F 0 Innen [^e]rer
SFX F 0 In ierer
SFX F 0 Innen ierer
SFX F er In [^i]erer
SFX F er Innen [^i]erer
#SFX F en innen en
#SFX F en Innen en
SFX L N 12
SFX L 0 tlich n
SFX L 0 tliche n
SFX L 0 tlicher n
SFX L 0 tliches n
SFX L 0 tlichem n
SFX L 0 tlichen n
SFX L 0 lich [^n]
SFX L 0 liche [^n]
SFX L 0 licher [^n]
SFX L 0 liches [^n]
SFX L 0 lichem [^n]
SFX L 0 lichen [^n]
#SFX H N 2
#SFX H 0 heit .
#SFX H 0 heiten .
#SFX K N 2
#SFX K 0 keit .
#SFX K 0 keiten .
SFX M N 10
SFX M 0 chen [^se]
SFX M 0 chens [^se]
SFX M ass ässchen ass
SFX M ass ässchens ass
SFX M oss össchen oss
SFX M oss össchens oss
SFX M uss üsschen uss
SFX M uss üsschens uss
SFX M e chen e
SFX M e chens e
SFX A Y 46
SFX A 0 r e
SFX A 0 n e
SFX A 0 m e
SFX A 0 s e
SFX A 0 e [^elr]
SFX A 0 er [^elr]
SFX A 0 en [^elr]
SFX A 0 em [^elr]
SFX A 0 es [^elr]
SFX A 0 e [^e][rl]
SFX A 0 er [^e][rl]
SFX A 0 en [^e][rl]
SFX A 0 em [^e][rl]
SFX A 0 es [^e][rl]
SFX A 0 e [^u]er
SFX A 0 er [^u]er
SFX A 0 en [^u]er
SFX A 0 em [^u]er
SFX A 0 es [^u]er
SFX A er re uer
SFX A er rer uer
SFX A er ren uer
SFX A er rem uer
SFX A er res uer
SFX A 0 e [eil]el
SFX A 0 er [eil]el
SFX A 0 en [eil]el
SFX A 0 em [eil]el
SFX A 0 es [eil]el
SFX A el le [^eil]el
SFX A el ler [^eil]el
SFX A el len [^eil]el
SFX A el lem [^eil]el
SFX A el les [^eil]el
SFX A lig elig [^aeiouhlräüö]lig
SFX A lig elige [^aeiouhlräüö]lig
SFX A lig eliger [^aeiouhlräüö]lig
SFX A lig eligen [^aeiouhlräüö]lig
SFX A lig eligem [^aeiouhlräüö]lig
SFX A lig eliges [^aeiouhlräüö]lig
SFX A erig rig [^hi]erig
SFX A erig rige [^hi]erig
SFX A erig riger [^hi]erig
SFX A erig rigen [^hi]erig
SFX A erig rigem [^hi]erig
SFX A erig riges [^hi]erig
SFX C Y 100
SFX C 0 ere [^elr]
SFX C 0 erer [^elr]
SFX C 0 eren [^elr]
SFX C 0 erem [^elr]
SFX C 0 eres [^elr]
SFX C 0 re e
SFX C 0 rer e
SFX C 0 ren e
SFX C 0 rem e
SFX C 0 res e
SFX C 0 ere [^e][lr]
SFX C 0 erer [^e][lr]
SFX C 0 eren [^e][lr]
SFX C 0 erem [^e][lr]
SFX C 0 eres [^e][lr]
SFX C el lere el
SFX C el lerer el
SFX C el leren el
SFX C el lerem el
SFX C el leres el
SFX C er rere uer
SFX C er rerer uer
SFX C er reren uer
SFX C er rerem uer
SFX C er reres uer
SFX C 0 ere [^u]er
SFX C 0 erer [^u]er
SFX C 0 eren [^u]er
SFX C 0 erem [^u]er
SFX C 0 eres [^u]er
SFX C lig eligere [^aeiouhlräüö]lig
SFX C lig eligerer [^aeiouhlräüö]lig
SFX C lig eligeren [^aeiouhlräüö]lig
SFX C lig eligerem [^aeiouhlräüö]lig
SFX C lig eligeres [^aeiouhlräüö]lig
SFX C erig rigere [^hi]erig
SFX C erig rigerer [^hi]erig
SFX C erig rigeren [^hi]erig
SFX C erig rigerem [^hi]erig
SFX C erig rigeres [^hi]erig
SFX C 0 est [kßsuxz]
SFX C 0 este [kßsuxz]
SFX C 0 ester [kßsuxz]
SFX C 0 esten [kßsuxz]
SFX C 0 estem [kßsuxz]
SFX C 0 estes [kßsuxz]
SFX C 0 st et
SFX C 0 ste et
SFX C 0 ster et
SFX C 0 sten et
SFX C 0 stem et
SFX C 0 stes et
SFX C 0 st igt
SFX C 0 ste igt
SFX C 0 ster igt
SFX C 0 sten igt
SFX C 0 stem igt
SFX C 0 stes igt
SFX C 0 est [^i]gt
SFX C 0 este [^i]gt
SFX C 0 ester [^i]gt
SFX C 0 esten [^i]gt
SFX C 0 estem [^i]gt
SFX C 0 estes [^i]gt
SFX C 0 est [^eg]t
SFX C 0 este [^eg]t
SFX C 0 ester [^eg]t
SFX C 0 esten [^eg]t
SFX C 0 estem [^eg]t
SFX C 0 estes [^eg]t
SFX C 0 st [^kßstxz]
SFX C 0 ste [^kßstxz]
SFX C 0 ster [^kßstxz]
SFX C 0 sten [^kßstxz]
SFX C 0 stem [^kßstxz]
SFX C 0 stes [^kßstxz]
SFX C 0 st nd
SFX C 0 ste nd
SFX C 0 ster nd
SFX C 0 sten nd
SFX C 0 stem nd
SFX C 0 stes nd
SFX C 0 est [^n]d
SFX C 0 este [^n]d
SFX C 0 ester [^n]d
SFX C 0 esten [^n]d
SFX C 0 estem [^n]d
SFX C 0 estes [^n]d
SFX C lig eligst [^aeiouhlräüö]lig
SFX C lig eligste [^aeiouhlräüö]lig
SFX C lig eligster [^aeiouhlräüö]lig
SFX C lig eligsten [^aeiouhlräüö]lig
SFX C lig eligstem [^aeiouhlräüö]lig
SFX C lig eligstes [^aeiouhlräüö]lig
SFX C erig rigst [^hi]erig
SFX C erig rigste [^hi]erig
SFX C erig rigster [^hi]erig
SFX C erig rigsten [^hi]erig
SFX C erig rigstem [^hi]erig
SFX C erig rigstes [^hi]erig
SFX E Y 1
SFX E 0 e .
SFX f Y 4
SFX f ph f ph
SFX f ph fen ph
SFX f phie fie phie
SFX f phie fien phie
SFX N Y 1
SFX N 0 n .
SFX P Y 1
SFX P 0 en .
SFX p Y 26
SFX p auf äufe auf
SFX p auf äufen auf
SFX p aus äuser [hH]aus
SFX p aus äusern [hH]aus
SFX p arkt ärkte [mM]arkt
SFX p arkt ärkten [mM]arkt
SFX p ang änge ang
SFX p ang ängen ang
SFX p uß üße uß
SFX p uß üßen uß
SFX p oß öße oß
SFX p oß ößen oß
SFX p aum äume aum
SFX p aum äumen aum
SFX p ag äge ag
SFX p ag ägen ag
SFX p ug üge ug
SFX p ug ügen ug
SFX p all älle all
SFX p all ällen all
SFX p ass ässe ass
SFX p ass ässen ass
SFX p uss üsse uss
SFX p uss üssen uss
SFX p oss össe oss
SFX p oss össen oss
# last ...oss rules are for swiss de_CH only - but do not affect de_DE
SFX R Y 3
SFX R 0 er [^e]
SFX R 0 ern [^e]
SFX R 0 r e
SFX S Y 1
SFX S 0 s .
SFX q Y 2
SFX q 0 se s
SFX q 0 sen s
SFX Q Y 1
SFX Q 0 ses s
#SFX Q 0 se s
#SFX Q 0 sen s
SFX T Y 1
SFX T 0 es .
SFX J Y 12
SFX J n ung [bgkpßsz]eln
SFX J n ungen [bgkpßsz]eln
SFX J eln lung eln
SFX J n ung ern
SFX J en ung en
SFX J eln lungen eln
SFX J n ungen ern
SFX J en ungen en
SFX J 0 ung [^n]
SFX J 0 ungen [^n]
SFX J el lung el
SFX J el lungen el
SFX B N 12
SFX B n bar e[lr]n
SFX B n bare e[lr]n
SFX B n baren e[lr]n
SFX B n barer e[lr]n
SFX B n bares e[lr]n
SFX B n barem e[lr]n
SFX B en bar en
SFX B en bare en
SFX B en baren en
SFX B en barer en
SFX B en bares en
SFX B en barem en
SFX D Y 6
SFX D 0 d n
SFX D 0 de n
SFX D 0 den n
SFX D 0 der n
SFX D 0 des n
SFX D 0 dem n
SFX W Y 5
SFX W en 0 en
SFX W n 0 [^e]n
SFX W st 0 [^s]st
SFX W t 0 sst
SFX W t 0 [^s]t
SFX I Y 16
SFX I n 0 en
SFX I eln le eln
SFX I n e eln
SFX I ern re ern
SFX I n e ern
SFX I n t e[lr]n
SFX I n t [dt]en
SFX I en t [^dimnt]en
SFX I en t eien
SFX I n t [^e]ien
SFX I n t chnen
SFX I en t [^c]h[mn]en
SFX I n t [^aäehilmnoöuür][mn]en
SFX I en t [aäeilmnoöuür][mn]en
SFX I n e un
SFX I n t un
SFX X Y 26
SFX X n t e[lr]n
SFX X n t [dtw]en
SFX X en t eien
SFX X n t [^e]ien
SFX X en t [^ditmnw]en
SFX X n t chnen
SFX X en t [^c]h[mn]en
SFX X n t [^aäehilmnoöuür][mn]en
SFX X en t [aäeilmnoöuür][mn]en
SFX X n t un
SFX X st 0 tst
SFX X n st e[lr]n
SFX X n st [dtw]en
SFX X en st [^dimnßstwzx]en
SFX X en st eien
SFX X n st [^e]ien
SFX X n st chnen
SFX X en st [^c]h[mn]en
SFX X n st [^aäehilmnoöuür][mn]en
SFX X en st [aäeilmnoöuür][mn]en
SFX X n st un
SFX X n st [ßsxz]en
SFX X n st ssen
SFX X n st schen
SFX X t st [^sz]t
SFX X t est zt
SFX Y Y 36
SFX Y n te e[lr]n
SFX Y n te [dtw]en
SFX Y en te [^dimntw]en
SFX Y en te eien
SFX Y n te [^e]ien
SFX Y n te chnen
SFX Y en te [^c]h[mn]en
SFX Y n te [^aäehilmnoöuür][mn]en
SFX Y en te [aäeilmnoöuür][mn]en
SFX Y n test e[lr]n
SFX Y n test [dtw]en
SFX Y en test [^dimntw]en
SFX Y en test eien
SFX Y n test [^e]ien
SFX Y n test chnen
SFX Y en test [^c]h[mn]en
SFX Y n test [^aäehilmnoöuür][mn]en
SFX Y en test [aäeilmnoöuür][mn]en
SFX Y n tet e[lr]n
SFX Y n tet [dtw]en
SFX Y en tet [^dimntw]en
SFX Y en tet eien
SFX Y n tet [^e]ien
SFX Y n tet chnen
SFX Y en tet [^c]h[mn]en
SFX Y n tet [^aäehilmnoöuür][mn]en
SFX Y en tet [aäeilmnoöuür][mn]en
SFX Y n ten e[lr]n
SFX Y n ten [dtw]en
SFX Y en ten [^dimntw]en
SFX Y en ten eien
SFX Y n ten [^e]ien
SFX Y n ten chnen
SFX Y en ten [^c]h[mn]en
SFX Y n ten [^aäehilmnoöuür][mn]en
SFX Y en ten [aäeilmnoöuür][mn]en
SFX Z Y 15
SFX Z 0 st [^hßsz]
SFX Z 0 st [^c]h
SFX Z 0 st [^s]ch
SFX Z 0 est [dfkstz]
SFX Z 0 est ch
SFX Z 0 est [au]ß
SFX Z 0 est ieß
SFX Z 0 est [io]ss
SFX Z 0 t [^dt]
SFX Z 0 et [dt]
SFX Z 0 n e
SFX Z 0 en ie
SFX Z 0 en [^e]
SFX Z 0 est iess
SFX Z 0 est [au]ss
# last two ...ss rules only used for swiss de_CH - but de_DE is unaffected
SFX O Y 21
SFX O n tes e[lr]n
SFX O n tes [dtw]en
SFX O en tes [^dmntw]en
SFX O n tes chnen
SFX O en tes [^c]h[mn]en
SFX O n tes [^aäehilmnoöuür][mn]en
SFX O en tes [aäeilmnoöuür][mn]en
SFX O n ter e[lr]n
SFX O n ter [dtw]en
SFX O en ter [^dmntw]en
SFX O n ter chnen
SFX O en ter [^c]h[mn]en
SFX O n ter [^aäehilmnoöuür][mn]en
SFX O en ter [aäeilmnoöuür][mn]en
SFX O n tem e[lr]n
SFX O n tem [dtw]en
SFX O en tem [^dmntw]en
SFX O n tem chnen
SFX O en tem [^c]h[mn]en
SFX O n tem [^aäehilmnoöuür][mn]en
SFX O en tem [aäeilmnoöuür][mn]en
REP 28
REP f ph
REP ph f
REP ß ss
REP ss ß
REP s ss
REP ss s
REP i ie
REP ie i
REP ee e
REP o oh
REP oh o
REP a ah
REP ah a
REP e eh
REP eh e
REP ae ä
REP oe ö
REP ue ü
REP Ae Ä
REP Oe Ö
REP Ue Ü
REP d t
REP t d
REP th t
REP t th
REP r rh
REP ch k
REP k ch
#REP eee ee-E
# this one will allow "-Eltern" - Hunspell 1.1.5 bug, but CHECKSHARPS obsoletes LANG de_DE
#LANG de_DE
CHECKSHARPS
COMPOUNDBEGIN x
COMPOUNDMIDDLE y
COMPOUNDEND z
FORBIDDENWORD d
# Prefixes are allowed at the beginning of compounds,
# suffixes are allowed at the end of compounds by default:
# (prefix)?(root)+(affix)?
# Affixes with COMPOUNDPERMITFLAG may be inside of compounds.
COMPOUNDPERMITFLAG c
ONLYINCOMPOUND o
# my PSEUDOROOT h(elper) flag
NEEDAFFIX h
# forbid uppercase characters at compound word bounds
# BUT I want to take care about it myself ;-)
# CHECKCOMPOUNDCASE
KEEPCASE w
# Affixes signed with CIRCUMFIX flag may be on a word when this word also has a prefix with CIRCUMFIX flag and vice versa.
# for decapitalizing nouns with fogemorphemes
CIRCUMFIX f
# this one would make a separate dict entry "Denkmalsschutz" invalidate the
# compound of "Denkmal"+"schutz". We do not want this feature here...
# CHECKCOMPOUNDREP
# make not all possible suggestions for typos of Flicken or some rare words
NOSUGGEST n
WORDCHARS ß-.
# - setting this to 2 decreases performance by 1/10 but is needed for "öl" and "ei"
# - setting this to 1 for handling Fuge-elements with dashes (Arbeits-) dash will
# be a special word but - is handled as a affix now
COMPOUNDMIN 2
# this ones are for Duden R36 (old orthography)
#CHECKCOMPOUNDPATTERN 2 #oldspell
#CHECKCOMPOUNDPATTERN ee e #oldspell
#CHECKCOMPOUNDPATTERN oo o #oldspell
# also need oo o
# this one needs to be flagable to be used for old orthography
#CHECKCOMPOUNDTRIPLE
PFX i Y 1
PFX i 0 -/coyf .
SFX j Y 3
SFX j 0 0/xoc .
SFX j 0 -/zocf .
SFX j 0 -/cz .
# Female forms for compound/Compound words:
# attention: [^e][^n] does also filter out "...er" !
SFX g Y 12
SFX g 0 innen/xyoc [^n]
SFX g en innen/xyoc en
SFX g 0 Innen/xyoc [^n]
SFX g en Innen/xyoc en
SFX g 0 innen/xyocf [^n]
SFX g en innen/xyocf en
SFX g 0 Innen/xyocf [^n]
SFX g en Innen/xyocf en
SFX g 0 innen-/cz [^n]
SFX g en innen-/cz en
SFX g 0 Innen-/cz [^n]
SFX g en Innen-/cz en
PFX k Y 2
PFX k 0 -/coxf .
PFX k 0 0/coy .
SFX e Y 2
SFX e 0 0/yoc .
SFX e 0 -/zc .
# for Uppercased end-words to prepend - and lowercase: (Tier/EPSm) (EX: Bettbezüge und *-laken*)
# AND
# for lowercased end-words to prepend - and re-uppercase : (tier/EPSozm) (EX: Arbeits*-Tier*)
#PFX m A -a/co A
#PFX m a -/ a
PFX m Y 58
PFX m A -a A
PFX m B -b B
PFX m C -c C
PFX m D -d D
PFX m E -e E
PFX m F -f F
PFX m G -g G
PFX m H -h H
PFX m I -i I
PFX m J -j J
PFX m K -k K
PFX m L -l L
PFX m M -m M
PFX m N -n N
PFX m O -o O
PFX m P -p P
PFX m Q -q Q
PFX m R -r R
PFX m S -s S
PFX m T -t T
PFX m U -u U
PFX m V -v V
PFX m W -w W
PFX m X -x X
PFX m Y -y Y
PFX m Z -z Z
PFX m Ä -ä Ä
PFX m Ö -ö Ö
PFX m Ü -ü Ü
PFX m a -A/co a
PFX m b -B/co b
PFX m c -C/co c
PFX m d -D/co d
PFX m e -E/co e
PFX m f -F/co f
PFX m g -G/co g
PFX m h -H/co h
PFX m i -I/co i
PFX m j -J/co j
PFX m k -K/co k
PFX m l -L/co l
PFX m m -M/co m
PFX m n -N/co n
PFX m o -O/co o
PFX m p -P/co p
PFX m q -Q/co q
PFX m r -R/co r
PFX m s -S/co s
PFX m t -T/co t
PFX m u -U/co u
PFX m v -V/co v
PFX m w -W/co w
PFX m x -X/co x
PFX m y -Y/co y
PFX m z -Z/co z
PFX m ä -Ä/co ä
PFX m ö -Ö/co ö
PFX m ü -Ü/co ü
# Decapitalizing: (not used ATM... )
# /co(f) : compound permit, in coumpount only, (decapitalizing with fogemorphemes)
#PFX l Y 29
#PFX l A a/co A
#PFX l Ä ä/co Ä
#PFX l B b/co B
#PFX l C c/co C
#PFX l D d/co D
#PFX l E e/co E
#PFX l F f/co F
#PFX l G g/co G
#PFX l H h/co H
#PFX l I i/co I
#PFX l J j/co J
#PFX l K k/co K
#PFX l L l/co L
#PFX l M m/co M
#PFX l N n/co N
#PFX l O o/co O
#PFX l Ö ö/co Ö
#PFX l P p/co P
#PFX l Q q/co Q
#PFX l R r/co R
#PFX l S s/co S
#PFX l T t/co T
#PFX l U u/co U
#PFX l Ü ü/co Ü
#PFX l V v/co V
#PFX l W w/co W
#PFX l X x/co X
#PFX l Y y/co Y
#PFX l Z z/co Z
# private hunspell flags:
# --x : not for capmain (rare words)
# With "BREAK -" some wrong forms are accepted but that is needed for US-Wirtschaft etc.
# So enabling this is the lesser evil. No perfect solution found so far...
BREAK 2
BREAK -
BREAK .

File diff suppressed because it is too large Load diff

View file

@ -0,0 +1,340 @@
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) year <name of author>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) year name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
<signature of Ty Coon>, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Library General
Public License instead of this License.

View file

@ -0,0 +1,674 @@
GNU GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The GNU General Public License is a free, copyleft license for
software and other kinds of works.
The licenses for most software and other practical works are designed
to take away your freedom to share and change the works. By contrast,
the GNU General Public License is intended to guarantee your freedom to
share and change all versions of a program--to make sure it remains free
software for all its users. We, the Free Software Foundation, use the
GNU General Public License for most of our software; it applies also to
any other work released this way by its authors. You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
them if you wish), that you receive source code or can get it if you
want it, that you can change the software or use pieces of it in new
free programs, and that you know you can do these things.
To protect your rights, we need to prevent others from denying you
these rights or asking you to surrender the rights. Therefore, you have
certain responsibilities if you distribute copies of the software, or if
you modify it: responsibilities to respect the freedom of others.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must pass on to the recipients the same
freedoms that you received. You must make sure that they, too, receive
or can get the source code. And you must show them these terms so they
know their rights.
Developers that use the GNU GPL protect your rights with two steps:
(1) assert copyright on the software, and (2) offer you this License
giving you legal permission to copy, distribute and/or modify it.
For the developers' and authors' protection, the GPL clearly explains
that there is no warranty for this free software. For both users' and
authors' sake, the GPL requires that modified versions be marked as
changed, so that their problems will not be attributed erroneously to
authors of previous versions.
Some devices are designed to deny users access to install or run
modified versions of the software inside them, although the manufacturer
can do so. This is fundamentally incompatible with the aim of
protecting users' freedom to change the software. The systematic
pattern of such abuse occurs in the area of products for individuals to
use, which is precisely where it is most unacceptable. Therefore, we
have designed this version of the GPL to prohibit the practice for those
products. If such problems arise substantially in other domains, we
stand ready to extend this provision to those domains in future versions
of the GPL, as needed to protect the freedom of users.
Finally, every program is threatened constantly by software patents.
States should not allow patents to restrict development and use of
software on general-purpose computers, but in those that do, we wish to
avoid the special danger that patents applied to a free program could
make it effectively proprietary. To prevent this, the GPL assures that
patents cannot be used to render the program non-free.
The precise terms and conditions for copying, distribution and
modification follow.
TERMS AND CONDITIONS
0. Definitions.
"This License" refers to version 3 of the GNU General Public License.
"Copyright" also means copyright-like laws that apply to other kinds of
works, such as semiconductor masks.
"The Program" refers to any copyrightable work licensed under this
License. Each licensee is addressed as "you". "Licensees" and
"recipients" may be individuals or organizations.
To "modify" a work means to copy from or adapt all or part of the work
in a fashion requiring copyright permission, other than the making of an
exact copy. The resulting work is called a "modified version" of the
earlier work or a work "based on" the earlier work.
A "covered work" means either the unmodified Program or a work based
on the Program.
To "propagate" a work means to do anything with it that, without
permission, would make you directly or secondarily liable for
infringement under applicable copyright law, except executing it on a
computer or modifying a private copy. Propagation includes copying,
distribution (with or without modification), making available to the
public, and in some countries other activities as well.
To "convey" a work means any kind of propagation that enables other
parties to make or receive copies. Mere interaction with a user through
a computer network, with no transfer of a copy, is not conveying.
An interactive user interface displays "Appropriate Legal Notices"
to the extent that it includes a convenient and prominently visible
feature that (1) displays an appropriate copyright notice, and (2)
tells the user that there is no warranty for the work (except to the
extent that warranties are provided), that licensees may convey the
work under this License, and how to view a copy of this License. If
the interface presents a list of user commands or options, such as a
menu, a prominent item in the list meets this criterion.
1. Source Code.
The "source code" for a work means the preferred form of the work
for making modifications to it. "Object code" means any non-source
form of a work.
A "Standard Interface" means an interface that either is an official
standard defined by a recognized standards body, or, in the case of
interfaces specified for a particular programming language, one that
is widely used among developers working in that language.
The "System Libraries" of an executable work include anything, other
than the work as a whole, that (a) is included in the normal form of
packaging a Major Component, but which is not part of that Major
Component, and (b) serves only to enable use of the work with that
Major Component, or to implement a Standard Interface for which an
implementation is available to the public in source code form. A
"Major Component", in this context, means a major essential component
(kernel, window system, and so on) of the specific operating system
(if any) on which the executable work runs, or a compiler used to
produce the work, or an object code interpreter used to run it.
The "Corresponding Source" for a work in object code form means all
the source code needed to generate, install, and (for an executable
work) run the object code and to modify the work, including scripts to
control those activities. However, it does not include the work's
System Libraries, or general-purpose tools or generally available free
programs which are used unmodified in performing those activities but
which are not part of the work. For example, Corresponding Source
includes interface definition files associated with source files for
the work, and the source code for shared libraries and dynamically
linked subprograms that the work is specifically designed to require,
such as by intimate data communication or control flow between those
subprograms and other parts of the work.
The Corresponding Source need not include anything that users
can regenerate automatically from other parts of the Corresponding
Source.
The Corresponding Source for a work in source code form is that
same work.
2. Basic Permissions.
All rights granted under this License are granted for the term of
copyright on the Program, and are irrevocable provided the stated
conditions are met. This License explicitly affirms your unlimited
permission to run the unmodified Program. The output from running a
covered work is covered by this License only if the output, given its
content, constitutes a covered work. This License acknowledges your
rights of fair use or other equivalent, as provided by copyright law.
You may make, run and propagate covered works that you do not
convey, without conditions so long as your license otherwise remains
in force. You may convey covered works to others for the sole purpose
of having them make modifications exclusively for you, or provide you
with facilities for running those works, provided that you comply with
the terms of this License in conveying all material for which you do
not control copyright. Those thus making or running the covered works
for you must do so exclusively on your behalf, under your direction
and control, on terms that prohibit them from making any copies of
your copyrighted material outside their relationship with you.
Conveying under any other circumstances is permitted solely under
the conditions stated below. Sublicensing is not allowed; section 10
makes it unnecessary.
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
No covered work shall be deemed part of an effective technological
measure under any applicable law fulfilling obligations under article
11 of the WIPO copyright treaty adopted on 20 December 1996, or
similar laws prohibiting or restricting circumvention of such
measures.
When you convey a covered work, you waive any legal power to forbid
circumvention of technological measures to the extent such circumvention
is effected by exercising rights under this License with respect to
the covered work, and you disclaim any intention to limit operation or
modification of the work as a means of enforcing, against the work's
users, your or third parties' legal rights to forbid circumvention of
technological measures.
4. Conveying Verbatim Copies.
You may convey verbatim copies of the Program's source code as you
receive it, in any medium, provided that you conspicuously and
appropriately publish on each copy an appropriate copyright notice;
keep intact all notices stating that this License and any
non-permissive terms added in accord with section 7 apply to the code;
keep intact all notices of the absence of any warranty; and give all
recipients a copy of this License along with the Program.
You may charge any price or no price for each copy that you convey,
and you may offer support or warranty protection for a fee.
5. Conveying Modified Source Versions.
You may convey a work based on the Program, or the modifications to
produce it from the Program, in the form of source code under the
terms of section 4, provided that you also meet all of these conditions:
a) The work must carry prominent notices stating that you modified
it, and giving a relevant date.
b) The work must carry prominent notices stating that it is
released under this License and any conditions added under section
7. This requirement modifies the requirement in section 4 to
"keep intact all notices".
c) You must license the entire work, as a whole, under this
License to anyone who comes into possession of a copy. This
License will therefore apply, along with any applicable section 7
additional terms, to the whole of the work, and all its parts,
regardless of how they are packaged. This License gives no
permission to license the work in any other way, but it does not
invalidate such permission if you have separately received it.
d) If the work has interactive user interfaces, each must display
Appropriate Legal Notices; however, if the Program has interactive
interfaces that do not display Appropriate Legal Notices, your
work need not make them do so.
A compilation of a covered work with other separate and independent
works, which are not by their nature extensions of the covered work,
and which are not combined with it such as to form a larger program,
in or on a volume of a storage or distribution medium, is called an
"aggregate" if the compilation and its resulting copyright are not
used to limit the access or legal rights of the compilation's users
beyond what the individual works permit. Inclusion of a covered work
in an aggregate does not cause this License to apply to the other
parts of the aggregate.
6. Conveying Non-Source Forms.
You may convey a covered work in object code form under the terms
of sections 4 and 5, provided that you also convey the
machine-readable Corresponding Source under the terms of this License,
in one of these ways:
a) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by the
Corresponding Source fixed on a durable physical medium
customarily used for software interchange.
b) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by a
written offer, valid for at least three years and valid for as
long as you offer spare parts or customer support for that product
model, to give anyone who possesses the object code either (1) a
copy of the Corresponding Source for all the software in the
product that is covered by this License, on a durable physical
medium customarily used for software interchange, for a price no
more than your reasonable cost of physically performing this
conveying of source, or (2) access to copy the
Corresponding Source from a network server at no charge.
c) Convey individual copies of the object code with a copy of the
written offer to provide the Corresponding Source. This
alternative is allowed only occasionally and noncommercially, and
only if you received the object code with such an offer, in accord
with subsection 6b.
d) Convey the object code by offering access from a designated
place (gratis or for a charge), and offer equivalent access to the
Corresponding Source in the same way through the same place at no
further charge. You need not require recipients to copy the
Corresponding Source along with the object code. If the place to
copy the object code is a network server, the Corresponding Source
may be on a different server (operated by you or a third party)
that supports equivalent copying facilities, provided you maintain
clear directions next to the object code saying where to find the
Corresponding Source. Regardless of what server hosts the
Corresponding Source, you remain obligated to ensure that it is
available for as long as needed to satisfy these requirements.
e) Convey the object code using peer-to-peer transmission, provided
you inform other peers where the object code and Corresponding
Source of the work are being offered to the general public at no
charge under subsection 6d.
A separable portion of the object code, whose source code is excluded
from the Corresponding Source as a System Library, need not be
included in conveying the object code work.
A "User Product" is either (1) a "consumer product", which means any
tangible personal property which is normally used for personal, family,
or household purposes, or (2) anything designed or sold for incorporation
into a dwelling. In determining whether a product is a consumer product,
doubtful cases shall be resolved in favor of coverage. For a particular
product received by a particular user, "normally used" refers to a
typical or common use of that class of product, regardless of the status
of the particular user or of the way in which the particular user
actually uses, or expects or is expected to use, the product. A product
is a consumer product regardless of whether the product has substantial
commercial, industrial or non-consumer uses, unless such uses represent
the only significant mode of use of the product.
"Installation Information" for a User Product means any methods,
procedures, authorization keys, or other information required to install
and execute modified versions of a covered work in that User Product from
a modified version of its Corresponding Source. The information must
suffice to ensure that the continued functioning of the modified object
code is in no case prevented or interfered with solely because
modification has been made.
If you convey an object code work under this section in, or with, or
specifically for use in, a User Product, and the conveying occurs as
part of a transaction in which the right of possession and use of the
User Product is transferred to the recipient in perpetuity or for a
fixed term (regardless of how the transaction is characterized), the
Corresponding Source conveyed under this section must be accompanied
by the Installation Information. But this requirement does not apply
if neither you nor any third party retains the ability to install
modified object code on the User Product (for example, the work has
been installed in ROM).
The requirement to provide Installation Information does not include a
requirement to continue to provide support service, warranty, or updates
for a work that has been modified or installed by the recipient, or for
the User Product in which it has been modified or installed. Access to a
network may be denied when the modification itself materially and
adversely affects the operation of the network or violates the rules and
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
License by making exceptions from one or more of its conditions.
Additional permissions that are applicable to the entire Program shall
be treated as though they were included in this License, to the extent
that they are valid under applicable law. If additional permissions
apply only to part of the Program, that part may be used separately
under those permissions, but the entire Program remains governed by
this License without regard to the additional permissions.
When you convey a copy of a covered work, you may at your option
remove any additional permissions from that copy, or from any part of
it. (Additional permissions may be written to require their own
removal in certain cases when you modify the work.) You may place
additional permissions on material, added by you to a covered work,
for which you have or can give appropriate copyright permission.
Notwithstanding any other provision of this License, for material you
add to a covered work, you may (if authorized by the copyright holders of
that material) supplement the terms of this License with terms:
a) Disclaiming warranty or limiting liability differently from the
terms of sections 15 and 16 of this License; or
b) Requiring preservation of specified reasonable legal notices or
author attributions in that material or in the Appropriate Legal
Notices displayed by works containing it; or
c) Prohibiting misrepresentation of the origin of that material, or
requiring that modified versions of such material be marked in
reasonable ways as different from the original version; or
d) Limiting the use for publicity purposes of names of licensors or
authors of the material; or
e) Declining to grant rights under trademark law for use of some
trade names, trademarks, or service marks; or
f) Requiring indemnification of licensors and authors of that
material by anyone who conveys the material (or modified versions of
it) with contractual assumptions of liability to the recipient, for
any liability that these contractual assumptions directly impose on
those licensors and authors.
All other non-permissive additional terms are considered "further
restrictions" within the meaning of section 10. If the Program as you
received it, or any part of it, contains a notice stating that it is
governed by this License along with a term that is a further
restriction, you may remove that term. If a license document contains
a further restriction but permits relicensing or conveying under this
License, you may add to a covered work material governed by the terms
of that license document, provided that the further restriction does
not survive such relicensing or conveying.
If you add terms to a covered work in accord with this section, you
must place, in the relevant source files, a statement of the
additional terms that apply to those files, or a notice indicating
where to find the applicable terms.
Additional terms, permissive or non-permissive, may be stated in the
form of a separately written license, or stated as exceptions;
the above requirements apply either way.
8. Termination.
You may not propagate or modify a covered work except as expressly
provided under this License. Any attempt otherwise to propagate or
modify it is void, and will automatically terminate your rights under
this License (including any patent licenses granted under the third
paragraph of section 11).
However, if you cease all violation of this License, then your
license from a particular copyright holder is reinstated (a)
provisionally, unless and until the copyright holder explicitly and
finally terminates your license, and (b) permanently, if the copyright
holder fails to notify you of the violation by some reasonable means
prior to 60 days after the cessation.
Moreover, your license from a particular copyright holder is
reinstated permanently if the copyright holder notifies you of the
violation by some reasonable means, this is the first time you have
received notice of violation of this License (for any work) from that
copyright holder, and you cure the violation prior to 30 days after
your receipt of the notice.
Termination of your rights under this section does not terminate the
licenses of parties who have received copies or rights from you under
this License. If your rights have been terminated and not permanently
reinstated, you do not qualify to receive new licenses for the same
material under section 10.
9. Acceptance Not Required for Having Copies.
You are not required to accept this License in order to receive or
run a copy of the Program. Ancillary propagation of a covered work
occurring solely as a consequence of using peer-to-peer transmission
to receive a copy likewise does not require acceptance. However,
nothing other than this License grants you permission to propagate or
modify any covered work. These actions infringe copyright if you do
not accept this License. Therefore, by modifying or propagating a
covered work, you indicate your acceptance of this License to do so.
10. Automatic Licensing of Downstream Recipients.
Each time you convey a covered work, the recipient automatically
receives a license from the original licensors, to run, modify and
propagate that work, subject to this License. You are not responsible
for enforcing compliance by third parties with this License.
An "entity transaction" is a transaction transferring control of an
organization, or substantially all assets of one, or subdividing an
organization, or merging organizations. If propagation of a covered
work results from an entity transaction, each party to that
transaction who receives a copy of the work also receives whatever
licenses to the work the party's predecessor in interest had or could
give under the previous paragraph, plus a right to possession of the
Corresponding Source of the work from the predecessor in interest, if
the predecessor has it or can get it with reasonable efforts.
You may not impose any further restrictions on the exercise of the
rights granted or affirmed under this License. For example, you may
not impose a license fee, royalty, or other charge for exercise of
rights granted under this License, and you may not initiate litigation
(including a cross-claim or counterclaim in a lawsuit) alleging that
any patent claim is infringed by making, using, selling, offering for
sale, or importing the Program or any portion of it.
11. Patents.
A "contributor" is a copyright holder who authorizes use under this
License of the Program or a work on which the Program is based. The
work thus licensed is called the contributor's "contributor version".
A contributor's "essential patent claims" are all patent claims
owned or controlled by the contributor, whether already acquired or
hereafter acquired, that would be infringed by some manner, permitted
by this License, of making, using, or selling its contributor version,
but do not include claims that would be infringed only as a
consequence of further modification of the contributor version. For
purposes of this definition, "control" includes the right to grant
patent sublicenses in a manner consistent with the requirements of
this License.
Each contributor grants you a non-exclusive, worldwide, royalty-free
patent license under the contributor's essential patent claims, to
make, use, sell, offer for sale, import and otherwise run, modify and
propagate the contents of its contributor version.
In the following three paragraphs, a "patent license" is any express
agreement or commitment, however denominated, not to enforce a patent
(such as an express permission to practice a patent or covenant not to
sue for patent infringement). To "grant" such a patent license to a
party means to make such an agreement or commitment not to enforce a
patent against the party.
If you convey a covered work, knowingly relying on a patent license,
and the Corresponding Source of the work is not available for anyone
to copy, free of charge and under the terms of this License, through a
publicly available network server or other readily accessible means,
then you must either (1) cause the Corresponding Source to be so
available, or (2) arrange to deprive yourself of the benefit of the
patent license for this particular work, or (3) arrange, in a manner
consistent with the requirements of this License, to extend the patent
license to downstream recipients. "Knowingly relying" means you have
actual knowledge that, but for the patent license, your conveying the
covered work in a country, or your recipient's use of the covered work
in a country, would infringe one or more identifiable patents in that
country that you have reason to believe are valid.
If, pursuant to or in connection with a single transaction or
arrangement, you convey, or propagate by procuring conveyance of, a
covered work, and grant a patent license to some of the parties
receiving the covered work authorizing them to use, propagate, modify
or convey a specific copy of the covered work, then the patent license
you grant is automatically extended to all recipients of the covered
work and works based on it.
A patent license is "discriminatory" if it does not include within
the scope of its coverage, prohibits the exercise of, or is
conditioned on the non-exercise of one or more of the rights that are
specifically granted under this License. You may not convey a covered
work if you are a party to an arrangement with a third party that is
in the business of distributing software, under which you make payment
to the third party based on the extent of your activity of conveying
the work, and under which the third party grants, to any of the
parties who would receive the covered work from you, a discriminatory
patent license (a) in connection with copies of the covered work
conveyed by you (or copies made from those copies), or (b) primarily
for and in connection with specific products or compilations that
contain the covered work, unless you entered into that arrangement,
or that patent license was granted, prior to 28 March 2007.
Nothing in this License shall be construed as excluding or limiting
any implied license or other defenses to infringement that may
otherwise be available to you under applicable patent law.
12. No Surrender of Others' Freedom.
If conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot convey a
covered work so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you may
not convey it at all. For example, if you agree to terms that obligate you
to collect a royalty for further conveying from those to whom you convey
the Program, the only way you could satisfy both those terms and this
License would be to refrain entirely from conveying the Program.
13. Use with the GNU Affero General Public License.
Notwithstanding any other provision of this License, you have
permission to link or combine any covered work with a work licensed
under version 3 of the GNU Affero General Public License into a single
combined work, and to convey the resulting work. The terms of this
License will continue to apply to the part which is the covered work,
but the special requirements of the GNU Affero General Public License,
section 13, concerning interaction through a network will apply to the
combination as such.
14. Revised Versions of this License.
The Free Software Foundation may publish revised and/or new versions of
the GNU General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the
Program specifies that a certain numbered version of the GNU General
Public License "or any later version" applies to it, you have the
option of following the terms and conditions either of that numbered
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
permissions. However, no additional obligations are imposed on any
author or copyright holder as a result of your choosing to follow a
later version.
15. Disclaimer of Warranty.
THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
16. Limitation of Liability.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
SUCH DAMAGES.
17. Interpretation of Sections 15 and 16.
If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
state the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) <year> <name of author>
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
Also add information on how to contact you by electronic and paper mail.
If the program does terminal interaction, make it output a short
notice like this when it starts in an interactive mode:
<program> Copyright (C) <year> <name of author>
This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, your program's commands
might be different; for a GUI interface, you would use an "about box".
You should also get your employer (if you work as a programmer) or school,
if any, to sign a "copyright disclaimer" for the program, if necessary.
For more information on this, and how to apply and follow the GNU GPL, see
<http://www.gnu.org/licenses/>.
The GNU General Public License does not permit incorporating your program
into proprietary programs. If your program is a subroutine library, you
may consider it more useful to permit linking proprietary applications with
the library. If this is what you want to do, use the GNU Lesser General
Public License instead of this License. But first, please read
<http://www.gnu.org/philosophy/why-not-lgpl.html>.

View file

@ -0,0 +1,47 @@
COMMENT OF THE EXTENSION OWNER (KARL ZEILER)
Compatibility
=============
This extension is compatible with:
- Apache OpenOffice (Versions 3.3, 3.4; 4.0, 4.1)
- LibreOffice (Versions 3.3, 3.4, 3.5, 3.6; 4.0, 4.1, 4.2, 4.3, 4.4; 5.0, 5.1, 5.2)
- OpenOffice.org (Versions 3.0 or later)
Spell checking
==============
de-DE_frami
Version: 2017-01-09
Author: Franz Michael Baumann <fm.baumann@uni-muenster.de>
Based on igerman98 dictionary:
Version: 2016-12-07
Author: Björn Jacke <bjoern@j3e.de>
Download: http://www.j3e.de/ispell/igerman98/dict/
License: GNU GPL Version 2 or GPL Version 3 or OASIS 0.1
The frami dictionary contains the complete word list of igerman98
and in addition numerous supplements by Franz Michael Baumann according to
the reform of 2006-08-01.
Hyphenation
===========
Version: 2017-01-12
New: using the COMPOUND feature for improved hyphenation
New: list with over 69,000 words and compounds by Karl Zeiler
Authors: Marco Huggenberger <marco@by-night.ch>
Daniel Naber <naber@danielnaber.de>
Karl Zeiler <karl.zeiler@t-online.de>
License: GNU LGPL Version 2.1 or later
Thesaurus
=========
OpenThesaurus - Deutscher Thesaurus - Synonyme und Assoziationen
Version: 2017-01-06 DE
License: GNU LGPL Version 2.1 or later
http://www.openthesaurus.de
Please note
===========
Detecting errors or missing words, please contact the extension owner:
Karl Zeiler <karl.zeiler@t-online.de>

View file

@ -1,4 +1,4 @@
# this is the affix file of the de_AT Hunspell dictionary
# this is the affix file of the de_DE Hunspell dictionary
# derived from the igerman98 dictionary
#
# Version: 20161207+frami20170109

View file

@ -0,0 +1,17 @@
Bei dem Wörterbuch xxx_frami handelt es sich um ein Addon. Es enthält
alle Wörter des Basiswörterbuchs, zusätzlich jedoch etliche, die entweder
im Basiswörterbuch noch fehlen oder die nicht unbedingt zum Kernwortschatz
des Deutschen gehören. Die zusätzlichen Aufnahmen sind ungeprüft.
Dieses Wörterbuch basiert auf dem igerman98 Ispell-Wörterbuch, zu finden
unter http://www.j3e.de/ispell/igerman98/ .
Das Wörterbuch und alle enthaltenen Wortlisten sind lizenziert unter der
GNU GPL, Version 2 oder 3.
Fehlermeldungen oder Ergänzungswünsche können gemailt werden an:
Franz Michael Baumann <fm.baumann@uni-muenster.de>
Autor des Grundwörterbuchs:
Bjoern Jacke <bjoern@j3e.de>
Autor der Erweiterung
Franz Michael Baumann <fm.baumann@uni-muenster.de>

View file

@ -0,0 +1,6 @@
[Revision]
rev=101
[LocaleInfo]
FileNameBase=de_DE_Reformed
SupportedLocales=de-DE

76
dicts/en_GB/README.txt Normal file
View file

@ -0,0 +1,76 @@
OpenOffice.org Hunspell en_US dictionary
2010-03-09 release
--
This dictionary is based on a subset of the original
English wordlist created by Kevin Atkinson for Pspell
and Aspell and thus is covered by his original
LGPL license. The affix file is a heavily modified
version of the original english.aff file which was
released as part of Geoff Kuenning's Ispell and as
such is covered by his BSD license.
Thanks to both authors for there wonderful work.
ChangeLog
2010-03-09 (nemeth AT OOo)
- UTF-8 encoded dictionary:
- fix em-dash problem of OOo 3.2 by BREAK
- suggesting words with typographical apostrophes
- recognizing words with Unicode f ligatures
- add phonetic suggestion (Copyright (C) 2000 Björn Jacke, see the end of the file)
2007-08-29 nemeth AT OOo
Mozilla 376296 - add "axe" (variant of ax)
Mozilla 386259 - add "JavaScript"
Mozilla 383694 - add "foci" and "octopi" (plurals of focus and octopus)
Issue 73024 - add "gauge"
Issue 75710 - add "foldable"
Issue 75772 - add "GHz"
Mozilla 379527 and Issue 62294 - add "dialogue"
Issue 64246 - add "acknowledgement" as a variant of "acknowledgment"
- TRY extended with apostrophe and dash for
dont -> don't
alltime -> all-time suggestions
- new REP suggestions:
- REP alot a_lot (alot -> a lot)
for suggestion)
- REP nt n't (dont -> don't)
- REP avengence -> a_vengeance (avengence -> a vengeance)
- REP ninties 1990s
- REP tion ssion: readmition -> readmission
- add Mozilla words (blog, cafe, inline, online, eBay, PayPal, etc.)
- add cybercafé
- alias compression (saving 15 kB disk space + 0.8 MB memory)
Mozilla 355178 - add scot-free
Mozilla 374411 - add Scotty
Mozilla 359305 - add archaeology, archeological, archeologist
Mozilla 358754 - add doughnut
Mozilla 254814 - add gauging, canoeing, *canoing, proactively
Issue 71718 - remove *opthalmic, *opthalmology; *opthalmologic -> ophthalmologic
Issue 68550 - *estoppal -> estoppel
Issue 69345 - add tapenade
Issue 67975 - add assistive
Issue 63541 - remove *dessicate
Issue 62599 - add toolbar
2006-02-07 nemeth AT OOo
Issue 48060 - add ordinal numbers with COMPOUNDRULE (1st, 11th, 101st etc.)
Issue 29112, 55498 - add NOSUGGEST flags to taboo words
Issue 56755 - add sequitor (non sequitor)
Issue 50616 - add open source words (GNOME, KDE, OOo, OpenOffice.org)
Issue 56389 - add Mozilla words (Mozilla, Firefox, Thunderbird)
Issue 29110 - add okay
Issue 58468 - add advisors
Issue 58708 - add hiragana & katakana
Issue 60240 - add arginine, histidine, monovalent, polymorphism, pyroelectric, pyroelectricity
2005-11-01 dnaber AT OOo
Issue 25797 - add proven, advisor, etc.

View file

@ -0,0 +1,174 @@
This dictionary was initially based on a subset of the
original English wordlist created by Kevin Atkinson for
Pspell and Aspell and thus is covered by his original
LGPL licence.
It has been extensively updated by David Bartlett, Brian Kelk,
Andrew Brown and Marco A.G.Pinto:
— Numerous Americanisms/spellings have been removed;
— Missing words have been added;
— Many errors have been corrected;
— Compound hyphenated words have been added where appropriate;
— Thousands of proper/places names have been added;
— Thousands of possessives have been added;
— Thousands of plurals have been added;
— Over two thousand duplicates have been removed.
Valuable inputs to this process were received from many other
people — far too numerous to name. Serious thanks to all for
your greatly appreciated help.
This wordlist is intended to be a good representation of
current modern British English and thus it should be a good
basis for Commonwealth English in most countries of the world
outside North America.
The affix file has been created completely from scratch
by David Bartlett and Andrew Brown, based on the published
rules for MySpell and is also provided under the LGPL.
In creating the affix rules an attempt has been made to
reproduce the most general rules for English word
formation, rather than merely use it to compress the
size of the dictionary. It is hoped that this will
facilitate future localisation to other variants of English.
---
This is a locally hosted copy of the English dictionaries with fixed
dash handling and new ligature and phonetic suggestion support extension:
https://extensions.openoffice.org/en/node/3785
Original version of the en_GB dictionary:
https://bz.apache.org/ooo/show_bug.cgi?id=72145
OpenOffice.org patch and morphological extension.
The morphological extension based on Wordlist POS and AGID data
created by Kevin Atkinson and released on http://wordlist.sourceforge.net.
Other fixes:
OOo Issue 48060 — add numbers with affixes by COMPOUNDRULE (1st, 111th, 1990s etc.)
OOo Issue 29112, 55498 — add NOSUGGEST flags to taboo words
New REP items (better suggestions for accented words and a few mistakes)
OOo Issue 63541 — remove *dessicated
2008-12-18 — NOSUGGEST, NUMBER/COMPOUNDRULE patches (nemeth AT OOo)
2010-03-09 (nemeth AT OOo)
— UTF-8 encoded dictionary:
— Fix em-dash problem of OOo 3.2 by BREAK
— Suggesting words with typographical apostrophes
— Recognising words with Unicode f ligatures
— Add phonetic suggestion (© 2000 Björn Jacke)
2013-08-25 — GB forked by Marco A.G.Pinto
2016-06-10 — NOSUGGEST added to this clean version of the GB .AFF (Marco A.G.Pinto)
2016-06-21 — COMPOUNDING added to this clean version of the GB .AFF (Áron Budea)
2016-08-01 — GB changelog is no longer included in the README file
2016-09-11 — .AFF + .DIC now use UNIX line endings
2017-10-08 — Mozilla: used <em:maxVersion>*</em:maxVersion> to work with all future
versions, except Thunderbird
2017-12-16 — Added to the .AFF:
ICONV 1
ICONV '
Thanks to Jeroen Ooms
2018-05-01 — Andrew Ziem suggested a list of 328 names of famous people on Kevin's GitHub:
"These 328 name tokens were derived from the top 100 lists in Google Trends via
this repository (https://github.com/az0/google-trend-names). The geography was
set to US, and it spanned dates from 2004 to 2018."
2018-08-01 — Slightly higher quality icon
— Added tons of drugs names supplied by the user Andrew Ziem on Kevin's GitHub
— Fixed/improved flag "5": "women's" was missing
2018-06-01
to
2018-09-01 — Added places from New Zealand/UK (England, Scotland, Wales & Northern Ireland):
On V2.612.64 I included tons of place names.
My scientist friend, Peter McGavin, told me that in NZ they use British, so I decided
to do something about it. I did the same for UK. I searched on Wikipedia for "towns",
"counties", "villages", "boroughs", "suburbs", etc. and based me on:
— https://en.wikipedia.org/wiki/List_of_towns_in_England;
  — https://en.wikipedia.org/wiki/List_of_towns_in_New_Zealand;
  — https://en.wikipedia.org/wiki/List_of_civil_parishes_in_England;
  — https://en.wikipedia.org/wiki/List_of_civil_parishes_in_Scotland;
  — https://en.wikipedia.org/wiki/List_of_places_in_Scotland;
  — https://en.wikipedia.org/wiki/List_of_communities_in_Wales;
  — https://en.wikipedia.org/wiki/Local_government_in_Wales;
  — https://en.wikipedia.org/wiki/List_of_towns_and_villages_in_Northern_Ireland;
  — https://en.wikipedia.org/wiki/Counties_of_Northern_Ireland;
  — https://en.wikipedia.org/wiki/Category:Suburbs_in_New_Zealand;
  — https://en.wikipedia.org/wiki/List_of_Church_of_Scotland_parishes.
Also, added places sent to me by Peter C.:
© OpenStreetMap contributors: www.openstreetmap.org/copyright.
© The Clergy of the Church of England Database Project, 2005.
2018-10-01 — Added the cities from Australia by population:
 — https://en.wikipedia.org/wiki/List_of_cities_in_Australia_by_population
— Added tons of cities from the US with a 10 000+ population.
This list was supplied by Michael Holroyd on Kevin Atkinson's GitHub.
— Added tons of possessives to nouns, thanks to Jörg Knobloch.
2018-12-01 — Added the cities from Canada:
 — https://en.wikipedia.org/wiki/List_of_cities_in_Canada
2019-02-01 — Improved flag "5" thanks to the GitHub user Ding-adong:
Some "swomen's" and "women's" entries were missing.
— Fixed flag "3": -ists, -ists, -ist's → -ist, -ists, -ist's.
— Improved flag "N".
2019-03-01 — Added the LGPL_V3 License .txt into the Extension.
— Ding-adong added a flag "=" for suffixes: -lessness, -lessnesses, -lessness's.
— Ding-adong changed the prefix flag "O" to "^" since "O" was both prefix and suffix.
— Small fixes and enhancements on flags "z" and "O" by Ding-adong.
2019-04-01 — Improved flag "P" thanks to Ding-adong, giving also -nesses which
increased the wordlist in ~1800 valid words.
2019-07-01 — Major cleanup of the .dic by removing hundreds of duplicates, merging flags, adding
possessives and plurals.
2019-08-01 — Major cleanup of the .dic by removing hundreds of duplicates, merging flags, adding
possessives and plurals.
— Improved flags: "i", "n", "N", "O", "W", "Z" and "2":
— Flag "2" increased the wordlist in ~400 valid words;
— Flag "i" increased the wordlist in ~200 valid words;
— Flag "n" increased the wordlist in ~1000 valid words.
2019-09-01 — Major cleanup of the .dic by removing hundreds of duplicates, merging flags, adding
possessives and plurals.
— Improved flags: "O", "W", "Z" and "3".
-------
MARCO A.G.PINTO:
Since the dictionary wasn't updated for many years, I forked it to add new words and fixes.
I grabbed Mozilla's version since it wasn't obfuscated. Alexandro Colorado and I
tried to unmunch the OpenOffice version but all we got was rubbish.
The dictionary icon in the Extension Manager was designed by Pedro Marques.
The sources used to verify the spelling of the words I included in the dictionary:
1) Oxford Dictionaries;
2) Collins Dictionary;
3) Macmillan Dictionary;
4) Cambridge Dictionary;
5) Merriam-Webster Dictionary (used with caution ⚠);
6) Wiktionary (used with caution ⚠);
7) Wikipedia (used with caution ⚠);
8) Physical dictionaries.
Main difficulties developing this dictionary:
1) Proper names;
2) Possessive forms;
3) Plurals.
Please let Marco A.G.Pinto know of any errors that you find:
E-mail:
marcoagpinto@sapo.pt
Site:
http://proofingtoolgui.org
FAQ:
http://proofingtoolgui.org/faq.html
FAQ ("movie", "automobile", "airplane", "hardcover" and "bookstore"):
http://proofingtoolgui.org/faq.html#7
Notice: Due to complaints, "movie" was added on V2.57 since it is a widely used word.
Changelog:
http://proofingtoolgui.org/en_GB_CHANGES.txt
Nightly changes (GitHub):
https://github.com/marcoagpinto/aoo-mozilla-en-dict

View file

@ -0,0 +1,149 @@
---------------------------------------------------------------------
This file is a summary of the switches used in the en_GB affix file.
A description of the affix file format is appended to the end of this
In addition to the new suffix and prefix rules a modified TRY list is
used in order to properly find spelling errors in words having . (period)
' (apostrophe) and - (hyphen) within them. A replacement list for common
mis-spellings has also been incorporated.
The en_GB.aff affix file was created from scratch by David Bartlett and
Andrew Brown.
15/12/02
---------------------------------------------------------------------
A re- Prefix
a mis- Prefix
B -able, -ability, last syllable of stem stressed, -ate words > 2 syllables
b -ible, very basic rules, only dropped e
C de- Prefix
c over- Prefix
D -ed, regular verb past tenses, last syllable of stem stressed
d -ed, -ing, regular verb past tenses and adverbial form, last syllable NOT stressed
E dis- Prefix for negation
e out- Prefix
F con- prefix
f under - Prefix
G -ing, ending for verbs, stress on last syllable of stem
g -ability, last syllable NOT stressed
H -th, -fold - number specific suffixes, both generated
h -edly, adverbial, simplified rules
I in- im- il- ir- Prefix, opposite of.
i -edness, degree, simplified rules
J -ings, plural noun version of verb ing ending, simplified rules
j -fully, suffix
K pre-, prefix
k -ingly, adverbial form, simplified rules
L -ment, -ments, -ment's, suffix, both generated
l -ably, simplified rules
M -'s, possessive form
m -man, -men, -man's, -men's suffixes, all generated
N -ion, noun from verb, stress on last syllable of stem
n -ion, -ions, noun from verb, stress NOT on last syllable of stem
O non- Prefix
o -ally, adverb from verb, simplified rules
P -ness, -ness's, adjective degree of comparison
p -less, comparative suffix
Q -ise, -ised, -ises, -ising, -ize, -ized, -izes, -izing, all generated!
q -isation, -isations, -ization, -izations, all generated
R -er, -ers, er's, doer, last syllable stressed, both forms generated
r -er, -ers, er's, doer, last syllable NOT stressed, both forms generated
S -s, noun plurals, verb conjugation
s -iser, -isers, -izer, -izers, -iser's, -izer's, all generated
T -er, -est, adjectival comparatives, both generated
t -isable, -isability, -izable, -izability, all generated
U un- Prefix
u -iveness, ending for verbs
V -ive, ending for verbs (simplified rules)
v -ively, ending for verbs
W -ic, adjectival ending, simplified rules
w -ical, adjectival ending, simplified rules
X -ions, noun plural, stress on last syllable of stem, simplified rules
x -ional, -ionally, simplified rules, both endings formed
Y -ly, adverb endings for adjectives
y -ry, adjectival and noun forms, simplified rules.
Z -y, diminutive and adjectival form, simplified rules
z -ily, adverbial ending where adjective adds y
0 -al, noun from verb, simplified rules
1 -ically, adverbial double suffix, simplified rules
2 -iness, y+ness ending, simplified rules
3 -ist, -ists, -ists's, professions
4 trans-, Prefix
5 -woman, -women, -woman's suffixes, all generated
6 -ful, suffix
7 -able, last syllable NOT stressed, -ate words <= 2 syllables
8
9
---------------------------------------------------------------------
To Do:
-ity
-en
-ify, -ified, -ifies, -ifing
-ism
-ish
-ous
-ously
---------------------------------------------------------------------
The following minor suffixes have been ignored, based on
frequency counts in the standard word list
-fulness
-lessly
-lessness
-ousness
-ifier
-ification
-ward
-ship
-ishly
-ible
-ibility
-iveity
-edness
-icable
-icability
-ality
-alism
-ics
-ional
-ology
-ologist
-istic
---------------------------------------------------------------------
What follows is cut and pasted from the instructions at
http://whiteboard.openoffice.org/lingucomponent/affix.readme
The first line has 4 fields:
Field
-----
1 SFX - indicates this is a suffix
2 D - is the name of the character which represents this suffix
3 Y - indicates it can be combined with prefixes (cross product)
4 4 - indicates that sequence of 4 affix entries are needed to
properly store the affix information
The remaining lines describe the unique information for the 4 affix
entries that make up this affix. Each line can be interpreted
as follows: (note fields 1 and 2 are used as a check against line 1 info)
Field
-----
1 SFX - indicates this is a suffix
2 D - is the name of the character which represents this affix
3 y - the string of chars to strip off before adding affix
(a 0 here indicates the NULL string)
4 ied - the string of affix characters to add
(a 0 here indicates the NULL string)
5 [^aeiou]y - the conditions which must be met before the affix
can be applied
Field 5 is interesting. Since this is a suffix, field 5 tells us that
there are 2 conditions that must be met. The first condition is that
the next to the last character in the word must *NOT* be any of the
following "a", "e", "i", "o" or "u". The second condition is that
the last character of the word must end in "y".

515
dicts/en_GB/changelog.txt Normal file
View file

@ -0,0 +1,515 @@
MAGP 2019-09-01
- Converted some line endings in this file from Windows to Unix.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 2822 new words(1) (2019-08-01) + 1705 new words(1) (2019-09-01).
(1) at least, because TOTAL_NEW_WORDS = TOTAL_CURRENT_WORDS - TOTAL_PREVIOUS_WORDS
and there were tons of duplicates removed and cleaned/simplified the .dic.
There were also tons of plurals/possessives added (WIP).
MAGP 2019-07-01
- Improved the description of the Extension.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 614 new words (2019-06-01) + 180 new words(1) (2019-07-01).
(1) at least, because TOTAL_NEW_WORDS = TOTAL_CURRENT_WORDS - TOTAL_PREVIOUS_WORDS
and there were tons of duplicates removed and cleaned/simplified the .dic.
There were also tons of plurals/possessives added (WIP).
MAGP 2019-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 2358 new words (2019-04-01) + 458 new words (2019-05-01).
MAGP 2019-03-01
Added the LGPL_V3 License .txt into the Extension.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 764 new words (2019-02-01) + 1046 new words (2019-03-01).
MAGP 2019-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1529 new words (2018-12-01) + 1175 new words (2019-01-01).
MAGP 2018-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 5225 new words (2018-10-01) + 1138 new words (2018-11-01).
MAGP 2018-09-01
Improved the logo quality since Pedro Marques sent me the original model which can be resized in all sizes.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 5101 new words (2018-08-01) + 14713 new words (2018-09-01).
MAGP 2018-07-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 3656 new words (2018-06-01) + 7101 new words (2018-07-01).
MAGP 2018-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 820 new words (2018-04-01) + 857 new words (2018-05-01).
MAGP 2018-03-01
Simplified the Extension description.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1421 new words (2018-02-01) + 1208 new words (2018-03-01).
MAGP 2018-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1483 new words (2017-12-01) + 3034 new words (2018-01-01).
In November + December I added THOUSANDS of possessives to proper names.
Added 500+ proper names.
MAGP 2017-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 467 new words (2017-10-01) + 824 new words (2017-11-01).
MAGP 2017-09-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 473 new words (2017-08-01) + 297 new words (2017-09-01).
MAGP 2017-07-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 480 new words (2017-06-01) + 433 new words (2017-07-01).
MAGP 2017-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 431 new words (2017-04-01) + 271 new words (2017-05-01).
MAGP 2017-03-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 638 new words (2017-02-01) + 326 new words (2017-03-01).
MAGP 2017-01-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 488 new words (2016-12-01) + 554 new words (2017-01-01).
MAGP 2016-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 710 new words (2016-10-01) + 735 new words (2016-11-01).
MAGP 2016-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 773 new words (2016-08-01) + 728 new words (2016-09-01).
GB changelog is no longer included in the README file,
instead there are links inside it that point to the information
(lower filesize).
MAGP 2016-07-01
Updated the hyphenation patterns to 2011-10-07 (from LibreOffice):
- US + GB
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1107 new words (2016-06-01) + 738 new words (2016-07-01).
It now uses NOSUGGEST keyword for offensive words.
It now uses COMPOUNDING (Áron Budea)
MAGP 2016-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 811 new words.
MAGP 2016-04-01
Updated the Dictionaries:
- Australian (2016-03-14)*
- British (Marco A.G.Pinto)**
- South African (Dwayne Bailey) (2012-07-10)
* Australian had all UTF-8 corrupt words fixed by Marco.
** British has 819 new words and attempted to make compatible with the command line using the UTF-8 apostrophe.
MAGP 2016-03-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 935 new words.
Converted the US Thesaurus into UTF-8 and removed 752 duplicated meanings
MAGP 2016-02-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2016-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-12-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-10-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-08-01
It is now compatible with the latest version of LibreOffice.
Improved the description text.
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-07-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-06-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-05-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-04-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-03-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-02-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-01-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-12-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-10-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-07-01
Changed the publisher name in description.xml to "Marco A.G.Pinto" since
Ariel Constenla-Haile and Andrea Pescetti from Apache told me that the one being
used, "Apache OpenOffice", had a license incompatibility.
Updated the en_GB dictionary.
MAGP 2014-06-01
Fixed the Extension URL in the description since the old URL was temporary.
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-02-10
The extension, in the Extension Manager, now has an icon, a name with a link and a description.
Also updated the en_GB dictionary.
MAGP 2014-01-07
Updated the English British Dictionary.
Regarding the 2006 version, this one has over 800 new unique words plus the derived ones.
Please notice that Marco's forked version was based on the non-obfuscated Mozilla version.
AP 31/7/2013
Modify dictionaries.xcu for better hyphenation, see
https://issues.apache.org/ooo/show_bug.cgi?id=119087
DNW 20/11/2008
Removed un-Australian -ize variants of words from ths list.
DNW 27/9/08
A short list of Australian slang terms was added.
Added same new words like 'cellphone' from various online new word lists.
DNW 25/9/2008
Version packaged as English Australian Dictionary Extension version 1 for OpenOffice version 3.
-- Notes for 2.1.1 --
- Made some modifications as this dictionary is specifically aimed at Mozilla products and online users.
My modifications:
blog/RDGMS
Bugzilla/M
caffeinate/D
Camino/M
ChatZilla/M
eBay/M
Firefox/M
Flock/M
-gauge/DaGS
gauge/aBDGMS
Google/M
google/SGD
HTML/M
https
inline/D
-install/7NRn
install/7NRnSUGMB
-Internet/M
internet/M
JavaScript/M
Mozilla/M
phish/RG
-plug-in
plug-in/SM
plugin/SM
podcast/MSRG
PowerPoint/M
screenshot/S
SeaMonkey/M
Songbird/M
-spam/DG
spam/DGM
-spammer
spammer/MRS
subdomain/SM
Sunbird/M
Thunderbird/M
toolbar/S
unsubscribe/D
webmaster/MS
webmistress/MS
XULRunner/M
-- Notes for 2.1 -- (Not released)
Based on en_AU_V2.1.zip from http://www.justlocal.com.au/
- Removed words with spaces
- Removed trailing spaces from words
- Change accented characters in words where this was valid according to the
Macquarie English dictionary.
- Removed U.S. spellings of the words with ize so only ise and variants remain.
- Fixed error in affix file on line 1068 from SFZ to SFX.
-- Notes for 0.2 -- 2006-08-03
Gah! A typo in the extension name? New version pronto!
-- Notes for 0.1 -- 2006-08-03
I, Cameron, downloaded the en-AU dictionary file from http://lingucomponent.openoffice.org/spell_dic.html in order to package it correctly for use in Mozilla applications and distribution through addons.mozilla.org. It was last modified on 2003-03-29. I received no reply after emailing the author, and such have decided to make my own fork (is it still a fork if the previous one isn't maintained?) for Mozilla :) I have also decided to change the license to the GNU General Public License - as per section 3 of the LGPL.
The en_AU dictionary is credited to Kelvin Eldridge (previous maintainer) <audictionary@onlineconnections.com.au>, Jean Hollis Weber and David Wilson (originally licensed under the LGPL.)
Their changes:
- Words incorrect in Australian English removed
- a list from the previously removed words with corrected spelling was added
- a list of major rivers was added
- a list of place names was added
- a list of Australian mammals was added
- a list of Aboriginal/Koori words commonly used was added
This dictionary was based on the en_GB dictionary, edited by David Bartlett, Brian Kelk and Andrew Brown - (originally licensed under the LGPL.)
Which was in turn initially based on a subset of the original English wordlist created by Kevin Atkinson for Pspell and Aspell - (originally licensed under the LGPL.)
Original affix file created completely from scratch by David Bartlett and Andrew Brown, based on the published rules for MySpell - (originally licensed under the LGPL.)

5
dicts/en_GB/dict.ini Normal file
View file

@ -0,0 +1,5 @@
[Revision]
rev=101
[LocaleInfo]
FileNameBase=en_GB
SupportedLocales=en-GB

165
dicts/en_GB/lgpl-3.0.txt Normal file
View file

@ -0,0 +1,165 @@
GNU LESSER GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
This version of the GNU Lesser General Public License incorporates
the terms and conditions of version 3 of the GNU General Public
License, supplemented by the additional permissions listed below.
0. Additional Definitions.
As used herein, "this License" refers to version 3 of the GNU Lesser
General Public License, and the "GNU GPL" refers to version 3 of the GNU
General Public License.
"The Library" refers to a covered work governed by this License,
other than an Application or a Combined Work as defined below.
An "Application" is any work that makes use of an interface provided
by the Library, but which is not otherwise based on the Library.
Defining a subclass of a class defined by the Library is deemed a mode
of using an interface provided by the Library.
A "Combined Work" is a work produced by combining or linking an
Application with the Library. The particular version of the Library
with which the Combined Work was made is also called the "Linked
Version".
The "Minimal Corresponding Source" for a Combined Work means the
Corresponding Source for the Combined Work, excluding any source code
for portions of the Combined Work that, considered in isolation, are
based on the Application, and not on the Linked Version.
The "Corresponding Application Code" for a Combined Work means the
object code and/or source code for the Application, including any data
and utility programs needed for reproducing the Combined Work from the
Application, but excluding the System Libraries of the Combined Work.
1. Exception to Section 3 of the GNU GPL.
You may convey a covered work under sections 3 and 4 of this License
without being bound by section 3 of the GNU GPL.
2. Conveying Modified Versions.
If you modify a copy of the Library, and, in your modifications, a
facility refers to a function or data to be supplied by an Application
that uses the facility (other than as an argument passed when the
facility is invoked), then you may convey a copy of the modified
version:
a) under this License, provided that you make a good faith effort to
ensure that, in the event an Application does not supply the
function or data, the facility still operates, and performs
whatever part of its purpose remains meaningful, or
b) under the GNU GPL, with none of the additional permissions of
this License applicable to that copy.
3. Object Code Incorporating Material from Library Header Files.
The object code form of an Application may incorporate material from
a header file that is part of the Library. You may convey such object
code under terms of your choice, provided that, if the incorporated
material is not limited to numerical parameters, data structure
layouts and accessors, or small macros, inline functions and templates
(ten or fewer lines in length), you do both of the following:
a) Give prominent notice with each copy of the object code that the
Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the object code with a copy of the GNU GPL and this license
document.
4. Combined Works.
You may convey a Combined Work under terms of your choice that,
taken together, effectively do not restrict modification of the
portions of the Library contained in the Combined Work and reverse
engineering for debugging such modifications, if you also do each of
the following:
a) Give prominent notice with each copy of the Combined Work that
the Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the Combined Work with a copy of the GNU GPL and this license
document.
c) For a Combined Work that displays copyright notices during
execution, include the copyright notice for the Library among
these notices, as well as a reference directing the user to the
copies of the GNU GPL and this license document.
d) Do one of the following:
0) Convey the Minimal Corresponding Source under the terms of this
License, and the Corresponding Application Code in a form
suitable for, and under terms that permit, the user to
recombine or relink the Application with a modified version of
the Linked Version to produce a modified Combined Work, in the
manner specified by section 6 of the GNU GPL for conveying
Corresponding Source.
1) Use a suitable shared library mechanism for linking with the
Library. A suitable mechanism is one that (a) uses at run time
a copy of the Library already present on the user's computer
system, and (b) will operate properly with a modified version
of the Library that is interface-compatible with the Linked
Version.
e) Provide Installation Information, but only if you would otherwise
be required to provide such information under section 6 of the
GNU GPL, and only to the extent that such information is
necessary to install and execute a modified version of the
Combined Work produced by recombining or relinking the
Application with a modified version of the Linked Version. (If
you use option 4d0, the Installation Information must accompany
the Minimal Corresponding Source and Corresponding Application
Code. If you use option 4d1, you must provide the Installation
Information in the manner specified by section 6 of the GNU GPL
for conveying Corresponding Source.)
5. Combined Libraries.
You may place library facilities that are a work based on the
Library side by side in a single library together with other library
facilities that are not Applications and are not covered by this
License, and convey such a combined library under terms of your
choice, if you do both of the following:
a) Accompany the combined library with a copy of the same work based
on the Library, uncombined with any other library facilities,
conveyed under the terms of this License.
b) Give prominent notice with the combined library that part of it
is a work based on the Library, and explaining where to find the
accompanying uncombined form of the same work.
6. Revised Versions of the GNU Lesser General Public License.
The Free Software Foundation may publish revised and/or new versions
of the GNU Lesser General Public License from time to time. Such new
versions will be similar in spirit to the present version, but may
differ in detail to address new problems or concerns.
Each version is given a distinguishing version number. If the
Library as you received it specifies that a certain numbered version
of the GNU Lesser General Public License "or any later version"
applies to it, you have the option of following the terms and
conditions either of that published version or of any later version
published by the Free Software Foundation. If the Library as you
received it does not specify a version number of the GNU Lesser
General Public License, you may choose any version of the GNU Lesser
General Public License ever published by the Free Software Foundation.
If the Library as you received it specifies that a proxy can decide
whether future versions of the GNU Lesser General Public License shall
apply, that proxy's public statement of acceptance of any version is
permanent authorization for you to choose that version for the
Library.

280
dicts/en_GB/license.txt Normal file
View file

@ -0,0 +1,280 @@
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Lesser General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS

View file

@ -0,0 +1,8 @@
English dictionaries for OpenOffice/LibreOffice 4.0+.
It includes:
- en_AU (Australian) (updated: 2018-04-16)
- en_CA (Canadian) (updated: 2018-04-16)
- en_GB (British) (updated: 2019-09-01)
- en_US (American) (updated: 2018-04-16)
- en_ZA (South African) (updated: 2012-07-10)

File diff suppressed because it is too large Load diff

76
dicts/en_US/README.txt Normal file
View file

@ -0,0 +1,76 @@
OpenOffice.org Hunspell en_US dictionary
2010-03-09 release
--
This dictionary is based on a subset of the original
English wordlist created by Kevin Atkinson for Pspell
and Aspell and thus is covered by his original
LGPL license. The affix file is a heavily modified
version of the original english.aff file which was
released as part of Geoff Kuenning's Ispell and as
such is covered by his BSD license.
Thanks to both authors for there wonderful work.
ChangeLog
2010-03-09 (nemeth AT OOo)
- UTF-8 encoded dictionary:
- fix em-dash problem of OOo 3.2 by BREAK
- suggesting words with typographical apostrophes
- recognizing words with Unicode f ligatures
- add phonetic suggestion (Copyright (C) 2000 Björn Jacke, see the end of the file)
2007-08-29 nemeth AT OOo
Mozilla 376296 - add "axe" (variant of ax)
Mozilla 386259 - add "JavaScript"
Mozilla 383694 - add "foci" and "octopi" (plurals of focus and octopus)
Issue 73024 - add "gauge"
Issue 75710 - add "foldable"
Issue 75772 - add "GHz"
Mozilla 379527 and Issue 62294 - add "dialogue"
Issue 64246 - add "acknowledgement" as a variant of "acknowledgment"
- TRY extended with apostrophe and dash for
dont -> don't
alltime -> all-time suggestions
- new REP suggestions:
- REP alot a_lot (alot -> a lot)
for suggestion)
- REP nt n't (dont -> don't)
- REP avengence -> a_vengeance (avengence -> a vengeance)
- REP ninties 1990s
- REP tion ssion: readmition -> readmission
- add Mozilla words (blog, cafe, inline, online, eBay, PayPal, etc.)
- add cybercafé
- alias compression (saving 15 kB disk space + 0.8 MB memory)
Mozilla 355178 - add scot-free
Mozilla 374411 - add Scotty
Mozilla 359305 - add archaeology, archeological, archeologist
Mozilla 358754 - add doughnut
Mozilla 254814 - add gauging, canoeing, *canoing, proactively
Issue 71718 - remove *opthalmic, *opthalmology; *opthalmologic -> ophthalmologic
Issue 68550 - *estoppal -> estoppel
Issue 69345 - add tapenade
Issue 67975 - add assistive
Issue 63541 - remove *dessicate
Issue 62599 - add toolbar
2006-02-07 nemeth AT OOo
Issue 48060 - add ordinal numbers with COMPOUNDRULE (1st, 11th, 101st etc.)
Issue 29112, 55498 - add NOSUGGEST flags to taboo words
Issue 56755 - add sequitor (non sequitor)
Issue 50616 - add open source words (GNOME, KDE, OOo, OpenOffice.org)
Issue 56389 - add Mozilla words (Mozilla, Firefox, Thunderbird)
Issue 29110 - add okay
Issue 58468 - add advisors
Issue 58708 - add hiragana & katakana
Issue 60240 - add arginine, histidine, monovalent, polymorphism, pyroelectric, pyroelectricity
2005-11-01 dnaber AT OOo
Issue 25797 - add proven, advisor, etc.

View file

@ -0,0 +1,347 @@
en_US Hunspell Dictionary
Version 2018.04.16
Mon Apr 16 22:11:56 2018 -0400 [7bbe293]
http://wordlist.sourceforge.net
README file for English Hunspell dictionaries derived from SCOWL.
These dictionaries are created using the speller/make-hunspell-dict
script in SCOWL.
The following dictionaries are available:
en_US (American)
en_CA (Canadian)
en_GB-ise (British with "ise" spelling)
en_GB-ize (British with "ize" spelling)
en_AU (Australian)
en_US-large
en_CA-large
en_GB-large (with both "ise" and "ize" spelling)
en_AU-large
The normal (non-large) dictionaries correspond to SCOWL size 60 and,
to encourage consistent spelling, generally only include one spelling
variant for a word. The large dictionaries correspond to SCOWL size
70 and may include multiple spelling for a word when both variants are
considered almost equal. The larger dictionaries however (1) have not
been as carefully checked for errors as the normal dictionaries and
thus may contain misspelled or invalid words; and (2) contain
uncommon, yet valid, words that might cause problems as they are
likely to be misspellings of more common words (for example, "ort" and
"calender").
To get an idea of the difference in size, here are 25 random words
only found in the large dictionary for American English:
Bermejo Freyr's Guenevere Hatshepsut Nottinghamshire arrestment
crassitudes crural dogwatches errorless fetial flaxseeds godroon
incretion jalapeño's kelpie kishkes neuroglias pietisms pullulation
stemwinder stenoses syce thalassic zees
The en_US, en_CA and en_AU are the official dictionaries for Hunspell.
The en_GB and large dictionaries are made available on an experimental
basis. If you find them useful please send me a quick email at
kevina@gnu.org.
If none of these dictionaries suite you (for example, maybe you want
the normal dictionary that also includes common variants) additional
dictionaries can be generated at http://app.aspell.net/create or by
modifying speller/make-hunspell-dict in SCOWL. Please do let me know
if you end up publishing a customized dictionary.
If a word is not found in the dictionary or a word is there you think
shouldn't be, you can lookup the word up at http://app.aspell.net/lookup
to help determine why that is.
General comments on these list can be sent directly to me at
kevina@gnu.org or to the wordlist-devel mailing lists
(https://lists.sourceforge.net/lists/listinfo/wordlist-devel). If you
have specific issues with any of these dictionaries please file a bug
report at https://github.com/kevina/wordlist/issues.
IMPORTANT CHANGES INTRODUCED In 2016.11.20:
New Australian dictionaries thanks to the work of Benjamin Titze
(btitze@protonmail.ch).
IMPORTANT CHANGES INTRODUCED IN 2016.04.24:
The dictionaries are now in UTF-8 format instead of ISO-8859-1. This
was required to handle smart quotes correctly.
IMPORTANT CHANGES INTRODUCED IN 2016.01.19:
"SET UTF8" was changes to "SET UTF-8" in the affix file as some
versions of Hunspell do not recognize "UTF8".
ADDITIONAL NOTES:
The NOSUGGEST flag was added to certain taboo words. While I made an
honest attempt to flag the strongest taboo words with the NOSUGGEST
flag, I MAKE NO GUARANTEE THAT I FLAGGED EVERY POSSIBLE TABOO WORD.
The list was originally derived from Németh László, however I removed
some words which, while being considered taboo by some dictionaries,
are not really considered swear words in today's society.
COPYRIGHT, SOURCES, and CREDITS:
The English dictionaries come directly from SCOWL
and is thus under the same copyright of SCOWL. The affix file is
a heavily modified version of the original english.aff file which was
released as part of Geoff Kuenning's Ispell and as such is covered by
his BSD license. Part of SCOWL is also based on Ispell thus the
Ispell copyright is included with the SCOWL copyright.
The collective work is Copyright 2000-2016 by Kevin Atkinson as well
as any of the copyrights mentioned below:
Copyright 2000-2016 by Kevin Atkinson
Permission to use, copy, modify, distribute and sell these word
lists, the associated scripts, the output created from the scripts,
and its documentation for any purpose is hereby granted without fee,
provided that the above copyright notice appears in all copies and
that both that copyright notice and this permission notice appear in
supporting documentation. Kevin Atkinson makes no representations
about the suitability of this array for any purpose. It is provided
"as is" without express or implied warranty.
Alan Beale <biljir@pobox.com> also deserves special credit as he has,
in addition to providing the 12Dicts package and being a major
contributor to the ENABLE word list, given me an incredible amount of
feedback and created a number of special lists (those found in the
Supplement) in order to help improve the overall quality of SCOWL.
The 10 level includes the 1000 most common English words (according to
the Moby (TM) Words II [MWords] package), a subset of the 1000 most
common words on the Internet (again, according to Moby Words II), and
frequently class 16 from Brian Kelk's "UK English Wordlist
with Frequency Classification".
The MWords package was explicitly placed in the public domain:
The Moby lexicon project is complete and has
been place into the public domain. Use, sell,
rework, excerpt and use in any way on any platform.
Placing this material on internal or public servers is
also encouraged. The compiler is not aware of any
export restrictions so freely distribute world-wide.
You can verify the public domain status by contacting
Grady Ward
3449 Martha Ct.
Arcata, CA 95521-4884
grady@netcom.com
grady@northcoast.com
The "UK English Wordlist With Frequency Classification" is also in the
Public Domain:
Date: Sat, 08 Jul 2000 20:27:21 +0100
From: Brian Kelk <Brian.Kelk@cl.cam.ac.uk>
> I was wondering what the copyright status of your "UK English
> Wordlist With Frequency Classification" word list as it seems to
> be lacking any copyright notice.
There were many many sources in total, but any text marked
"copyright" was avoided. Locally-written documentation was one
source. An earlier version of the list resided in a filespace called
PUBLIC on the University mainframe, because it was considered public
domain.
Date: Tue, 11 Jul 2000 19:31:34 +0100
> So are you saying your word list is also in the public domain?
That is the intention.
The 20 level includes frequency classes 7-15 from Brian's word list.
The 35 level includes frequency classes 2-6 and words appearing in at
least 11 of 12 dictionaries as indicated in the 12Dicts package. All
words from the 12Dicts package have had likely inflections added via
my inflection database.
The 12Dicts package and Supplement is in the Public Domain.
The WordNet database, which was used in the creation of the
Inflections database, is under the following copyright:
This software and database is being provided to you, the LICENSEE,
by Princeton University under the following license. By obtaining,
using and/or copying this software and database, you agree that you
have read, understood, and will comply with these terms and
conditions.:
Permission to use, copy, modify and distribute this software and
database and its documentation for any purpose and without fee or
royalty is hereby granted, provided that you agree to comply with
the following copyright notice and statements, including the
disclaimer, and that the same appear on ALL copies of the software,
database and documentation, including modifications that you make
for internal use or for distribution.
WordNet 1.6 Copyright 1997 by Princeton University. All rights
reserved.
THIS SOFTWARE AND DATABASE IS PROVIDED "AS IS" AND PRINCETON
UNIVERSITY MAKES NO REPRESENTATIONS OR WARRANTIES, EXPRESS OR
IMPLIED. BY WAY OF EXAMPLE, BUT NOT LIMITATION, PRINCETON
UNIVERSITY MAKES NO REPRESENTATIONS OR WARRANTIES OF MERCHANT-
ABILITY OR FITNESS FOR ANY PARTICULAR PURPOSE OR THAT THE USE OF THE
LICENSED SOFTWARE, DATABASE OR DOCUMENTATION WILL NOT INFRINGE ANY
THIRD PARTY PATENTS, COPYRIGHTS, TRADEMARKS OR OTHER RIGHTS.
The name of Princeton University or Princeton may not be used in
advertising or publicity pertaining to distribution of the software
and/or database. Title to copyright in this software, database and
any associated documentation shall at all times remain with
Princeton University and LICENSEE agrees to preserve same.
The 40 level includes words from Alan's 3esl list found in version 4.0
of his 12dicts package. Like his other stuff the 3esl list is also in the
public domain.
The 50 level includes Brian's frequency class 1, words appearing
in at least 5 of 12 of the dictionaries as indicated in the 12Dicts
package, and uppercase words in at least 4 of the previous 12
dictionaries. A decent number of proper names is also included: The
top 1000 male, female, and Last names from the 1990 Census report; a
list of names sent to me by Alan Beale; and a few names that I added
myself. Finally a small list of abbreviations not commonly found in
other word lists is included.
The name files form the Census report is a government document which I
don't think can be copyrighted.
The file special-jargon.50 uses common.lst and word.lst from the
"Unofficial Jargon File Word Lists" which is derived from "The Jargon
File". All of which is in the Public Domain. This file also contain
a few extra UNIX terms which are found in the file "unix-terms" in the
special/ directory.
The 55 level includes words from Alan's 2of4brif list found in version
4.0 of his 12dicts package. Like his other stuff the 2of4brif is also
in the public domain.
The 60 level includes all words appearing in at least 2 of the 12
dictionaries as indicated by the 12Dicts package.
The 70 level includes Brian's frequency class 0 and the 74,550 common
dictionary words from the MWords package. The common dictionary words,
like those from the 12Dicts package, have had all likely inflections
added. The 70 level also included the 5desk list from version 4.0 of
the 12Dics package which is in the public domain.
The 80 level includes the ENABLE word list, all the lists in the
ENABLE supplement package (except for ABLE), the "UK Advanced Cryptics
Dictionary" (UKACD), the list of signature words from the YAWL package,
and the 10,196 places list from the MWords package.
The ENABLE package, mainted by M\Cooper <thegrendel@theriver.com>,
is in the Public Domain:
The ENABLE master word list, WORD.LST, is herewith formally released
into the Public Domain. Anyone is free to use it or distribute it in
any manner they see fit. No fee or registration is required for its
use nor are "contributions" solicited (if you feel you absolutely
must contribute something for your own peace of mind, the authors of
the ENABLE list ask that you make a donation on their behalf to your
favorite charity). This word list is our gift to the Scrabble
community, as an alternate to "official" word lists. Game designers
may feel free to incorporate the WORD.LST into their games. Please
mention the source and credit us as originators of the list. Note
that if you, as a game designer, use the WORD.LST in your product,
you may still copyright and protect your product, but you may *not*
legally copyright or in any way restrict redistribution of the
WORD.LST portion of your product. This *may* under law restrict your
rights to restrict your users' rights, but that is only fair.
UKACD, by J Ross Beresford <ross@bryson.demon.co.uk>, is under the
following copyright:
Copyright (c) J Ross Beresford 1993-1999. All Rights Reserved.
The following restriction is placed on the use of this publication:
if The UK Advanced Cryptics Dictionary is used in a software package
or redistributed in any form, the copyright notice must be
prominently displayed and the text of this document must be included
verbatim.
There are no other restrictions: I would like to see the list
distributed as widely as possible.
The 95 level includes the 354,984 single words, 256,772 compound
words, 4,946 female names and the 3,897 male names, and 21,986 names
from the MWords package, ABLE.LST from the ENABLE Supplement, and some
additional words found in my part-of-speech database that were not
found anywhere else.
Accent information was taken from UKACD.
The VarCon package was used to create the American, British, Canadian,
and Australian word list. It is under the following copyright:
Copyright 2000-2016 by Kevin Atkinson
Permission to use, copy, modify, distribute and sell this array, the
associated software, and its documentation for any purpose is hereby
granted without fee, provided that the above copyright notice appears
in all copies and that both that copyright notice and this permission
notice appear in supporting documentation. Kevin Atkinson makes no
representations about the suitability of this array for any
purpose. It is provided "as is" without express or implied warranty.
Copyright 2016 by Benjamin Titze
Permission to use, copy, modify, distribute and sell this array, the
associated software, and its documentation for any purpose is hereby
granted without fee, provided that the above copyright notice appears
in all copies and that both that copyright notice and this permission
notice appear in supporting documentation. Benjamin Titze makes no
representations about the suitability of this array for any
purpose. It is provided "as is" without express or implied warranty.
Since the original words lists come from the Ispell distribution:
Copyright 1993, Geoff Kuenning, Granada Hills, CA
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions
are met:
1. Redistributions of source code must retain the above copyright
notice, this list of conditions and the following disclaimer.
2. Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
3. All modifications to the source code must be clearly marked as
such. Binary redistributions based on modified source code
must be clearly marked as modified versions in the documentation
and/or other materials provided with the distribution.
(clause 4 removed with permission from Geoff Kuenning)
5. The name of Geoff Kuenning may not be used to endorse or promote
products derived from this software without specific prior
written permission.
THIS SOFTWARE IS PROVIDED BY GEOFF KUENNING AND CONTRIBUTORS ``AS IS'' AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL GEOFF KUENNING OR CONTRIBUTORS BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.
Build Date: Mon Apr 16 22:13:58 EDT 2018
Wordlist Command: mk-list --accents=strip en_US 60

View file

@ -0,0 +1,149 @@
---------------------------------------------------------------------
This file is a summary of the switches used in the en_GB affix file.
A description of the affix file format is appended to the end of this
In addition to the new suffix and prefix rules a modified TRY list is
used in order to properly find spelling errors in words having . (period)
' (apostrophe) and - (hyphen) within them. A replacement list for common
mis-spellings has also been incorporated.
The en_GB.aff affix file was created from scratch by David Bartlett and
Andrew Brown.
15/12/02
---------------------------------------------------------------------
A re- Prefix
a mis- Prefix
B -able, -ability, last syllable of stem stressed, -ate words > 2 syllables
b -ible, very basic rules, only dropped e
C de- Prefix
c over- Prefix
D -ed, regular verb past tenses, last syllable of stem stressed
d -ed, -ing, regular verb past tenses and adverbial form, last syllable NOT stressed
E dis- Prefix for negation
e out- Prefix
F con- prefix
f under - Prefix
G -ing, ending for verbs, stress on last syllable of stem
g -ability, last syllable NOT stressed
H -th, -fold - number specific suffixes, both generated
h -edly, adverbial, simplified rules
I in- im- il- ir- Prefix, opposite of.
i -edness, degree, simplified rules
J -ings, plural noun version of verb ing ending, simplified rules
j -fully, suffix
K pre-, prefix
k -ingly, adverbial form, simplified rules
L -ment, -ments, -ment's, suffix, both generated
l -ably, simplified rules
M -'s, possessive form
m -man, -men, -man's, -men's suffixes, all generated
N -ion, noun from verb, stress on last syllable of stem
n -ion, -ions, noun from verb, stress NOT on last syllable of stem
O non- Prefix
o -ally, adverb from verb, simplified rules
P -ness, -ness's, adjective degree of comparison
p -less, comparative suffix
Q -ise, -ised, -ises, -ising, -ize, -ized, -izes, -izing, all generated!
q -isation, -isations, -ization, -izations, all generated
R -er, -ers, er's, doer, last syllable stressed, both forms generated
r -er, -ers, er's, doer, last syllable NOT stressed, both forms generated
S -s, noun plurals, verb conjugation
s -iser, -isers, -izer, -izers, -iser's, -izer's, all generated
T -er, -est, adjectival comparatives, both generated
t -isable, -isability, -izable, -izability, all generated
U un- Prefix
u -iveness, ending for verbs
V -ive, ending for verbs (simplified rules)
v -ively, ending for verbs
W -ic, adjectival ending, simplified rules
w -ical, adjectival ending, simplified rules
X -ions, noun plural, stress on last syllable of stem, simplified rules
x -ional, -ionally, simplified rules, both endings formed
Y -ly, adverb endings for adjectives
y -ry, adjectival and noun forms, simplified rules.
Z -y, diminutive and adjectival form, simplified rules
z -ily, adverbial ending where adjective adds y
0 -al, noun from verb, simplified rules
1 -ically, adverbial double suffix, simplified rules
2 -iness, y+ness ending, simplified rules
3 -ist, -ists, -ists's, professions
4 trans-, Prefix
5 -woman, -women, -woman's suffixes, all generated
6 -ful, suffix
7 -able, last syllable NOT stressed, -ate words <= 2 syllables
8
9
---------------------------------------------------------------------
To Do:
-ity
-en
-ify, -ified, -ifies, -ifing
-ism
-ish
-ous
-ously
---------------------------------------------------------------------
The following minor suffixes have been ignored, based on
frequency counts in the standard word list
-fulness
-lessly
-lessness
-ousness
-ifier
-ification
-ward
-ship
-ishly
-ible
-ibility
-iveity
-edness
-icable
-icability
-ality
-alism
-ics
-ional
-ology
-ologist
-istic
---------------------------------------------------------------------
What follows is cut and pasted from the instructions at
http://whiteboard.openoffice.org/lingucomponent/affix.readme
The first line has 4 fields:
Field
-----
1 SFX - indicates this is a suffix
2 D - is the name of the character which represents this suffix
3 Y - indicates it can be combined with prefixes (cross product)
4 4 - indicates that sequence of 4 affix entries are needed to
properly store the affix information
The remaining lines describe the unique information for the 4 affix
entries that make up this affix. Each line can be interpreted
as follows: (note fields 1 and 2 are used as a check against line 1 info)
Field
-----
1 SFX - indicates this is a suffix
2 D - is the name of the character which represents this affix
3 y - the string of chars to strip off before adding affix
(a 0 here indicates the NULL string)
4 ied - the string of affix characters to add
(a 0 here indicates the NULL string)
5 [^aeiou]y - the conditions which must be met before the affix
can be applied
Field 5 is interesting. Since this is a suffix, field 5 tells us that
there are 2 conditions that must be met. The first condition is that
the next to the last character in the word must *NOT* be any of the
following "a", "e", "i", "o" or "u". The second condition is that
the last character of the word must end in "y".

515
dicts/en_US/changelog.txt Normal file
View file

@ -0,0 +1,515 @@
MAGP 2019-09-01
- Converted some line endings in this file from Windows to Unix.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 2822 new words(1) (2019-08-01) + 1705 new words(1) (2019-09-01).
(1) at least, because TOTAL_NEW_WORDS = TOTAL_CURRENT_WORDS - TOTAL_PREVIOUS_WORDS
and there were tons of duplicates removed and cleaned/simplified the .dic.
There were also tons of plurals/possessives added (WIP).
MAGP 2019-07-01
- Improved the description of the Extension.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 614 new words (2019-06-01) + 180 new words(1) (2019-07-01).
(1) at least, because TOTAL_NEW_WORDS = TOTAL_CURRENT_WORDS - TOTAL_PREVIOUS_WORDS
and there were tons of duplicates removed and cleaned/simplified the .dic.
There were also tons of plurals/possessives added (WIP).
MAGP 2019-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 2358 new words (2019-04-01) + 458 new words (2019-05-01).
MAGP 2019-03-01
Added the LGPL_V3 License .txt into the Extension.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 764 new words (2019-02-01) + 1046 new words (2019-03-01).
MAGP 2019-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1529 new words (2018-12-01) + 1175 new words (2019-01-01).
MAGP 2018-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 5225 new words (2018-10-01) + 1138 new words (2018-11-01).
MAGP 2018-09-01
Improved the logo quality since Pedro Marques sent me the original model which can be resized in all sizes.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 5101 new words (2018-08-01) + 14713 new words (2018-09-01).
MAGP 2018-07-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 3656 new words (2018-06-01) + 7101 new words (2018-07-01).
MAGP 2018-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 820 new words (2018-04-01) + 857 new words (2018-05-01).
MAGP 2018-03-01
Simplified the Extension description.
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1421 new words (2018-02-01) + 1208 new words (2018-03-01).
MAGP 2018-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1483 new words (2017-12-01) + 3034 new words (2018-01-01).
In November + December I added THOUSANDS of possessives to proper names.
Added 500+ proper names.
MAGP 2017-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 467 new words (2017-10-01) + 824 new words (2017-11-01).
MAGP 2017-09-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 473 new words (2017-08-01) + 297 new words (2017-09-01).
MAGP 2017-07-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 480 new words (2017-06-01) + 433 new words (2017-07-01).
MAGP 2017-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 431 new words (2017-04-01) + 271 new words (2017-05-01).
MAGP 2017-03-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 638 new words (2017-02-01) + 326 new words (2017-03-01).
MAGP 2017-01-01
Updated the Dictionaries:
- Australian (Kevin Atkinson)
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 488 new words (2016-12-01) + 554 new words (2017-01-01).
MAGP 2016-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 710 new words (2016-10-01) + 735 new words (2016-11-01).
MAGP 2016-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)*
* British has 773 new words (2016-08-01) + 728 new words (2016-09-01).
GB changelog is no longer included in the README file,
instead there are links inside it that point to the information
(lower filesize).
MAGP 2016-07-01
Updated the hyphenation patterns to 2011-10-07 (from LibreOffice):
- US + GB
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 1107 new words (2016-06-01) + 738 new words (2016-07-01).
It now uses NOSUGGEST keyword for offensive words.
It now uses COMPOUNDING (Áron Budea)
MAGP 2016-05-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 811 new words.
MAGP 2016-04-01
Updated the Dictionaries:
- Australian (2016-03-14)*
- British (Marco A.G.Pinto)**
- South African (Dwayne Bailey) (2012-07-10)
* Australian had all UTF-8 corrupt words fixed by Marco.
** British has 819 new words and attempted to make compatible with the command line using the UTF-8 apostrophe.
MAGP 2016-03-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)*
* British has 935 new words.
Converted the US Thesaurus into UTF-8 and removed 752 duplicated meanings
MAGP 2016-02-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2016-01-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-12-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-10-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-08-01
It is now compatible with the latest version of LibreOffice.
Improved the description text.
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-07-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-06-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-05-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-04-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2015-03-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-02-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2015-01-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-12-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-11-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-10-01
Updated the Dictionaries:
- British (Marco A.G.Pinto)
MAGP 2014-09-01
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-07-01
Changed the publisher name in description.xml to "Marco A.G.Pinto" since
Ariel Constenla-Haile and Andrea Pescetti from Apache told me that the one being
used, "Apache OpenOffice", had a license incompatibility.
Updated the en_GB dictionary.
MAGP 2014-06-01
Fixed the Extension URL in the description since the old URL was temporary.
Updated the Dictionaries:
- American (Kevin Atkinson)
- Canadian (Kevin Atkinson)
- British (Marco A.G.Pinto)
MAGP 2014-02-10
The extension, in the Extension Manager, now has an icon, a name with a link and a description.
Also updated the en_GB dictionary.
MAGP 2014-01-07
Updated the English British Dictionary.
Regarding the 2006 version, this one has over 800 new unique words plus the derived ones.
Please notice that Marco's forked version was based on the non-obfuscated Mozilla version.
AP 31/7/2013
Modify dictionaries.xcu for better hyphenation, see
https://issues.apache.org/ooo/show_bug.cgi?id=119087
DNW 20/11/2008
Removed un-Australian -ize variants of words from ths list.
DNW 27/9/08
A short list of Australian slang terms was added.
Added same new words like 'cellphone' from various online new word lists.
DNW 25/9/2008
Version packaged as English Australian Dictionary Extension version 1 for OpenOffice version 3.
-- Notes for 2.1.1 --
- Made some modifications as this dictionary is specifically aimed at Mozilla products and online users.
My modifications:
blog/RDGMS
Bugzilla/M
caffeinate/D
Camino/M
ChatZilla/M
eBay/M
Firefox/M
Flock/M
-gauge/DaGS
gauge/aBDGMS
Google/M
google/SGD
HTML/M
https
inline/D
-install/7NRn
install/7NRnSUGMB
-Internet/M
internet/M
JavaScript/M
Mozilla/M
phish/RG
-plug-in
plug-in/SM
plugin/SM
podcast/MSRG
PowerPoint/M
screenshot/S
SeaMonkey/M
Songbird/M
-spam/DG
spam/DGM
-spammer
spammer/MRS
subdomain/SM
Sunbird/M
Thunderbird/M
toolbar/S
unsubscribe/D
webmaster/MS
webmistress/MS
XULRunner/M
-- Notes for 2.1 -- (Not released)
Based on en_AU_V2.1.zip from http://www.justlocal.com.au/
- Removed words with spaces
- Removed trailing spaces from words
- Change accented characters in words where this was valid according to the
Macquarie English dictionary.
- Removed U.S. spellings of the words with ize so only ise and variants remain.
- Fixed error in affix file on line 1068 from SFZ to SFX.
-- Notes for 0.2 -- 2006-08-03
Gah! A typo in the extension name? New version pronto!
-- Notes for 0.1 -- 2006-08-03
I, Cameron, downloaded the en-AU dictionary file from http://lingucomponent.openoffice.org/spell_dic.html in order to package it correctly for use in Mozilla applications and distribution through addons.mozilla.org. It was last modified on 2003-03-29. I received no reply after emailing the author, and such have decided to make my own fork (is it still a fork if the previous one isn't maintained?) for Mozilla :) I have also decided to change the license to the GNU General Public License - as per section 3 of the LGPL.
The en_AU dictionary is credited to Kelvin Eldridge (previous maintainer) <audictionary@onlineconnections.com.au>, Jean Hollis Weber and David Wilson (originally licensed under the LGPL.)
Their changes:
- Words incorrect in Australian English removed
- a list from the previously removed words with corrected spelling was added
- a list of major rivers was added
- a list of place names was added
- a list of Australian mammals was added
- a list of Aboriginal/Koori words commonly used was added
This dictionary was based on the en_GB dictionary, edited by David Bartlett, Brian Kelk and Andrew Brown - (originally licensed under the LGPL.)
Which was in turn initially based on a subset of the original English wordlist created by Kevin Atkinson for Pspell and Aspell - (originally licensed under the LGPL.)
Original affix file created completely from scratch by David Bartlett and Andrew Brown, based on the published rules for MySpell - (originally licensed under the LGPL.)

5
dicts/en_US/dict.ini Normal file
View file

@ -0,0 +1,5 @@
[Revision]
rev=101
[LocaleInfo]
FileNameBase=en_US
SupportedLocales=en-US

205
dicts/en_US/en_US.aff Normal file
View file

@ -0,0 +1,205 @@
SET UTF-8
TRY esianrtolcdugmphbyfvkwzESIANRTOLCDUGMPHBYFVKWZ'
ICONV 1
ICONV '
NOSUGGEST !
# ordinal numbers
COMPOUNDMIN 1
# only in compounds: 1th, 2th, 3th
ONLYINCOMPOUND c
# compound rules:
# 1. [0-9]*1[0-9]th (10th, 11th, 12th, 56714th, etc.)
# 2. [0-9]*[02-9](1st|2nd|3rd|[4-9]th) (21st, 22nd, 123rd, 1234th, etc.)
COMPOUNDRULE 2
COMPOUNDRULE n*1t
COMPOUNDRULE n*mp
WORDCHARS 0123456789
PFX A Y 1
PFX A 0 re .
PFX I Y 1
PFX I 0 in .
PFX U Y 1
PFX U 0 un .
PFX C Y 1
PFX C 0 de .
PFX E Y 1
PFX E 0 dis .
PFX F Y 1
PFX F 0 con .
PFX K Y 1
PFX K 0 pro .
SFX V N 2
SFX V e ive e
SFX V 0 ive [^e]
SFX N Y 3
SFX N e ion e
SFX N y ication y
SFX N 0 en [^ey]
SFX X Y 3
SFX X e ions e
SFX X y ications y
SFX X 0 ens [^ey]
SFX H N 2
SFX H y ieth y
SFX H 0 th [^y]
SFX Y Y 1
SFX Y 0 ly .
SFX G Y 2
SFX G e ing e
SFX G 0 ing [^e]
SFX J Y 2
SFX J e ings e
SFX J 0 ings [^e]
SFX D Y 4
SFX D 0 d e
SFX D y ied [^aeiou]y
SFX D 0 ed [^ey]
SFX D 0 ed [aeiou]y
SFX T N 4
SFX T 0 st e
SFX T y iest [^aeiou]y
SFX T 0 est [aeiou]y
SFX T 0 est [^ey]
SFX R Y 4
SFX R 0 r e
SFX R y ier [^aeiou]y
SFX R 0 er [aeiou]y
SFX R 0 er [^ey]
SFX Z Y 4
SFX Z 0 rs e
SFX Z y iers [^aeiou]y
SFX Z 0 ers [aeiou]y
SFX Z 0 ers [^ey]
SFX S Y 4
SFX S y ies [^aeiou]y
SFX S 0 s [aeiou]y
SFX S 0 es [sxzh]
SFX S 0 s [^sxzhy]
SFX P Y 3
SFX P y iness [^aeiou]y
SFX P 0 ness [aeiou]y
SFX P 0 ness [^y]
SFX M Y 1
SFX M 0 's .
SFX B Y 3
SFX B 0 able [^aeiou]
SFX B 0 able ee
SFX B e able [^aeiou]e
SFX L Y 1
SFX L 0 ment .
REP 90
REP a ei
REP ei a
REP a ey
REP ey a
REP ai ie
REP ie ai
REP alot a_lot
REP are air
REP are ear
REP are eir
REP air are
REP air ere
REP ere air
REP ere ear
REP ere eir
REP ear are
REP ear air
REP ear ere
REP eir are
REP eir ere
REP ch te
REP te ch
REP ch ti
REP ti ch
REP ch tu
REP tu ch
REP ch s
REP s ch
REP ch k
REP k ch
REP f ph
REP ph f
REP gh f
REP f gh
REP i igh
REP igh i
REP i uy
REP uy i
REP i ee
REP ee i
REP j di
REP di j
REP j gg
REP gg j
REP j ge
REP ge j
REP s ti
REP ti s
REP s ci
REP ci s
REP k cc
REP cc k
REP k qu
REP qu k
REP kw qu
REP o eau
REP eau o
REP o ew
REP ew o
REP oo ew
REP ew oo
REP ew ui
REP ui ew
REP oo ui
REP ui oo
REP ew u
REP u ew
REP oo u
REP u oo
REP u oe
REP oe u
REP u ieu
REP ieu u
REP ue ew
REP ew ue
REP uff ough
REP oo ieu
REP ieu oo
REP ier ear
REP ear ier
REP ear air
REP air ear
REP w qu
REP qu w
REP z ss
REP ss z
REP shun tion
REP shun sion
REP shun cion
REP size cise

49271
dicts/en_US/en_US.dic Normal file

File diff suppressed because it is too large Load diff

165
dicts/en_US/lgpl-3.0.txt Normal file
View file

@ -0,0 +1,165 @@
GNU LESSER GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
This version of the GNU Lesser General Public License incorporates
the terms and conditions of version 3 of the GNU General Public
License, supplemented by the additional permissions listed below.
0. Additional Definitions.
As used herein, "this License" refers to version 3 of the GNU Lesser
General Public License, and the "GNU GPL" refers to version 3 of the GNU
General Public License.
"The Library" refers to a covered work governed by this License,
other than an Application or a Combined Work as defined below.
An "Application" is any work that makes use of an interface provided
by the Library, but which is not otherwise based on the Library.
Defining a subclass of a class defined by the Library is deemed a mode
of using an interface provided by the Library.
A "Combined Work" is a work produced by combining or linking an
Application with the Library. The particular version of the Library
with which the Combined Work was made is also called the "Linked
Version".
The "Minimal Corresponding Source" for a Combined Work means the
Corresponding Source for the Combined Work, excluding any source code
for portions of the Combined Work that, considered in isolation, are
based on the Application, and not on the Linked Version.
The "Corresponding Application Code" for a Combined Work means the
object code and/or source code for the Application, including any data
and utility programs needed for reproducing the Combined Work from the
Application, but excluding the System Libraries of the Combined Work.
1. Exception to Section 3 of the GNU GPL.
You may convey a covered work under sections 3 and 4 of this License
without being bound by section 3 of the GNU GPL.
2. Conveying Modified Versions.
If you modify a copy of the Library, and, in your modifications, a
facility refers to a function or data to be supplied by an Application
that uses the facility (other than as an argument passed when the
facility is invoked), then you may convey a copy of the modified
version:
a) under this License, provided that you make a good faith effort to
ensure that, in the event an Application does not supply the
function or data, the facility still operates, and performs
whatever part of its purpose remains meaningful, or
b) under the GNU GPL, with none of the additional permissions of
this License applicable to that copy.
3. Object Code Incorporating Material from Library Header Files.
The object code form of an Application may incorporate material from
a header file that is part of the Library. You may convey such object
code under terms of your choice, provided that, if the incorporated
material is not limited to numerical parameters, data structure
layouts and accessors, or small macros, inline functions and templates
(ten or fewer lines in length), you do both of the following:
a) Give prominent notice with each copy of the object code that the
Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the object code with a copy of the GNU GPL and this license
document.
4. Combined Works.
You may convey a Combined Work under terms of your choice that,
taken together, effectively do not restrict modification of the
portions of the Library contained in the Combined Work and reverse
engineering for debugging such modifications, if you also do each of
the following:
a) Give prominent notice with each copy of the Combined Work that
the Library is used in it and that the Library and its use are
covered by this License.
b) Accompany the Combined Work with a copy of the GNU GPL and this license
document.
c) For a Combined Work that displays copyright notices during
execution, include the copyright notice for the Library among
these notices, as well as a reference directing the user to the
copies of the GNU GPL and this license document.
d) Do one of the following:
0) Convey the Minimal Corresponding Source under the terms of this
License, and the Corresponding Application Code in a form
suitable for, and under terms that permit, the user to
recombine or relink the Application with a modified version of
the Linked Version to produce a modified Combined Work, in the
manner specified by section 6 of the GNU GPL for conveying
Corresponding Source.
1) Use a suitable shared library mechanism for linking with the
Library. A suitable mechanism is one that (a) uses at run time
a copy of the Library already present on the user's computer
system, and (b) will operate properly with a modified version
of the Library that is interface-compatible with the Linked
Version.
e) Provide Installation Information, but only if you would otherwise
be required to provide such information under section 6 of the
GNU GPL, and only to the extent that such information is
necessary to install and execute a modified version of the
Combined Work produced by recombining or relinking the
Application with a modified version of the Linked Version. (If
you use option 4d0, the Installation Information must accompany
the Minimal Corresponding Source and Corresponding Application
Code. If you use option 4d1, you must provide the Installation
Information in the manner specified by section 6 of the GNU GPL
for conveying Corresponding Source.)
5. Combined Libraries.
You may place library facilities that are a work based on the
Library side by side in a single library together with other library
facilities that are not Applications and are not covered by this
License, and convey such a combined library under terms of your
choice, if you do both of the following:
a) Accompany the combined library with a copy of the same work based
on the Library, uncombined with any other library facilities,
conveyed under the terms of this License.
b) Give prominent notice with the combined library that part of it
is a work based on the Library, and explaining where to find the
accompanying uncombined form of the same work.
6. Revised Versions of the GNU Lesser General Public License.
The Free Software Foundation may publish revised and/or new versions
of the GNU Lesser General Public License from time to time. Such new
versions will be similar in spirit to the present version, but may
differ in detail to address new problems or concerns.
Each version is given a distinguishing version number. If the
Library as you received it specifies that a certain numbered version
of the GNU Lesser General Public License "or any later version"
applies to it, you have the option of following the terms and
conditions either of that published version or of any later version
published by the Free Software Foundation. If the Library as you
received it does not specify a version number of the GNU Lesser
General Public License, you may choose any version of the GNU Lesser
General Public License ever published by the Free Software Foundation.
If the Library as you received it specifies that a proxy can decide
whether future versions of the GNU Lesser General Public License shall
apply, that proxy's public statement of acceptance of any version is
permanent authorization for you to choose that version for the
Library.

280
dicts/en_US/license.txt Normal file
View file

@ -0,0 +1,280 @@
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Lesser General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS

View file

@ -0,0 +1,8 @@
English dictionaries for OpenOffice/LibreOffice 4.0+.
It includes:
- en_AU (Australian) (updated: 2018-04-16)
- en_CA (Canadian) (updated: 2018-04-16)
- en_GB (British) (updated: 2019-09-01)
- en_US (American) (updated: 2018-04-16)
- en_ZA (South African) (updated: 2012-07-10)

View file

@ -1,294 +0,0 @@
;;; early-init.el --- Early Init -*- no-byte-compile: t; lexical-binding: t; -*-
;; Author: James Cherti
;; URL: https://github.com/jamescherti/minimal-emacs.d
;; Package-Requires: ((emacs "29.1"))
;; Keywords: maint
;; Version: 1.1.1
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Commentary:
;; The minimal-emacs.d project is a customizable base that provides better Emacs
;; defaults and optimized startup, intended to serve as a solid foundation for
;; your vanilla Emacs configuration.
;;; Code:
;;; Variables
(defvar minimal-emacs-ui-features '()
"List of user interface features to disable in minimal Emacs setup.
This variable holds a list Emacs UI features that can be enabled:
- `context-menu`: Enables the context menu in graphical environments.
- `tool-bar`: Enables the tool bar in graphical environments.
- `menu-bar`: Enables the menu bar in graphical environments.
- `dialogs`: Enables both file dialogs and dialog boxes.
- `tooltips`: Enables tooltips.
Each feature in the list corresponds to a specific UI component that can be
turned on.")
(defvar minimal-emacs-frame-title-format "%b Emacs"
"Template for displaying the title bar of visible and iconified frame.")
(defvar minimal-emacs-debug nil
"Non-nil to enable debug.")
(defvar minimal-emacs-gc-cons-threshold (* 16 1024 1024)
"The value of `gc-cons-threshold' after Emacs startup.")
(defvar minimal-emacs-package-initialize-and-refresh t
"Whether to automatically initialize and refresh packages.
When set to non-nil, Emacs will automatically call `package-initialize' and
`package-refresh-contents' to set up and update the package system.")
(defvar minimal-emacs-user-directory user-emacs-directory
"The default value of the `user-emacs-directory' variable.")
;;; Load pre-early-init.el
(defun minimal-emacs-load-user-init (filename)
"Execute a file of Lisp code named FILENAME."
(let ((user-init-file
(expand-file-name filename
minimal-emacs-user-directory)))
(when (file-exists-p user-init-file)
(load user-init-file nil t))))
(minimal-emacs-load-user-init "pre-early-init.el")
(setq custom-theme-directory
(expand-file-name "themes/" minimal-emacs-user-directory))
(setq custom-file (expand-file-name "custom.el" minimal-emacs-user-directory))
;;; Garbage collection
;; Garbage collection significantly affects startup times. This setting delays
;; garbage collection during startup but will be reset later.
(setq gc-cons-threshold most-positive-fixnum)
(add-hook 'emacs-startup-hook
(lambda ()
(setq gc-cons-threshold minimal-emacs-gc-cons-threshold)))
;;; Misc
(set-language-environment "UTF-8")
;; Set-language-environment sets default-input-method, which is unwanted.
(setq default-input-method nil)
;;; Performance
;; Prefer loading newer compiled files
(setq load-prefer-newer t)
;; Font compacting can be very resource-intensive, especially when rendering
;; icon fonts on Windows. This will increase memory usage.
(setq inhibit-compacting-font-caches t)
(unless (daemonp)
(let ((old-value (default-toplevel-value 'file-name-handler-alist)))
(set-default-toplevel-value
'file-name-handler-alist
;; Determine the state of bundled libraries using calc-loaddefs.el.
;; If compressed, retain the gzip handler in `file-name-handler-alist`.
;; If compiled or neither, omit the gzip handler during startup for
;; improved startup and package load time.
(if (eval-when-compile
(locate-file-internal "calc-loaddefs.el" load-path))
nil
(list (rassq 'jka-compr-handler old-value))))
;; Ensure the new value persists through any current let-binding.
(set-default-toplevel-value 'file-name-handler-alist
file-name-handler-alist)
;; Remember the old value to reset it as needed.
(add-hook 'emacs-startup-hook
(lambda ()
(set-default-toplevel-value
'file-name-handler-alist
;; Merge instead of overwrite to preserve any changes made
;; since startup.
(delete-dups (append file-name-handler-alist old-value))))
101))
(unless noninteractive
(unless minimal-emacs-debug
(unless minimal-emacs-debug
;; Suppress redisplay and redraw during startup to avoid delays and
;; prevent flashing an unstyled Emacs frame.
;; (setq-default inhibit-redisplay t) ; Can cause artifacts
(setq-default inhibit-message t)
;; Reset the above variables to prevent Emacs from appearing frozen or
;; visually corrupted after startup or if a startup error occurs.
(defun minimal-emacs--reset-inhibited-vars-h ()
;; (setq-default inhibit-redisplay nil) ; Can cause artifacts
(setq-default inhibit-message nil)
(remove-hook 'post-command-hook #'minimal-emacs--reset-inhibited-vars-h))
(add-hook 'post-command-hook
#'minimal-emacs--reset-inhibited-vars-h -100))
(dolist (buf (buffer-list))
(with-current-buffer buf
(setq mode-line-format nil)))
(put 'mode-line-format 'initial-value
(default-toplevel-value 'mode-line-format))
(setq-default mode-line-format nil)
(defun minimal-emacs--startup-load-user-init-file (fn &rest args)
"Advice for startup--load-user-init-file to reset mode-line-format."
(unwind-protect
(progn
;; Start up as normal
(apply fn args))
;; If we don't undo inhibit-{message, redisplay} and there's an
;; error, we'll see nothing but a blank Emacs frame.
(setq-default inhibit-message nil)
(unless (default-toplevel-value 'mode-line-format)
(setq-default mode-line-format
(get 'mode-line-format 'initial-value)))))
(advice-add 'startup--load-user-init-file :around
#'minimal-emacs--startup-load-user-init-file))
;; Without this, Emacs will try to resize itself to a specific column size
(setq frame-inhibit-implied-resize t)
;; A second, case-insensitive pass over `auto-mode-alist' is time wasted.
;; No second pass of case-insensitive search over auto-mode-alist.
(setq auto-mode-case-fold nil)
;; Reduce *Message* noise at startup. An empty scratch buffer (or the
;; dashboard) is more than enough, and faster to display.
(setq inhibit-startup-screen t
inhibit-startup-echo-area-message user-login-name)
(setq initial-buffer-choice nil
inhibit-startup-buffer-menu t
inhibit-x-resources t)
;; Disable bidirectional text scanning for a modest performance boost.
(setq-default bidi-display-reordering 'left-to-right
bidi-paragraph-direction 'left-to-right)
;; Give up some bidirectional functionality for slightly faster re-display.
(setq bidi-inhibit-bpa t)
;; Remove "For information about GNU Emacs..." message at startup
(advice-add #'display-startup-echo-area-message :override #'ignore)
;; Suppress the vanilla startup screen completely. We've disabled it with
;; `inhibit-startup-screen', but it would still initialize anyway.
(advice-add #'display-startup-screen :override #'ignore)
;; Shave seconds off startup time by starting the scratch buffer in
;; `fundamental-mode'
(setq initial-major-mode 'fundamental-mode
initial-scratch-message nil)
(unless minimal-emacs-debug
;; Unset command line options irrelevant to the current OS. These options
;; are still processed by `command-line-1` but have no effect.
(unless (eq system-type 'darwin)
(setq command-line-ns-option-alist nil))
(unless (memq initial-window-system '(x pgtk))
(setq command-line-x-option-alist nil)))))
;;; Native compilation and Byte compilation
(if (and (featurep 'native-compile)
(fboundp 'native-comp-available-p)
(native-comp-available-p))
;; Activate `native-compile'
(setq native-comp-jit-compilation t
native-comp-deferred-compilation t ; Obsolete since Emacs 29.1
package-native-compile t)
;; Deactivate the `native-compile' feature if it is not available
(setq features (delq 'native-compile features)))
;; Suppress compiler warnings and don't inundate users with their popups.
(setq native-comp-async-report-warnings-errors
(or minimal-emacs-debug 'silent))
(setq native-comp-warning-on-missing-source minimal-emacs-debug)
(setq debug-on-error minimal-emacs-debug
jka-compr-verbose minimal-emacs-debug)
(setq byte-compile-warnings minimal-emacs-debug)
(setq byte-compile-verbose minimal-emacs-debug)
;;; UI elements
(setq frame-title-format minimal-emacs-frame-title-format
icon-title-format minimal-emacs-frame-title-format)
;; Disable startup screens and messages
(setq inhibit-splash-screen t)
;; I intentionally avoid calling `menu-bar-mode', `tool-bar-mode', and
;; `scroll-bar-mode' because manipulating frame parameters can trigger or queue
;; a superfluous and potentially expensive frame redraw at startup, depending
;; on the window system. The variables must also be set to `nil' so users don't
;; have to call the functions twice to re-enable them.
(unless (memq 'menu-bar minimal-emacs-ui-features)
(push '(menu-bar-lines . 0) default-frame-alist)
(unless (memq window-system '(mac ns))
(setq menu-bar-mode nil)))
(unless (daemonp)
(unless noninteractive
(when (fboundp 'tool-bar-setup)
;; Temporarily override the tool-bar-setup function to prevent it from
;; running during the initial stages of startup
(advice-add #'tool-bar-setup :override #'ignore)
(define-advice startup--load-user-init-file
(:after (&rest _) minimal-emacs-setup-toolbar)
(advice-remove #'tool-bar-setup #'ignore)
(when tool-bar-mode
(tool-bar-setup))))))
(unless (memq 'tool-bar minimal-emacs-ui-features)
(push '(tool-bar-lines . 0) default-frame-alist)
(setq tool-bar-mode nil))
(push '(vertical-scroll-bars) default-frame-alist)
(push '(horizontal-scroll-bars) default-frame-alist)
(setq scroll-bar-mode nil)
(when (fboundp 'horizontal-scroll-bar-mode)
(horizontal-scroll-bar-mode -1))
(unless (memq 'tooltips minimal-emacs-ui-features)
(when (bound-and-true-p tooltip-mode)
(tooltip-mode -1)))
;; Disable GUIs because they are inconsistent across systems, desktop
;; environments, and themes, and they don't match the look of Emacs.
(unless (memq 'dialogs minimal-emacs-ui-features)
(setq use-file-dialog nil)
(setq use-dialog-box nil))
;;; package.el
(setq package-enable-at-startup nil)
(setq package-quickstart nil)
(setq use-package-always-ensure t)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")
("nongnu" . "https://elpa.nongnu.org/nongnu/")))
(customize-set-variable 'package-archive-priorities '(("gnu" . 99)
("nongnu" . 80)
("stable" . 70)
("melpa" . 0)))
(push '(font . "MonoLisa-12") default-frame-alist)
(push '(fullscreen . maximized) default-frame-alist)
(push '(width . 92) default-frame-alist)
(push '(height . 53) default-frame-alist)
(if (eq system-type 'gnu/linux)
(push '(undecorated . t) default-frame-alist)
(push '(undecorated . nil) default-frame-alist))
(provide 'early-init)
;;; early-init.el ends here

View file

@ -3,11 +3,11 @@ Description=Emacs text editor
Documentation=info:emacs man:emacs(1) https://gnu.org/software/emacs/
[Service]
Type=forking
ExecStart=emacs --daemon
ExecStop=emacsclient --eval "(kill-emacs)"
Type=simple
ExecStart=/usr/bin/emacs --fg-daemon
ExecStop=/usr/bin/emacsclient --eval "(kill-emacs)"
Environment=SSH_AUTH_SOCK=%t/keyring/ssh
Restart=on-failure
[Install]
WantedBy=default.target
WantedBy=default.target

Binary file not shown.

Before

Width:  |  Height:  |  Size: 651 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 571 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 502 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 409 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 520 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 548 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 516 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 562 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 568 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 499 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 562 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 567 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 752 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 727 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 822 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 466 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 407 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 394 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 448 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 593 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 460 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 534 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 530 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 378 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 540 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 523 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 565 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 639 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 542 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 690 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 907 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 579 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 815 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 784 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 911 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 673 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 460 B

Some files were not shown because too many files have changed in this diff Show more