freedombone-app-emacs 7.9KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184
  1. #!/bin/bash
  2. #
  3. # .---. . .
  4. # | | |
  5. # |--- .--. .-. .-. .-.| .-. .--.--. |.-. .-. .--. .-.
  6. # | | (.-' (.-' ( | ( )| | | | )( )| | (.-'
  7. # ' ' --' --' -' - -' ' ' -' -' -' ' - --'
  8. #
  9. # Freedom in the Cloud
  10. #
  11. # Emacs application
  12. #
  13. # License
  14. # =======
  15. #
  16. # Copyright (C) 2014-2016 Bob Mottram <bob@robotics.uk.to>
  17. #
  18. # This program is free software: you can redistribute it and/or modify
  19. # it under the terms of the GNU Affero General Public License as published by
  20. # the Free Software Foundation, either version 3 of the License, or
  21. # (at your option) any later version.
  22. #
  23. # This program is distributed in the hope that it will be useful,
  24. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  26. # GNU Affero General Public License for more details.
  27. #
  28. # You should have received a copy of the GNU Affero General Public License
  29. # along with this program. If not, see <http://www.gnu.org/licenses/>.
  30. VARIANTS='all'
  31. function reconfigure_emacs {
  32. echo -n ''
  33. }
  34. function upgrade_emacs {
  35. echo -n ''
  36. }
  37. function backup_local_emacs {
  38. for d in /home/*/ ; do
  39. USERNAME=$(echo "$d" | awk -F '/' '{print $3}')
  40. if [[ $USERNAME != "git" && $USERNAME != "mirrors" && $USERNAME != "sync" ]]; then
  41. if [ -d /home/$USERNAME/.emacs.d ]; then
  42. echo $"Backing up Emacs config for $USERNAME"
  43. if [ -f /home/$USERNAME/.emacs ]; then
  44. cp /home/$USERNAME/.emacs /home/$USERNAME/.emacs.d/dotemacs
  45. fi
  46. function_check backup_directory_to_usb
  47. backup_directory_to_usb /home/$USERNAME/.emacs.d config/$USERNAME
  48. fi
  49. fi
  50. done
  51. }
  52. function restore_local_emacs {
  53. temp_restore_dir=/root/tempemacs
  54. if [ -d $USB_MOUNT/backup/emacs ]; then
  55. for d in $USB_MOUNT/backup/emacs/*/ ; do
  56. USERNAME=$(echo "$d" | awk -F '/' '{print $6}')
  57. if [[ $USERNAME != "git" && $USERNAME != "mirrors" && $USERNAME != "sync" ]]; then
  58. if [ ! -d /home/$USERNAME ]; then
  59. ${PROJECT_NAME}-adduser $USERNAME
  60. fi
  61. echo $"Restoring Emacs config for $USERNAME"
  62. function_check restore_directory_from_usb
  63. restore_directory_from_usb $temp_restore_dir emacs/$USERNAME
  64. cp -r $temp_restore_dir/home/$USERNAME/.emacs.d /home/$USERNAME/
  65. if [ ! "$?" = "0" ]; then
  66. rm -rf $temp_restore_dir
  67. function_check set_user_permissions
  68. set_user_permissions
  69. function_check backup_unmount_drive
  70. backup_unmount_drive
  71. exit 664
  72. fi
  73. cp -f $temp_restore_dir/home/$USERNAME/.emacs.d/dotemacs /home/$USERNAME/.emacs
  74. rm -rf $temp_restore_dir
  75. fi
  76. done
  77. fi
  78. }
  79. function backup_remote_emacs {
  80. echo -n ''
  81. }
  82. function restore_remote_emacs {
  83. echo -n ''
  84. }
  85. function remove_emacs {
  86. if ! grep -Fxq "install_emacs" $COMPLETION_FILE; then
  87. return
  88. fi
  89. apt-get -y remove --purge emacs24
  90. update-alternatives --set editor /usr/bin/nano
  91. sed -i '/install_emacs/d' $COMPLETION_FILE
  92. }
  93. function install_emacs {
  94. if grep -Fxq "install_emacs" $COMPLETION_FILE; then
  95. return
  96. fi
  97. update-alternatives --set editor /usr/bin/emacs24
  98. # A minimal emacs configuration
  99. #echo -n "(add-to-list 'load-path " > /home/$MY_USERNAME/.emacs
  100. #echo '"~/.emacs.d/")' >> /home/$MY_USERNAME/.emacs
  101. #echo '' >> /home/$MY_USERNAME/.emacs
  102. echo $';; ===== Remove trailing whitepace ======================================' >> /home/$MY_USERNAME/.emacs
  103. echo '' >> /home/$MY_USERNAME/.emacs
  104. echo ";;(add-hook 'before-save-hook 'delete-trailing-whitespace)" >> /home/$MY_USERNAME/.emacs
  105. echo '' >> /home/$MY_USERNAME/.emacs
  106. echo ';; Goto a line number with CTRL-l' >> /home/$MY_USERNAME/.emacs
  107. echo -n '(global-set-key "\C-l" ' >> /home/$MY_USERNAME/.emacs
  108. echo "'goto-line)" >> /home/$MY_USERNAME/.emacs
  109. echo '' >> /home/$MY_USERNAME/.emacs
  110. echo $';; ===== Show line numbers ==============================================' >> /home/$MY_USERNAME/.emacs
  111. echo '' >> /home/$MY_USERNAME/.emacs
  112. echo "(add-hook 'find-file-hook (lambda () (linum-mode 1)))" >> /home/$MY_USERNAME/.emacs
  113. echo '' >> /home/$MY_USERNAME/.emacs
  114. echo $';; ===== Enable line wrapping in org-mode ===============================' >> /home/$MY_USERNAME/.emacs
  115. echo '' >> /home/$MY_USERNAME/.emacs
  116. echo " (add-hook 'org-mode-hook" >> /home/$MY_USERNAME/.emacs
  117. echo " '(lambda ()" >> /home/$MY_USERNAME/.emacs
  118. echo " (visual-line-mode 1)))" >> /home/$MY_USERNAME/.emacs
  119. echo '' >> /home/$MY_USERNAME/.emacs
  120. echo $';; ===== Enable shift select in org mode ================================' >> /home/$MY_USERNAME/.emacs
  121. echo '' >> /home/$MY_USERNAME/.emacs
  122. echo '(setq org-support-shift-select t)' >> /home/$MY_USERNAME/.emacs
  123. echo '' >> /home/$MY_USERNAME/.emacs
  124. echo $';; ===== Set standard indent to 4 rather that 4 =========================' >> /home/$MY_USERNAME/.emacs
  125. echo '' >> /home/$MY_USERNAME/.emacs
  126. echo '(setq standard-indent 4)' >> /home/$MY_USERNAME/.emacs
  127. echo '(setq-default tab-width 4)' >> /home/$MY_USERNAME/.emacs
  128. echo '(setq c-basic-offset 4)' >> /home/$MY_USERNAME/.emacs
  129. echo '' >> /home/$MY_USERNAME/.emacs
  130. echo $';; ===== Support Wheel Mouse Scrolling ==================================' >> /home/$MY_USERNAME/.emacs
  131. echo '' >> /home/$MY_USERNAME/.emacs
  132. echo '(mouse-wheel-mode t)' >> /home/$MY_USERNAME/.emacs
  133. echo '' >> /home/$MY_USERNAME/.emacs
  134. echo $';; ===== Place Backup Files in Specific Directory =======================' >> /home/$MY_USERNAME/.emacs
  135. echo '' >> /home/$MY_USERNAME/.emacs
  136. echo '(setq make-backup-files t)' >> /home/$MY_USERNAME/.emacs
  137. echo '(setq version-control t)' >> /home/$MY_USERNAME/.emacs
  138. echo '(setq backup-directory-alist (quote ((".*" . "~/.emacs_backups/"))))' >> /home/$MY_USERNAME/.emacs
  139. echo '' >> /home/$MY_USERNAME/.emacs
  140. echo $';; ===== Make Text mode the default mode for new buffers ================' >> /home/$MY_USERNAME/.emacs
  141. echo '' >> /home/$MY_USERNAME/.emacs
  142. echo "(setq default-major-mode 'text-mode)" >> /home/$MY_USERNAME/.emacs
  143. echo '' >> /home/$MY_USERNAME/.emacs
  144. echo $';; ===== Line length ====================================================' >> /home/$MY_USERNAME/.emacs
  145. echo '' >> /home/$MY_USERNAME/.emacs
  146. echo '(setq-default fill-column 72)' >> /home/$MY_USERNAME/.emacs
  147. echo '' >> /home/$MY_USERNAME/.emacs
  148. echo $';; ===== Enable Line and Column Numbering ===============================' >> /home/$MY_USERNAME/.emacs
  149. echo '' >> /home/$MY_USERNAME/.emacs
  150. echo '(line-number-mode 1)' >> /home/$MY_USERNAME/.emacs
  151. echo '(column-number-mode 1)' >> /home/$MY_USERNAME/.emacs
  152. echo '' >> /home/$MY_USERNAME/.emacs
  153. echo $';; ===== Turn on Auto Fill mode automatically in all modes ==============' >> /home/$MY_USERNAME/.emacs
  154. echo '' >> /home/$MY_USERNAME/.emacs
  155. echo ';; Auto-fill-mode the the automatic wrapping of lines and insertion of' >> /home/$MY_USERNAME/.emacs
  156. echo ';; newlines when the cursor goes over the column limit.' >> /home/$MY_USERNAME/.emacs
  157. echo '' >> /home/$MY_USERNAME/.emacs
  158. echo ';; This should actually turn on auto-fill-mode by default in all major' >> /home/$MY_USERNAME/.emacs
  159. echo ';; modes. The other way to do this is to turn on the fill for specific modes' >> /home/$MY_USERNAME/.emacs
  160. echo ';; via hooks.' >> /home/$MY_USERNAME/.emacs
  161. echo '' >> /home/$MY_USERNAME/.emacs
  162. echo '(setq auto-fill-mode 1)' >> /home/$MY_USERNAME/.emacs
  163. echo '' >> /home/$MY_USERNAME/.emacs
  164. echo $';; ===== Enable GPG encryption =========================================' >> /home/$MY_USERNAME/.emacs
  165. echo '' >> /home/$MY_USERNAME/.emacs
  166. echo "(require 'epa)" >> /home/$MY_USERNAME/.emacs
  167. echo '(epa-file-enable)' >> /home/$MY_USERNAME/.emacs
  168. cp /home/$MY_USERNAME/.emacs /root/.emacs
  169. chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.emacs
  170. echo 'install_emacs' >> $COMPLETION_FILE
  171. }
  172. # NOTE: deliberately no exit 0